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

[unparia]

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.

Quelle est donc cette cellule et quelle formule contient-elle ?
(on ne laisse jamais rien "de côté").

[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

Code :

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

 = Si (D7 = "*"; "h"; "")

[unparia]

Regarde ce que fait ceci, dans ce cas :

Code :

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

MsgBox Range("A7").Value <> "" And Range("B7") <> "" And Range("A7").End(xlToRight).Column >= Columns("J").Column

(vrai si bon, faux si pas bon).

Ou également (à main levée)

Code :

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

msgbox range("A7:J7").specialcells(xlcelltypeconstants).count >= columns("J").column - 1

Attention à ce -1. Il est important puisqu'une cellule (celle avec formule) est à déduire.

[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 !

[patricktoulon]

autant pour moi c'est un boolean qu'il veux en retour

Code :

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

MsgBox target.Row = 7 And Join(WorksheetFunction.Index(Range("A7:J7").Value, 1, 0), "") = ""

vrai si row 7 et la ligne vide
faux si au moins une cellule est remplie

[unparia]

C'est pas vrai ! Quand vas-tu enfin lire sa demande ?

[Cap'taineSamSam]

Merci beaucoup pour toutes ces réponses, je vais tester tout ça demain au boulot

[unparia]

va falloir faire le tri, maintenant ...

[patricktoulon]

@unparia
je vais tester les tiens unparia ca m'interesse

si il veut le contraire remplacer "=" par "<>" c'est tout

[unparia]

Teste tout ce que tu veux, mais lis comme moi, au lieu de te précipiter :

Moi, je lis :

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

Voilà voilà ....

[patricktoulon]

entre nous je l'ai relu pour la N eme fois
ceci:

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

en aucun cas il dit si il la veut true ou false

[unparia]

Hé bé ! il ne s'agit en aucun cas de savoir ce qu'il veut afficher ou non (on s'en moque et il affichera ce qu'il entend), mais tout simplement du fait qu'il veut s'assurer de ce que TOUTES les cellules de la plage A7:J7 sont REMPLIES.
Cela est exprimé dès sa toute première phrase et conforté par la nature de son code (qui fonctionne) qu'il demande à alléger.
Ca y est ? Tu comprends ?

[patricktoulon]

pas mal le xltoright

j'ai fait un test avec une formule en "D" avec ceci
la formule en "D"

=SI(D5>0;D5;"")

bien entendu en D5 il y a rien ce qui donne rien en D7
pourtant ceci me donne vrai si toute les autre cellules sont remplie

Code :

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

MsgBox Range("A7").End(xlToRight).Column + 1 >= Columns("J").Column

le +1 c'est parce que je pars de la cellule"A7" non pas parce qu'il y a une formule