XL 2016 Erreur avec boucle Do while

Phillip · 28 Novembre 2020

Bonjour,

J'ai le code suivant pour imprimer des feuilles. Je veux pouvoir saisir le nom de la feuille à imprimer.

Ma boucle Do while plante quand j'ai les 2 conditions (avec OR), alors que ça marche si j'ai une seule condition. Que ne vois-je pas ?

VB:

Sub imprimeClasseur()
Dim I As String


I = InputBox("Saisir le nom de l'onglet à imprimer", "Impression")
Debug.Print I
Do While I <> "tata" Or I <> "toto"
    MsgBox ("Saisie non valide")
    I = InputBox("Saisir le nom de l'onglet à imprimer", "Impression")
Loop



'With ActiveWorkbook.Sheets(I)
'    .PageSetup.Orientation = xlPortrait
'    .CenterFooter = "Calculs pour "
'
'    .LeftMargin = Application.InchesToPoints(0.7)
'    .RightMargin = Application.InchesToPoints(0.7)
'    .TopMargin = Application.InchesToPoints(0.75)
'    .BottomMargin = Application.InchesToPoints(0.75)
'    .HeaderMargin = Application.InchesToPoints(0.3)
'    .FooterMargin = Application.InchesToPoints(0.3)
'    .CenterHorizontally = True
'    .CenterVertically = True
'    .PrintGridlines = False
'    .BlackAndWhite = False
'
'End With



ActiveWorkbook.Sheets(I).PrintOut
End Sub

Merci

Cordialement

M12 · 28 Novembre 2020

Bonjour,

VB:

Do While I <> "tata" And I <> "toto"

patricktoulon · 28 Novembre 2020

Bonjour
dans ce contexte tu doit utiliser "And" car "Or" annule la première condition bien Evidemment
c'est logique
et puis un do/loop avec un nouvel input ça n'est pas une bonne solution
tu peux faire une boucle sans do loop avec goto avec un seul input

ci dessous un exemple avec un max de 4 essaie ;au dela bye bye!!

VB:

Sub test()
    Dim I As String, counter&
re:
    I = InputBox("Saisir le nom de l'onglet à imprimer", "Impression")
    If I <> "tata" And I <> "toto" Then
        counter = counter + 1: MsgBox ("Saisie non valide")
        If counter <= 3 Then
            GoTo re
        Else: MsgBox "nombre de tentatives atteint bye bye!!!!": Exit Sub
        End If
    End If
ActiveWorkbook.Sheets(I).PrintOut
End Sub

Phillip · 28 Novembre 2020

Merci beaucoup, je n'avais pas réalisé pour le OR !

Cordialement

XL 2016 Erreur avec boucle Do while

Phillip

XLDnaute Occasionnel

M12

XLDnaute Accro

patricktoulon

XLDnaute Barbatruc

Phillip

XLDnaute Occasionnel

Discussions similaires