Récupérer des valeurs sous excel

Résolu
cs_zergo Messages postés 2 Date d'inscription samedi 26 avril 2008 Statut Membre Dernière intervention 1 mars 2009 - 28 févr. 2009 à 11:12
cs_zergo Messages postés 2 Date d'inscription samedi 26 avril 2008 Statut Membre Derniè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

Merci d'avance 

2 réponses

cs_Jack Messages postés 14006 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 79
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)
3
cs_zergo Messages postés 2 Date d'inscription samedi 26 avril 2008 Statut Membre Dernière intervention 1 mars 2009
1 mars 2009 à 07:49
Je te remerci je vais essayer de suite

bien a toi

bonne journée
0
Rejoignez-nous