[résolu] Modification d'une macro

[klorane]

Bonjour le forum,

j'ai cette macro :

For i = 1 To Range("D65536").End(xlUp).Row
Cells(i, 6).Value = Cells(i, 4) & " " & Cells(i, 5)
Next

Il faudrait que SI cette macro rencontre en colonne D : "*" elle passe directement à Next.

quelqu un saurait il quoi ajouter pour que cela se fasse?

Merci

Klorane

 

[JJ1]

Re : Modification d'une macro

Bonsoir,
Il faut "sauter" la copie par If Cells(i, 5).Value = "*" Then Goto 1
et mettre 1 avant Next
A mon avis, ça devrait fonctionner, à tester.
a+

 

[Si...]

Re : Modification d'une macro

salut

sans GoTo :

For i = 1 To Range("D65536").End(xlUp).Row
  If Cells(i, 4) <> "*" Then Cells(i, 6).Value = Cells(i, 4) & " " & Cells(i, 5)
Next

 

[klorane]

Re : Modification d'une macro

Merci à vous deux pour vos réponses!

ça fonctionne.

merci du coup de main.

Klorane