Vérificaton de cellule avant excécution d'une macro

Bonjour,

Je recherche un code qui me premait de vérifier que plusieur cellule ne soit pas vide avant d'excecuter une macro.

J'ai trouver ceci mais il verifi qu'une cellule hors moi je veux plusieur cellule:

Code:

---

1 2 3 4 5 6 7

If Range("D5") > 0 Then 'J'exécute la macro   ElseIf Range("D5") = 0 Then MsgBox "Erreur: Veuillez saisir un personnel !!", vbExclamation End If

---

Les cellules a vérifier sont: D5; D7; D10

salut,
tu peux essayer en mettant "and" ou "or" comme çà comme tu n'as pas beaucoup de cellules à vérifier. ex:

Code:

---

1 2 3 4

'Si D5 est plein et si D7 ... et si D10 .... alors If Range("D5") <> "" and Range("D7") <> "" and Range("D10") <> "" Then 'J'exécute la macro End If

---

Tu peux remplacer And par "or" ça ferait:
Si D5 est plein ou si D7 est plein ou si D10..... Alors

Bonjour,


Il y a plusieurs solutions pour faire ce que tu demandes, 3 if par exemples.
Je te propose une solution :

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim Maplage As Range, MesCellules As Range Set Maplage = Union([D5], [D7], [D10]) ' Set Maplage = Maplage.SpecialCells(xlCellTypeBlanks)   For Each MesCellules In Maplage If MesCellules = Empty Then MsgBox "Erreur: Veuillez saisir un personnel !!" & vbCrLf & "Dans la cellule " & MesCellules.Address, vbExclamation Exit For End If Next MesCellules

---

Cependant, attention avec le code

Code:

---

if Range("A1") <> "" then

---

par ce que si la cellule contient un espace, le test est faux et l'exeption n'est pas gérée.

Mieux vaut utiliser la méthode de aalex_38.

Salut aalex_38,
je ne connaissais pas l'instruction "union" je l'a retient, ça faisait un moment que je n'étais pas venus j'suis content d'apprendre de nouveaux trucs enfin nouveau pour moi. :ccool:

Citation:

---

"je ne connaissais pas l'instruction "union" je l'a retient, ça faisait un moment que je n'étais pas venus j'suis content d'apprendre de nouveaux trucs enfin nouveau pour moi.

---

"

Je ne viens plus très souvent non plus, on apprend toujours les uns les autres, parfois je regarde vos sujets et j'apprends aussi.

Citation:

---

par ce que si la cellule contient un espace, le test est faux et l'exeption n'est pas gérée.

Mieux vaut utiliser la méthode de aalex_38.

---

En fait non, le résultat est le même un espace <> empty (si si j'ai fait le test)

Citation:

---

Envoyé par aalex_38

"
En fait non, le résultat est le même un espace <> empty (si si j'ai fait le test)

---

C'est ce que j'ai dis :D

Bref.

La fonction Union est-elle equivalente a celle ci ?

Code:

---

set maPlage = Range("D1,D4,E8,F6")

---