BASSDINGUE
XLDnaute Occasionnel
bjr messieurs,
Je vais essayer d'etre claire:
en
colonne a= date envoi
colonne b= nom
colonne c= fournisseur
donc je voudrais:
Dans 1 USF, en cliquant sur le boutton "retard" je veux voir apparaitre dans la listbox1 de cet meme usf:
les noms en fonctions du delta entre la date d'envoi et now si ce delta est dépassé
Sachant que ce delta varie en fonction des fournisseurs.
dans l'exemple suivant (piquer à thierry soit dit en passant) je voudrais que la recherche soit faite selon les criteres expliqué avant
Private Sub CommandButton2_Click() 'MODE RECHERCHE STRING
Dim Cherche As String
Dim L As Integer
Dim Maplage As Range
Dim FirstADdress As String
Dim C As Object
Cherche = TextBox4
If Cherche = "" Then
Exit Sub
End If
ListBox1.Visible = False
ListBox2.Visible = True
OptionButton1.Visible = False
OptionButton2.Visible = False
OptionButton3.Visible = False
UserForm1.Caption = "Thierry's Démo Mode Recherche par String"
L = Sheets("Database").Range("G65536").End(xlUp).Row
Set Maplage = Sheets("Database").Range("G2:G" & L)
With Maplage
Set C = .Find(Cherche, LookIn:=xlValues)
If Not C Is Nothing Then
FirstADdress = C.Address
Do
ListBox2.AddItem C
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> FirstADdress
End If
End With
End Sub
Si vous avez mieux, je n'est rien compte.
ça fait 2 jours que je tourne sur le site et je trouve rien que me convienne.
Je pense que la réponse est simple pour ceux qui maitrise vb, ce qui n'est pas mon cas
merci à tous
bassdingue
Je vais essayer d'etre claire:
en
colonne a= date envoi
colonne b= nom
colonne c= fournisseur
donc je voudrais:
Dans 1 USF, en cliquant sur le boutton "retard" je veux voir apparaitre dans la listbox1 de cet meme usf:
les noms en fonctions du delta entre la date d'envoi et now si ce delta est dépassé
Sachant que ce delta varie en fonction des fournisseurs.
dans l'exemple suivant (piquer à thierry soit dit en passant) je voudrais que la recherche soit faite selon les criteres expliqué avant
Private Sub CommandButton2_Click() 'MODE RECHERCHE STRING
Dim Cherche As String
Dim L As Integer
Dim Maplage As Range
Dim FirstADdress As String
Dim C As Object
Cherche = TextBox4
If Cherche = "" Then
Exit Sub
End If
ListBox1.Visible = False
ListBox2.Visible = True
OptionButton1.Visible = False
OptionButton2.Visible = False
OptionButton3.Visible = False
UserForm1.Caption = "Thierry's Démo Mode Recherche par String"
L = Sheets("Database").Range("G65536").End(xlUp).Row
Set Maplage = Sheets("Database").Range("G2:G" & L)
With Maplage
Set C = .Find(Cherche, LookIn:=xlValues)
If Not C Is Nothing Then
FirstADdress = C.Address
Do
ListBox2.AddItem C
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> FirstADdress
End If
End With
End Sub
Si vous avez mieux, je n'est rien compte.
ça fait 2 jours que je tourne sur le site et je trouve rien que me convienne.
Je pense que la réponse est simple pour ceux qui maitrise vb, ce qui n'est pas mon cas
merci à tous
bassdingue