Boucle pour vérifier condition

[arnaudbu]

Hello,

J'ai fais cette petite boucle dont le code à été tiré d'une autre macro.

Ca fonctionne bien mais j'aimerais savoir s'il n'y a pas plus simple ou si c'est correct.

@+

 

[Etienne2323]

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

 

[tototiti2008]

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.

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

 

[James007]

Re : Boucle pour vérifier condition

Bonjour,

Une proposition parmi tant d'autres ...

A +

 

[arnaudbu]

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

 

[Fo_rum]

Re : Boucle pour vérifier condition

Bonsoir

sans un tableau :

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

 

[arnaudbu]

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 @+