comment déplacer les mots trouvés par .Find ???

[albert]

Bonsoir à tous, forumiens et forumiennes,

Dans la pièce jointe,

Je cherche dans la colonne Q, toutes les lignes qui comportent le mot "Ordre" ; lorsqu’il est trouvé, je voudrais le copier, le déplacer de 3 colonnes sur la droite(colonne T) et d’un nombre de lignes vers le bas, égal au chiffre situé à droite de mot "Ordre" (ce chiffre devenant un compteur de lignes

With Worksheets("Feuil1").Range("Q4:Q3591")
Set c = .Find("Ordre", LookIn:=xlValues)

J’arrive bien à envoyer ce chiffre en boucle dans M1, mais je suis incapable de le récupérer pour en faire un comteur de lignes à chaque fois qu’est trouvé le mot "Ordre"

comment déplacer Ordre du nombre de lignes versle bas, indiqué dans la cellule à droite du mot Ordre ???

merci d'avance

albert

 

[omicron]

Bonsoir Albert,

Pour répondre au problème posé, il suffit d'adapter ta macro de la façon suivante :

====================================================
With Worksheets("Feuil1").Range("Q4:Q3591")
Set c = .Find("Ordre", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Offset(c.Offset(0, 1) - 1, 3) = c
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
====================================================

Bon courage pour la suite.

Omicron.

 

[albert]

merci Omicron,
c'est tout simplement génial, je n'aurais pas trouvé seul


c.Offset(c.Offset(0, 1) - 1, 3) = c

bonne journée
albert