Je suis novice en VB,
Je souhaite copier un cellule excel "exemple H14 = TOTO" si cette cellule n' a pas de valeur je passe a la cellule I14 etc.... et je copie cette chaine de caractère dans une autre feuille.
Je dois faire cette manip une bonne centaines de fois si qqun avait une petite procédure en VB ou macro excel
A essayer :
Dim maCellule As Object
Sheets("Feuil1").Select
For Each maCellule In Range("H14:ZZ14")
If maCellule.Value <> "" Then
Sheets("Feuil2").Select
Cells("A1").Value = maCellule.Value
Exit For
End If
Next
Vala
Jack, MVP VB NB : Je ne répondrai pas aux messages privés
<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)