Fonction IF plusieurs cellules

Bonjour a tous,

une petite question, est il possible de réduire cette formule:

Code:

---

If Not IsEmpty(Range("C2")) And Not IsEmpty(Range("D2")) And Not IsEmpty(Range("E2")) And Not IsEmpty(Range("F2")) And Not IsEmpty(Range("G2")) And Not IsEmpty(Range("H2")) Then

---

Sachant que la fonction ne doit s'éxécuter seulement SI L'ENSEMBLE des cellules contiennent quelque chose.

Car en écrivant:

Code:

---

If Not IsEmpty(Range("C2:H2")) Then

---

La fonction s'éxécute si une de cellule est non vide.

Cordialement

Bonjour,
Utilise la fonction COUNTA qui est l'équivalent de la formule Excel NBVAL/COUNTA pour la version anglaise.
Exemple La fonction renvoie le nombre de cellules remplies en H1:J6

Code:

---

Debug.Print Application.WorksheetFunction.CountA(Range("H1:J6"))

---

je n'arrive pas a intégrer la fonction, peux tu m'aider?

je pensais faire:

Code:

---

1 2	Nb = Debug.Print Application.WorksheetFunction.CountA(Range("C2:H2")) If Nb = 6 then ...

---

mais ça ne marche pas...

idem pour:

Code:

---

If Debug.Print Application.WorksheetFunction.CountA(Range("C2:H2")) = 6 then

---

Ca serais Debug.Print qui gene...

solution trouvée:

Code:

---

If Application.WorksheetFunction.CountA(Range("C2:H2")) = 6 Then

---

Merci

Bonjour,

Citation:

---

Ca serais Debug.Print qui gene...

---

Debug.Print est une instruction que l'on utilise au cours de la phase de débogage et qui permet d'afficher ("Imprimer") ce qui suit l'instruction dans la fenêtre d'exécution (que l'on affiche par le raccourci (Ctrl+G)).
C'est nettement plus intéressant que MsgBox qui attend toujours que l'utilisateur clique sur OK

Je ne connaissais pas cette fonction, et j'utilisais la fonction MsgBox. J’essaierais de l'utiliser la prochaine fois que j'ai ai besoin ;)

Merci