Discussion :

[Cap'taineSamSam]

Bonjour,

Je souhaite tester si toutes les cellules d'une plage ("A7:J7") sont remplies.
J'ai écrit ceci (qui fonctionne) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
     If Target.Row = 7 _
    And IsEmpty(Range("A7").Value) = False _
    And IsEmpty(Range("B7").Value) = False _
    And IsEmpty(Range("C7").Value) = False _
    And IsEmpty(Range("D7").Value) = False _
    And IsEmpty(Range("E7").Value) = False _
    And IsEmpty(Range("F7").Value) = False _
    And IsEmpty(Range("G7").Value) = False _
    And IsEmpty(Range("H7").Value) = False _
    And IsEmpty(Range("I7").Value) = False _
    And IsEmpty(Range("J7").Value) = False _
    Then
 
        MsgBox ""
 
    End If

Mais voilà, je trouve pas ça très beau de tester les cellules les unes après les autres, et je voudrais savoir s'il n'y avait pas une méthode qui pourrait renvoyer un boolean si toutes les cellules de la plage ne sont pas vides. On peut négliger les cellules comportant une formules.

merci pour votre attention.

Sam

[JahExodus]

Bonjour,

un truc simple comme ceci ne marcherait pas ?

Code :

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

1
2
 
[...]And IsEmpty(Range("A7:J7").Value)[...]

Cdt,

[mjpmjp]

bonjour,

Code :

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

If Target.Row = 7 And Len([a7] & [b7] & [c7] & [d7] & [e7] & [f7] & [g7] & [h7] & [i7] & [J7]) = 0 Then

@+JP

[Cap'taineSamSam]

Bonjour jahExodus et JP.

JahExodus, j'avais essayé ta solution et dès qu'une case était rempli, la condition était vérifiée (ce que je ne veux pas).

Merci JP pour cette solution, je la teste demain au travail, mais à première vu y'a pas de raison que ça ne marche pas.

Je mettrai cette discussion en résolu demain matin si ça fonctionne.

Merci à tous les deux pour votre participation

Sam

[unparia]

Bonjour
Moi, je lis :

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

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

[Cap'taineSamSam]

Bonjour Unparia.

En fait, l'utilisateur rentre des données dans chacune des cellules.
Il y a juste une cellule qui fait prend la valeur "h" si la cellule adjacente est remplie. On peut donc la mettre de côté pour les conditions.

Sam

[patricktoulon]

bonsoir
1 parmi tant d'autre

Code :

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

1
2
3
If target.Row = 7 And Join(WorksheetFunction.Index(Range("A7:J7").Value, 1, 0), "") = "" Then
MsgBox "queudal en ligne 7"
End If

[unparia]

Tu lis encore en diagonale, patricktoulon ... Relis bien sa demande !

[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

[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