correction d'un code VBA avec une boucle

[pascal21]

For i = 3 To 369
if cells (b,i).Value <>"" then cells (a,i).value = cells(b,i).value
Next i

bonsoir à tous
pouvez-vous m'aider à écrire ce code correctement
ce que je souhaite
pour le lignes 3 à 369
si en colonne B il n'y à rien (attention formule avec indirect) alors en colonne A, rien sinon copie de la valeur de la colonne B
merci pour votre aide

 

[PEPE]

Re : correction d'un code VBA avec une boucle

Salut Pascal,

la propriété cells s'utilise avec des chiffres. exemple : Worksheets("Feuil1").Cells(5, 3)

ex de code :

Sub Compare()

Worksheets("Feuil1").Activate
For i = 3 To 369
'la propriété cells fonctionne avec des chiffres
'Cells (ligne,colonne)
if Cells (i,2).Value <>"" then Cells (i,1).value = Cells(i,2).value
Next i

End Sub

Attention je n'ai pas testé ce code.. 😉

PEPE

 

[DoubleZero]

Re : correction d'un code VBA avec une boucle

Bonjour, pascal21 🙂, PEPE, le Forum,

Un essai en pièce jointe.