Je veux imbriquer plusieurs test sur le bon remplissage=20
d'une page excel (voir ci-dessous), mon probl=E8me et que=20
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" &=20
i & " est vide"
Range("L" & i).Select
End If
Next i
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
Xav
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
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" <anonymous@discussions.microsoft.com> a écrit 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è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
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
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
.
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" <anonymous@discussions.microsoft.com> a
écrit 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è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
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
.
Xav
en fait, je pense que je ne comprends pas ton problème
Le test fonctionne sans problème chez moi
Peut être une piste: si XL est en français, ta cellule "c" & i doit comporter la valeur VRAI (et non pas TRUE)
-- @+
Xav a écrit dans le message de news:29e201c48e97$3e15f9d0$ 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
.
en fait, je pense que je ne comprends pas ton problème
Le test fonctionne sans problème chez moi
Peut être une piste: si XL est en français, ta cellule "c" & i doit
comporter la valeur VRAI (et non pas TRUE)
--
@+
Xav
<anonymous@discussions.microsoft.com> a écrit dans le message de
news:29e201c48e97$3e15f9d0$a501280a@phx.gbl...
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" <anonymous@discussions.microsoft.com> a
écrit 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è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
en fait, je pense que je ne comprends pas ton problème
Le test fonctionne sans problème chez moi
Peut être une piste: si XL est en français, ta cellule "c" & i doit comporter la valeur VRAI (et non pas TRUE)
-- @+
Xav a écrit dans le message de news:29e201c48e97$3e15f9d0$ 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
