Simplifier les condition d'un If

Bonjour,

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

Code:

---

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

Bonjour,

un truc simple comme ceci ne marcherait pas ?

Code:

---

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

---

Cdt,

bonjour,

Code:

---

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

---

@+JP

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

Bonjour
Moi, je lis :

Citation:

---

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 ?

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

Citation:

---

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é").

J'ai pas le fichier sous les yeux (il est au boulot) mais si je me souviens bien:
c'est la case C7

Code:

---

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

---

Regarde ce que fait ceci, dans ce cas :

Code:

---

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:

---

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.

bonsoir
1 parmi tant d'autre

Code:

---

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

---

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

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

Code:

---

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

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

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

va falloir faire le tri, maintenant ...:cry:

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

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

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

Moi, je lis :

Citation:

---

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

---

Voilà voilà ....:mouarf:

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

Citation:

---

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

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 ?

pas mal le xltoright

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

Citation:

---

=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:

---

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