Double condition boucle If

Résolu

Condition

siamens_duj Messages postés 212 Statut Membre -
eljojo_e Messages postés 1255 Statut Membre - 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.

Afficher la suite

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 driver - Télécharger - Pilotes & Matériel

1 réponse

Réponse 1 / 1

Gyrus Messages postés 3360 Statut Membre 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+

siamens_duj Messages postés 212 Statut Membre 7

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 3360 Statut Membre 526 > siamens_duj Messages postés 212 Statut Membre

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 1255 Statut Membre 155 > Gyrus Messages postés 3360 Statut Membre

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

Votre réponse

Discussions similaires