Discussion :

[BERRACHED SAID]

bonjour le forum

je voudrais savoir s'il y a moyens d'affecter le résultat d'une recherche sur labels.

en bref, quant je tape sur textbox le numéro de format ("263/01/2012/0001") il me donne tous ce qu'il contiens en colonne "D".

merci d'avance

[BERRACHED SAID]

Bonjour le Forum

il me semble d'avoir mis un fichier joint hier ?????????

de tout façon voila le bout de code que j’utilise.

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
30
31
32
33
34
35
36
Private Sub TextBox1_Change()
On Error Resume Next
Dim Plage As Range, Cell As Range
Dim Recherches As String, Adresse As String
Dim L As Integer
Dim c As Range
Dim i As Integer
Dim j As Integer
Dim k As Integer
Recherches = Format(TextBox1.Value, "000/00/0000/0000")
 
L = Sheets("Recouvrement").Range("A" & "65536").End(xlUp).Row
Set Plage = Sheets("Recouvrement").Range("A" & "2:" & "A" & L)
With Plage
Set c = .Find(Recherches, lookat:=xlPart)
If Not c Is Nothing Then
Adresse = c.Address
Do
    If UCase(Recherches) = UCase(Left(c, Len(Recherches))) Then
        'alimentation des labels
            For j = 1 To 6
                Controls("Label" & ((j - 3) * 4) + L - 1).Caption = c.Cells(j, L).Value
            'Next k
            Next j
        'Me.Label16.Caption = c.Offset(0, 3)
        'Me.Label17.Caption = c.Offset(0, 3)
        'Me.Label18.Caption = c.Offset(0, 3)
        'Me.Label19.Caption = c.Offset(0, 3)
        'Me.Label20.Caption = c.Offset(0, 3)
        'Me.Label20.Caption = c.Offset(0, 3)
    End If
    Set c = .FindNext(c)
    Loop While Not c Is Nothing And c.Address <> Adresse
    End If
    End With
End Sub

Merci d'avance

[BERRACHED SAID]

bonjour le forum

c'est bon j'ai trouvé la solution et ça fonctionne a merveille

simplement je me demande pourquoi mon fichier joint a été retiré ? sans qu'on me fasse des explications c'est bizarre

bonne nuit a tous le monde