Double condition boucle If

Résolu/Fermé

Condition

siamens_duj Messages postés 191 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:

Double condition if
Double ecran - Guide
Whatsapp double sim - Guide
Excel cellule couleur si condition texte - Guide
Double cote ✓ - Forum Perl
Double appel - Guide

1 réponse

Réponse 1 / 1

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+

siamens_duj Messages postés 191 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...

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 191 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+

eljojo_e Messages postés 1155 Date d'inscription lundi 10 mai 2010 Statut Membre Dernière intervention 14 octobre 2022 152 > 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

Discussions similaires

Liste déroulante et fonction si

Formule "SI" avec conditions multiples sous Libre Office

Copier contenu de cellulles dans autre feuille sous condition

Déplacer ligne sous condition d'une cellule

Chercher la plus grande valeur avec un critère de recherche

exécuter une fonction "grande valeur" selon plusieurs critères

Discussions similaires

Newsletters