[XL-2007] recherche d'element dans excel, avec une macro [Résolu]

[astroflo]

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 :

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

[jfontaine]

Bonjour,

En remettant le code d'alimentation des objets TextBox, labelBox et listbox dans la boucle de recherche le problème devrait être réglé

Code :

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
Private Sub fiche_urgente_Click()
Dim FirstAddress As String
Dim c as Range
 
With Sheets("xxxxxx").Range("R1:R2000")
 
    Set c = .Find("urgent", LookIn:=xlValues)
 
    If Not c Is Nothing Then
        FirstAddress = c.Address
 
        Do
            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
 
            Set c = .FindNext(c)
 
        Loop While Not c Is Nothing And c.Address <> FirstAddress
 
    End If
End With
 
End Sub

[astroflo]

merci ca marche nickel