Cherche mot colonne

Bonjour le forum,

J'aimerais avoir un code vba sélectionnant toutes les cases de la colonne K contenant le mot "AM".

Ci joint le fichier

Merci pour votre aide

Bonjour,

Il n'y a pas de fichier.

Par ailleurs trouver les cellules contenant le mot "AM" ok mais pour en faire quoi de cette sélection ?

Salut CDB,

Salut Xmenpl,

voici un code pêché sur la Toile qui devrait te donner le résultat attendu après modification adéquate.

Pas testé!

Sub SelectNiet()
Dim cls As Range, x As Long, y As Long, cel As Range, nblg As Long, nbcol As Long, plage As Range, trouve As String
Dim col As String
With Sheets("e")
   y = 1
   nbcol = .Range("A1").SpecialCells(xlCellTypeLastCell).Column
   For x = 1 To nbcol
      col = Split(.Cells(1, x).Address, "$")(1)
      nblg = .Range(col & .Rows.Count).End(xlUp).Row
      Set plage = Range(col & nblg, Range(col & nblg).End(xlUp))
      For Each cel In plage
         If .Cells(y + 1, x) <> "niet" And y < nblg Then
            y = y + 1
         End If
         Set plage = .Range(.Cells(y, x), .Cells(nblg, x))
         'Set cls = Nothing
         Set cls = plage.Find("niet", .Cells(y, x), , , xlByColumns)
         If Not cls Is Nothing Then
            If trouve = "" Then
               trouve = cls.Address
            Else
               trouve = trouve & "," & cls.Address
            End If
            y = cls.Row
         End If
      Next cel
      y = 1
   Next x
   .Range(trouve).Select
End With
End Sub

A+

Désolé ci joint le fichier.

Avec cette sélection j'adapterais ma macro pour qu'elle remplace le contenu par une formule