recherche d'element dans excel, avec une macro
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
