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
14007
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