Discussion :

[amerex]

Bonjour!
J'essaie d'exécuter cette boucle, mais rien ne fonctionne... j'aimerais votre avis, à savoir si quelqu'un peut trouver l'erreur...:

Code VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sheets("_back").Range("C2").Value = txtIndic.Value
    Dim i As Integer
    i = 2
        Do
            If Sheets("_back").Range("B" & i).Value = 1 Then
                lblProduction.Caption = "La carte sera produite le " & Sheets("_black").Range("A" & i).Value
                Exit Sub
            End If
            If Sheets("_back").Range("B" & i).Value = 0 Then
                i = i + 1
            End If
        Loop Until i = 30
 
 
Exit Sub

[ucfoutu]

Bonjour,

et on peut savoir ce qui ne fonctionne pas ou ne correspond pas à tes attentes (à exposer, d'ailleurs) ?

[amerex]

C'est vrai, j'étais pressé, désolé,

En fait ce qui clochait, c'est que je comparais des dates avec un textbox qui contient du texte. J'ai donc envoyé ma valeur contenue dans le textbox dans une variable et convertie par CDate(). Là ça a fonctionné ;-)