Fonction Next

bonjour,

j'ai la macro suivante :

Sub macro1()

Sheets(1).Cells.Find(What:="adresse").Select

Selection.Next.Next.Next.Next.Next.Next.Next.Copy Destination:=Sheets(1).Range("M6")

End Sub

étant un novice en VBA

j'aimerais en faite savoir si il était possible d''enlever les next à répétition et écrire à la place Selection.Next(=7).copy etc.

je vous remercie par avance

cordialement

Bonjour

Pas compris comment tu arrives à ce code

essaie plutot ceci

Sub macro1()
Sheets(1).Cells.Find(What:="adresse").Copy Sheets(1).Range("M6")
End Sub

Si ok, lors de ta réponse clique sur le V vert à coté du bouton EDITER pour la cloture du fil

Crdlt

bonjour,

edit : bonjour Dan

essaie ceci

Sub macro1()
Sheets(1).Cells.Find(What:="adresse").offset(0,7).Copy Sheets(1).Range("M6")
End Sub

Merci pour votre aide ça a marché

bonne soirée

cordialement