cs_zergo
Messages postés2Date d'inscriptionsamedi 26 avril 2008StatutMembreDernière intervention 1 mars 2009
-
28 févr. 2009 à 11:12
cs_zergo
Messages postés2Date d'inscriptionsamedi 26 avril 2008StatutMembreDernière intervention 1 mars 2009
-
1 mars 2009 à 07:49
Bonjour a tous
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
cs_Jack
Messages postés14007Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201578 28 févr. 2009 à 13:07
Salut
Pas clair
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)