Boucle pour vérifier condition

Etienne2323

XLDnaute Impliqué

• 1 Décembre 2010

• #2

Re : Boucle pour vérifier condition

Salut arnaudbu,
si ton objectif est bien de tester si une des 4 cases de ton Array est vide, alors effectivement, ta macro fonctionne bien.

Le désavantage de cette façon de faire est que tu dois énumérer dans le Array chacune des cellules sur lesquelles tu veux faire le test.

Mais concrètement, pour répondre à ta question, c'est simple et efficace !

Si tu souhaites plus de détails, pose une question plus concrète !

Cordialement,

Étienne

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 1 Décembre 2010

• #3

Re : Boucle pour vérifier condition

Bonjour arnaudbu, Bonjour Etienne,

ça me semble trés bien
Je mettrais peut-être un Exit For à la place de l'Exit Sub, mais ça n'a rien d'obligatoire...

Le désavantage de cette façon de faire est que tu dois énumérer dans le Array chacune des cellules sur lesquelles tu veux faire le test.

Cliquez pour agrandir...

Ou bien c'est l'avantage 😉
Si on veut tester une nouvelle cellule, il suffit de l'ajouter dans le tableau t....

 

Vote positif 0 Vote négatif

James007

XLDnaute Barbatruc

• 1 Décembre 2010

• #4

Re : Boucle pour vérifier condition

Bonjour,

Une proposition parmi tant d'autres ...

A +

 

Pièces jointes

• TestArnaud.xls

  26.5 KB · Affichages: 38

Vote positif 0 Vote négatif

A

arnaudbu

XLDnaute Occasionnel

• 1 Décembre 2010

• #5

Re : Boucle pour vérifier condition

Ok merci. Comme j'ai que ces 4 cellules à vérifier dans cette macro ça ira alors.

J'ai une vérification un peu plus compliqué à vous soumettre bientôt.

@+ et merci

 

Vote positif 0 Vote négatif

F

Fo_rum

XLDnaute Accro

• 1 Décembre 2010

• #6

Re : Boucle pour vérifier condition

Bonsoir

sans un tableau :

Code:

Sub quoi()
  Dim C As Range, n As Byte, Msg As String
  For Each C In Range("D2,C4,C6,H6")
    If C = "" Then n = n + 1: Msg = Msg & C.Address & Chr(10)
  Next
  MsgBox Msg & IIf(n = 1, " est vide !", " sont vides"), vbCritical, "Oups"
End Sub

 

Vote positif 0 Vote négatif

A

arnaudbu

XLDnaute Occasionnel

• 2 Décembre 2010

• #7

Re : Boucle pour vérifier condition

Super merci. Tant de solution pour arriver au même résultat. On voit bien que chacun à son savoir faire et que tout est fonctionnel.

PS: je garde END SUB au lieu de END If car sinon il passe à la suite du code et c'est ce que je ne veux pas.

Encore merci @+

 

Vote positif 0 Vote négatif