[VBA] Condition sur une cellule vide Résolu

Question

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

Configuration: Windows 7 / Safari 534.10

Paf · Answer

Bonjour,

essaye avec:

While Boisson1 <> ""

Est ce que Boisson1 est initialisé avant la boucle?

A+

ccm81 · Answer

bonjour

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

[VBA] Condition sur une cellule vide

2 réponses

Discussions similaires

Newsletters