bonjour dans le cadre d'un outil que je développe
je cherche à avoir un bouton dans un userforme qui doit permettre de se déplacer dans la base de donnée en affichant dans le formulaire les informations de la base de donnée.

Voila mon problème

dans l'une des colonne, il y a un flag avec les valeur urgente, en retard, traitement en cours

dans le formulaire j'ai un bouton qui souhaite parcourir toutes les donnée qui on la valeur urgente.

aujourd'hui mon code est écrit de cette manière :
mais quand je l'execute et que j'appuis sur le bouton il me renvoie toujours la premier valeur trouvé. et je souhaiterais trouvé les suivantes. Comment cela est possible .

Code : 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
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Private Sub fiche_urgente_Click()
 
 
With Sheets("xxxxxx").Range("R1:R2000")
    Set c = .Find("urgent", LookIn:=xlValues)
 
    If Not c Is Nothing Then
        firstAddress = c.Address
        firstAdress_s = Split(c.Address, "$")
        MsgBox firstAddress
 
        Do
         '   c.Value = 5
            Set c = .FindNext(c)
       Loop While Not c Is Nothing And c.Address <> firstAddress
       Txtind.Caption = Sheets("base_citoyenne").Range(c.Address).Offset(0, -16).Value
 
        Txtnom.Value = Sheets("base_citoyenne").Range(c.Address).Offset(0, -15).Value
        Txtprenom.Value = Sheets("base_citoyenne").Range(c.Address).Offset(0, -14).Value
        Txt_mail.Text = Sheets("base_citoyenne").Range(c.Address).Offset(0, -13).Value
        list_ville.Text = Sheets("base_citoyenne").Range(c.Address).Offset(0, -12).Value
        list_quartier.Text = Sheets("base_citoyenne").Range(c.Address).Offset(0, -12).Value
        TextAdrs.Text = Sheets("base_citoyenne").Range(c.Address).Offset(0, -10).Value
 
    End If
End With
 
End Sub
Ce que je souhaiterais c'est qu'il puisse passé a la ligne suivante ou il y a le flag "urgent" à chaque fois que je clique sur le bouton fiche_urgente.

Merci D'avance pour votre aide