Simplifier les condition d'un If

Bonsoir,
Une solution avec EVALUATE

S'il faut tester si les cellules d'une même ligne sont remplies

Code:

---

If Evaluate("=COUNTA(A7:J7) = COLUMNS(A7:J7)") Then MsgBox "Toutes remplies"

---

S'il fallait tester des cellules remplies sur plusieurs lignes et plusieurs colonnes

Code:

---

If Evaluate("=COUNTA(A7:J8) = COLUMNS(A7:J8) * ROWS(A7:J8)") Then MsgBox "Toutes remplies"

---

et aussi

Code:

---

If Application.CountA(Range("A7:J7")) = Range("A7:J7").Count Then MsgBox "Toutes remplies"

---

Bonjour !

Citation:

---

Envoyé par Cap'taineSamSam

Je souhaite tester si toutes les cellules d'une plage ("A7:J7") sont remplies.

---

Philippe m'a devancé alors voici une variante avec Evaluate :

Code:

---

1 2 3 4

Sub Demo1() V = Filter([IF(A7:J7="",ADDRESS(7,COLUMN(A7:J7),4))], False, False) If UBound(V) > -1 Then MsgBox "Manque saisie dans " & Join(V, ", "), vbExclamation, " Contrôle :" End Sub

---

___________________________________________________________________________________________________________

  :arrow:   Merci de cliquer sur :plusser: en bas à droite de chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Bonjour,

Une fonction personnalisée qui ne tient pas compte des cellules vides contenant une formule :

Code:

---

1 2 3

Function Toutes_Remplies(Plage As Range) As Boolean Toutes_Remplies = (Application.CountA(Plage) = Plage.Cells.Count) End Function

---

EDIT :
oups, désolé...
Je n'avais pas lu la dernière proposition de philippe...

Bonjour Franck
Oui.
Attention toutefois aux surprises résultant de la conjugaison :
- de l'affectation dynamique d'une valeur VBEmpty (cela va te rappeler une discussion)
- de la configuration des options Excel

Amitiés

bonjour,

Citation:

---

@unparia
Question (car solution en dépendant) : ces cellules ne contiennent-elles QUE des constantes ou peuvent-elles contenir également des résultats de formules ?

---

c'est une bonne question :ccool:

Citation:

---

@Cap'taineSamSam
J'ai pas le fichier sous les yeux (il est au boulot) mais si je me souviens bien:
c'est la case C7 = Si (D7 = "*"; "h"; "")

---

la formule elle même n'est pas comptée par "len" et le "" arrive à point

Citation:

---

Len([a7] & [b7] & [c7] & [d7] & [e7] & [f7] & [g7] & [h7] & [i7] & [J7])

---

comment "racourcir" ...disait ABRAS!!!.... :ptdr:

@+JP

Bonjour Jacques,

Citation:

---

Envoyé par unparia

Attention toutefois aux surprises résultant de la conjugaison :
- de l'affectation dynamique d'une valeur VBEmpty (cela va te rappeler une discussion)
- de la configuration des options Excel

---

VbEmpty Ok. En effet, cela me rappelle quelque chose ;)
Mais quid de la configuration des options Excel?

Ah ..
1) (aide vba) :

Citation:

---

WorksheetFunction.CountA, méthode
Compte le nombre de cellules non vides, ainsi que les valeurs dans la liste d'arguments.
....
Une valeur peut être n'importe quel type d'informations, notamment des valeurs d'erreur et du texte vide ("").

---

(clair)
2) les options de Exel (mais moins important) :
On peut configurer de sorte à ce que l'affectation de vbEmpty mette un 0 et non ""
Observe que l'affectation de "", mettrait un "" (mais qui ne serait pas un VIDE non plus)
Seule l'affectation de VBNullString ne compromettrait pas ton code

Rigolo qu'on en ait parlé il y a peu, non ?

Amitiés

Citation:

---

Envoyé par unparia

1) (aide vba) :
WorksheetFunction.CountA, méthode
Compte le nombre de cellules non vides, ainsi que les valeurs dans la liste d'arguments.
....
Une valeur peut être n'importe quel type d'informations, notamment des valeurs d'erreur et du texte vide ("").
(clair)
2) les options de Exel (mais moins important) :
On peut configurer de sorte à ce que l'affectation de vbEmpty mette un 0 et non ""
Observe que l'affectation de "", mettrait un "" (mais qui ne serait pas un VIDE non plus)
Seule l'affectation de VBNullString ne compromettrait pas ton code

---

Il faut donc s'entendre sur ce que l'on appelle "vide".
Dans une cellule : ="" peut apparaître vide (selon les options excel en effet), mais ne l'est pas.
Tu as raison.

Bonjour à tous et merci pour toutes vos réponses!! :)

Après quelques tests pour voir quel code correspondait le mieux à mon besoin, j'ai choisi d'utiliser:

Code:

---

If Application.CountA(Range("A7:J7")) = Range("A7:J7").Count Then

---

Merci encore à tous pour votre participation

Sam