Bonjour à tous, j'essai de débuguer un probleme et je ne voie vraiment pas ou cela peut être. Voici mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub scanner()
    Dim i As Integer
    Dim reference, scan As String
    reference = "vide"
    scan = InputBox("saisir reference", "scan reference", "entrer reference")
    i = 3
    Do While scan <> reference Or reference <> "fin"
        reference = Cells(1, i).Value
        i = i + 1
    Loop
End Sub
Mon programme demande à l'utilisateur de saisir une réference et mon programme la cherche dans la 1ere colonne jusqu'à ce qu'il la trouve.
Visiblement le soucis se trouve dans la boucle while (ce que dit le debuggeur).