[VBA] Condition sur une cellule vide
Résolu
Titi
-
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai un souci, voici mon code J'aimerai que ce qu'il y a dans la boucle ne s'exécute que si Boisson1 n'est pas vide. Pourtant lorsque j'exécute mon code étape par étape lorsque Boisson1 ="" les commandes s'exécutent quand même, et je comprends pas pourquoi ......
While IsEmpty(Boisson1) <> True
Boisson1 = Cells(l + m, 3).Text
ValBoisson1 = Cells(l + m, 9).Value
m = m + 1
Sheets("Budget Initial").Cells(l + m, 2) = Boisson1
Sheets("Budget Initial").Cells(l + m, 3) = ValBoisson1
Wend
Quelqu'un peut il m'aider ???
Merci beaucoup
J'ai un souci, voici mon code J'aimerai que ce qu'il y a dans la boucle ne s'exécute que si Boisson1 n'est pas vide. Pourtant lorsque j'exécute mon code étape par étape lorsque Boisson1 ="" les commandes s'exécutent quand même, et je comprends pas pourquoi ......
While IsEmpty(Boisson1) <> True
Boisson1 = Cells(l + m, 3).Text
ValBoisson1 = Cells(l + m, 9).Value
m = m + 1
Sheets("Budget Initial").Cells(l + m, 2) = Boisson1
Sheets("Budget Initial").Cells(l + m, 3) = ValBoisson1
Wend
Quelqu'un peut il m'aider ???
Merci beaucoup
A voir également:
- [VBA] Condition sur une cellule vide
- Excel cellule couleur si condition texte - Guide
- Comment supprimer une page vide sur word - Guide
- Excel compter cellule couleur sans vba - Guide
- Caractere vide - Guide
- Aller à la ligne dans une cellule excel - Guide
2 réponses
bonjour
Boisson1 est recalcule après le while, d'où le pb soulevé
quelque chose comme ça devrait aller
bonne suite
Boisson1 est recalcule après le while, d'où le pb soulevé
quelque chose comme ça devrait aller
do
Boisson1 = Cells(l + m, 3).Text
if Boisson1 <> "" then
ValBoisson1 = Cells(l + m, 9).Value
m = m + 1
Sheets("Budget Initial").Cells(l + m, 2) = Boisson1
Sheets("Budget Initial").Cells(l + m, 3) = ValBoisson1
end if
loop while Boisson1 <> ""
bonne suite