Double condition boucle If

Résolu/Fermé
siamens_duj Messages postés 192 Date d'inscription vendredi 20 juin 2014 Statut Membre Dernière intervention 14 février 2019 - 28 oct. 2015 à 14:46
eljojo_e Messages postés 1155 Date d'inscription lundi 10 mai 2010 Statut Membre Dernière intervention 14 octobre 2022 - 28 oct. 2015 à 16:25
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.
A voir également:

1 réponse

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
28 oct. 2015 à 15:06
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
siamens_duj Messages postés 192 Date d'inscription vendredi 20 juin 2014 Statut Membre Dernière intervention 14 février 2019 7
Modifié par siamens_duj le 28/10/2015 à 15:19
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...
0
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523 > siamens_duj Messages postés 192 Date d'inscription vendredi 20 juin 2014 Statut Membre Dernière intervention 14 février 2019
28 oct. 2015 à 16:22
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+
0
eljojo_e Messages postés 1155 Date d'inscription lundi 10 mai 2010 Statut Membre Dernière intervention 14 octobre 2022 153 > Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016
28 oct. 2015 à 16:25
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
0