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 .
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.
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
Merci D'avance pour votre aide
Partager