Macro dans un public sub

Rebonjour,

j'ai un pti soucis avec un Public Sub.
En fait dans ce dernier j'ai 10 macros qui s'exécutent l'une après l'autre.
Seulement mon soucis se situe dans la première macro:
je vous explique:

cette macro que je vais appeler lili doit vérifier certaine conditions en l'occurrence:

Code:

---

1 2 3 4 5 6 7 8

if range("a1").value < range("b1").value then msgbox("erreur") if range("a1").value < range("b2").value then msgbox("erreur") if range("a2").value < range("b1").value then msgbox("erreur") if range("a2").value < range("b2").value then msgbox("erreur") if range("a2").value < range("a1").value then msgbox("erreur") if range("b2").value < range("b1").value then msgbox("erreur") if au moins une des cellules est Empty then msgbox("erreur")

---

Sachant qu'à chaque msg d'erreur il faut arrêter l'exécution des macros suivantes dans le public sub. (il fo donc un

Code:

---

exit sub

---

)

En gros tant que l'une des conditions au moins citées ci dessus n'est pas vérifiée le public sub ne s'éxécute pas.

pouvez vous améliorez cette macro?

Un coup de main serait souhaitable de votre part
d'avance merci

Tu declares ta premiere macro en tant que fonction renvoyant un boolean
False si il y a une erreur, true si c'est ok

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

function macro1   if range("a1").value < range("b1").value then macro1=false exit sub end if if range("a1").value < range("b2").value then macro1=false exit sub end if if range("a2").value < range("b1").value then macro1=false exit sub end if if range("a2").value < range("b2").value then macro1=false exit sub end if if range("a2").value < range("a1").value then macro1=false exit sub end if if range("b2").value < range("b1").value then macro1=false exit sub end if if au moins une des cellules est Empty then macro1=false exit sub end if   macro1=true   end function

---

et dans l'appel de tes macros tu fais quelque chose comme ca

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim test As Boolean   test = Macro1   If test = True Then   macro2 macro3 macro4   End If

---

Merci jérôme pour la pertinence de tes réponses même si j'ai pas encore vérifier si ça marche.

comment fait-on pour écrire cette condition

Code:

---

if au moins une des cellules est Empty

---

Merci bcp
on apprend des choses;

Autre chose à ma connaissance, les

Code:

---

exit sub

---

ne sont pas permises dans les

Code:

---

Fonction

---

:?

j'ai validé trop vite. En effet c'est exit function qu'il faut mettre

pour les empty tu fais comme ca

Code:

---

1 2 3 4 5

if range("a1").value < range("b1").value or range("a1").value ="" then macro1=false exit sub end if

---

Moi ce que je n'aime pas trop c'est

Citation:

---

Envoyé par casavba

pouvez vous améliorez cette macro?

---

ca me donne l'impression d'un "VOus pouvez bosser pour moi ?"

mais bon je planche dessus tout de même ;)

Merci jérôme

C vrai mordrhim je me suis mal exprimé;
je corrige:

Pouvez_vous SVP m'aider à améliorer cette macro?

encore DSL.

ça te va comme ça.:aie:

SVP; quelqu'un sait comment écrire cette condition:

si au moins une cellule de la plage A1:B2 est vide then erreur.

J'ai fait ce code mais le pbm c que je veux qu'un seul msgbox une fois qu'une cellule(ou deux ou trois voire 4) est vide et non 1(ou 2 ou 3ou 4) msgbox.
Donc je crois pas qu'il faut utiliser for each.

Code:

---

1 2 3 4 5 6 7

Sub ggg() Dim C As Range For Each C In Range("A1:B2") If C.Value = "" Then MsgBox ("err") Next C End Sub

---

oui, le système est bon, juste qu'une cellule vide ne donne pas d'erreur, et que tu peu ajouter...

Code:

---

If C.Value = "" Then MsgBox ("Il y a une cellule vide dans la plage") : exit sub

---

A+

:mouarf: Merci, jérôme et leforestier