Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel imbriquer plusieurs test...suite

imbriquer plusieurs test...suite

1 réponse
Avatar
Patrice FY
Non en fait je n'ai rien oubli=E9 mais je suis d=E9butant, je=20
veux enchainer plusieurs test =E0 la suite car je les=20
executerai avec un seul bouton, j'ai essay=E9=20
individuellement c'est ok mais bout =E0 bout cela ne marche=20
plus=20

Merci de ton aide
>-----Message d'origine-----
>Bonjour Patrick FY
>
>Est ce que tu n'aurais pas oubli=E9 une condition "Else"=20
(et supprimer le
>commentaire devant le 2eme MsgBox de la de la boucle i)?
>Sinon je ne comprends pas ta question
>
>Sub Test_condition_remplissage()
>If Range("C41") =3D "" Then
>MsgBox "Vous devez imp=E9rativement indiquer...etc. "
>End If
>
>For i =3D 13 To 35
>If Range("c" & i) =3D True And Range("l" & i) =3D "" Then
>MsgBox "la cellule L" & i & " n'est pas renseign=E9"
>
>Else
>
>MsgBox "la cellule A" & i & " est Vrai et la cellule B" &
>i & " est vide"
>Range("L" & i).Select
>End If
>Next i
>
>End Sub
>
>
>--=20
>@+
>
>Xav
>"Patrice FY" <anonymous@discussions.microsoft.com> a=20
=E9crit dans le message
>de news:2a7f01c48e91$55c9d7f0$a601280a@phx.gbl...
>Hello,
>
>Je veux imbriquer plusieurs test sur le bon remplissage
>d'une page excel (voir ci-dessous), mon probl=E8me et que
>seul le premier test se fait pourquoi ?
>
>Sub Test_condition_remplissage()
>If Range("C41") =3D "" Then
>MsgBox "Vous devez imp=E9rativement indiquer...etc. "
>End If
>
>For i =3D 13 To 35
>If Range("c" & i) =3D True And Range("l" & i) =3D "" Then
>MsgBox "la cellule L" & i & " n'est pas renseign=E9"
>'MsgBox "la cellule A" & i & " est Vrai et la cellule B" &
>i & " est vide"
>Range("L" & i).Select
>End If
>Next i
>
>End Sub
>
>
>.
>
.
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
J-Dan
bonjour Patrice,

ton test est bien effectué, mais si tu ne vois aucune
réponse (MsgBox), c'est peut-être que les conditions ne
sont jamais réunies ("Ci")=True et ("Li")="".
Pour que Range("Ci") soit True il faut que sa valeur
soit "Vrai" ou -1.
Si tu testes ("Ci") non vide et ("Li") vide, tu dois
écrire :
If Range("c" & i) <>"" And Range("l" & i) = "" Then...

J-Dan


-----Message d'origine-----
Non en fait je n'ai rien oublié mais je suis débutant,
je

veux enchainer plusieurs test à la suite car je les
executerai avec un seul bouton, j'ai essayé
individuellement c'est ok mais bout à bout cela ne
marche

plus

Merci de ton aide
-----Message d'origine-----
Bonjour Patrick FY

Est ce que tu n'aurais pas oublié une condition "Else"
(et supprimer le

commentaire devant le 2eme MsgBox de la de la boucle i)?
Sinon je ne comprends pas ta question

Sub Test_condition_remplissage()
If Range("C41") = "" Then
MsgBox "Vous devez impérativement indiquer...etc. "
End If

For i = 13 To 35
If Range("c" & i) = True And Range("l" & i) = "" Then
MsgBox "la cellule L" & i & " n'est pas renseigné"

Else

MsgBox "la cellule A" & i & " est Vrai et la cellule B"
&


i & " est vide"
Range("L" & i).Select
End If
Next i

End Sub


--
@+

Xav
"Patrice FY" a
écrit dans le message

de news:2a7f01c48e91$55c9d7f0$
Hello,

Je veux imbriquer plusieurs test sur le bon remplissage
d'une page excel (voir ci-dessous), mon problème et que
seul le premier test se fait pourquoi ?

Sub Test_condition_remplissage()
If Range("C41") = "" Then
MsgBox "Vous devez impérativement indiquer...etc. "
End If

For i = 13 To 35
If Range("c" & i) = True And Range("l" & i) = "" Then
MsgBox "la cellule L" & i & " n'est pas renseigné"
'MsgBox "la cellule A" & i & " est Vrai et la cellule
B" &


i & " est vide"
Range("L" & i).Select
End If
Next i

End Sub


.

..



.