[VBA] Condition sur une cellule vide

Résolu/Fermé

Titi - 31 janv. 2011 à 11:48
ccm81 Messages postés 10908 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 mai 2025 - 31 janv. 2011 à 14:11

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

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
Aller à la ligne dans une cellule excel - Guide
Caractere vide - Guide

2 réponses

Réponse 1 / 2

Paf
31 janv. 2011 à 11:58

Bonjour,

essaye avec:

While Boisson1 <> ""

Est ce que Boisson1 est initialisé avant la boucle?

A+

Réponse 2 / 2

ccm81 Messages postés 10908 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 mai 2025 2 431
Modifié par ccm81 le 31/01/2011 à 14:12

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

Discussions similaires

le frigo ne marche pas....

Internat nourriture

Colorer une cellule quand une autre est non vide

Excel : colorer une cellule sous condition d'une autre ?

Comment faire les coeur vide sur FB