Discussion :

[Philippe Tulliez]

Bonsoir,
Une solution avec EVALUATE

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

et aussi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Marc-L]

Bonjour !

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

___________________________________________________________________________________________________________

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

___________________________________________________________________________________________________________

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

[pijaku]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[unparia]

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

[mjpmjp]

bonjour,

@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

@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

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

comment "racourcir" ...disait ABRAS!!!....

@+JP

[pijaku]

Bonjour Jacques,

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?

[unparia]

Ah ..
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

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

Amitiés

[pijaku]

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.

[Cap'taineSamSam]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci encore à tous pour votre participation

Sam