Double condition boucle If
Résolu
siamens_duj
Messages postés
212
Statut
Membre
-
eljojo_e Messages postés 1255 Statut Membre -
eljojo_e Messages postés 1255 Statut Membre -
Bonjour,
J'aimerais savoir s' il serait possible de faire une double condition dans une boucle If ?
Car j'ai essayé de coder cette dernière mais cela ne fonctionne pas.
J'ai fais :
J'ai aussi fais :
Je ne comprends pas ou est mon erreur ..
Pourriez-vous m'aiguiller svp.
Merci.
J'aimerais savoir s' il serait possible de faire une double condition dans une boucle If ?
Car j'ai essayé de coder cette dernière mais cela ne fonctionne pas.
J'ai fais :
If Cells(i, 4).Value <> "" And IsEmpty(Cells(i, 5)) Then
J'ai aussi fais :
If Cells(i, 4).Value <> "" And if IsEmpty(Cells(i, 5)) Then
Je ne comprends pas ou est mon erreur ..
Pourriez-vous m'aiguiller svp.
Merci.
1 réponse
-
Bonjour,
Tu devrais indiquer quelle est la condition que tu souhaites appliquer.
L'instruction
If Cells(i, 4).Value <> "" And IsEmpty(Cells(i, 5)) Then
est correcte.
A+-
Bonjour et merci de votre réponse.
Mon code entier est :
Option Explicit
Private Sub CommandButton3_click()
i = 3
BLeft = 320
'370.5
BTop = 50,75
BWidth = 72
BHeight = 24
Do While i < 900
If Cells(i, 4).Value <> "" and cells(i, 5).value = " " Then
ActiveSheet.Buttons.Add(BLeft, BTop, BWidth, BHeight).Select
BTop = BTop + 26
i = i + 1
Else
MsgBox ("Fin des lignes")
GoTo Fin:
End If
Loop
Fin:
End Sub
J'ai testé autre chose à la place de IsEmpty mais ça ne fonctionne toujours pas .
Donc ma condition est : Si la cellule D3 est differente de vide et que la cellule E3 est vide alors créer un bouton.
Ainsi de suite pour D4 etc...- Essaie comme cela
Private Sub CommandButton3_click()
i = 3
BLeft = 320
BTop = 50.75
BWidth = 72
BHeight = 24
Do While i < 900
If Cells(i, 4).Value <> "" And Cells(i, 5).Value = "" Then
ActiveSheet.Buttons.Add(BLeft, BTop, BWidth, BHeight).Select
BTop = BTop + 26
i = i + 1
Else
MsgBox ("Fin des lignes")
Exit Do
End If
Loop
End Sub
A+ - Bonjour,
Fonctionne aussi avec ISNULL et NOT ISNULL
Private Sub CommandButton3_click()
i = 3
BLeft = 320
BTop = 50.75
BWidth = 72
BHeight = 24
Do While i < 900
If not isnull(Cells(i, 4).Value) And isnull(Cells(i, 5).Value) Then
ActiveSheet.Buttons.Add(BLeft, BTop, BWidth, BHeight).Select
BTop = BTop + 26
i = i + 1
Else
MsgBox ("Fin des lignes")
Exit Do
End If
Loop
End Sub
-
