Recherche dans une colonne

Bonjour ITFLASH,


Voici un exemple tiré de l'aide d'excel :

Sub Rechercher()
Ce petit exemple va trouver toutes les cellules contenant le mot "APME" et écrire en Colonne "D" sur la même ligne, le
mot "Toto". Évidemment, c'est à toi de dire ce qui doit arriver lorsque le mot est trouvé.



'--------------------
With Worksheets(1).Range("A:A")
Set c = .Find("APME", lookin:=xlValues,LookAt:=XlWhole)
If Not c Is Nothing Then
firstAddress = c.Address
Do
'C'est ici que tu dois entrer ton code ....
C.offset(,3) = "Toto"

Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub
'--------------------


Salutations!



"ITFLASH" <usethepower@hotmail.com> a écrit dans le message de news:eD8kX$NkDHA.2732@TK2MSFTNGP11.phx.gbl...
Bonjour,

Quelqu'un peut-il me dire comment faire pour selectionner dans la colonne A
le texte APME chaque fois qu'il est rencontré et d'ensuite déplacer la
selection vers la droite. Tout ceci à l'aide d'une macro.

Grand merci à tous.

Salut ITFLASH,

Une macro possible :

Sub Test()
Dim P As Range, C As Range, Adr As String
Set C = Range("A:A").Find("APME")
If C Is Nothing Then Exit Sub
Adr = C.Address
Set P = C
Do
Set C = Range("A:A").FindNext(C)
Set P = Union(P, C)
Loop Until C.Address = Adr
P.Offset(, 1) = (P)
P.ClearContents
End Sub

Amicalement,

Croquignol

Bonjour,

Quelqu'un peut-il me dire comment faire pour selectionner dans la colonne A
le texte APME chaque fois qu'il est rencontré et d'ensuite déplacer la
selection vers la droite. Tout ceci à l'aide d'une macro.

Grand merci à tous.