Double condition boucle If [Résolu/Fermé]

Signaler
Messages postés
191
Date d'inscription
vendredi 20 juin 2014
Statut
Membre
Dernière intervention
14 février 2019
-
Messages postés
1148
Date d'inscription
lundi 10 mai 2010
Statut
Membre
Dernière intervention
14 mars 2021
-
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 :

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

Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
526
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+
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
191
Date d'inscription
vendredi 20 juin 2014
Statut
Membre
Dernière intervention
14 février 2019
6
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...
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
526 >
Messages postés
191
Date d'inscription
vendredi 20 juin 2014
Statut
Membre
Dernière intervention
14 février 2019

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+
Messages postés
1148
Date d'inscription
lundi 10 mai 2010
Statut
Membre
Dernière intervention
14 mars 2021
115 >
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016

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