XL 2016 Erreur avec boucle Do while

[Phillip]

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 ?

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]

Bonjour,

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

 

[patricktoulon]

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!!

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]

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

Cordialement