1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6

Récupérer des valeurs sous excel [Résolu]

Signaler
Messages postés
2
Date d'inscription
samedi 26 avril 2008
Statut
Membre
Dernière intervention
1 mars 2009
 -
Messages postés
2
Date d'inscription
samedi 26 avril 2008
Statut
Membre
Dernière intervention
1 mars 2009
 -
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

Réponse 1 / 2
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
 74
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)
Réponse 2 / 2
Messages postés
2
Date d'inscription
samedi 26 avril 2008
Statut
Membre
Dernière intervention
1 mars 2009
Je te remerci je vais essayer de suite

bien a toi

bonne journée
Répondre Posez votre question