Discussion :

[Nicolas JACQUIN]

Bonsoir,

Je reviens vous voir en espérant de l'aide de votre part.
j'ai réussi à faire un code mais un peu galère, il fonctionne mais je pense pas que se soit le mieux.

j'ai un userform avec un combobox1 et 3 label, avec le combobox je sélectionne mon client qui lui est en feuil1(colonne q3:q25) et 2 cellule à gauche le n° de devis(colonne o3:o25) lui correspondant,
le truc c'est qui peux y avoir une ou plusieurs ligne correspondant à ce client.
donc ce que je souhaiterai c'est que qu'en je sélectionne le client via le combobox, le label1 me marque le devis lui étant attribué ou les devis après en label2 et 3.

en vous remerciant de l'aide que vous m'apporterez

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
37
38
39
40
41
42
Private Sub ComboBox1_Change()
 
Dim nom As Range
Dim chaine As String, trouve As String
 
 
    chaine = ComboBox1.Value
    Set nom = Sheets("nico").Columns(1).Cells.Find(chaine, , xlValues, xlWhole)
    trouve = nom.Address
 
   If Not nom Is Nothing Then
        nom.Select
        Me.Controls("Label1").Caption = ActiveCell.Offset(0, 1)
        Set nom = Sheets("nico").Columns(1).FindNext(nom)
 
    End If
 
    If Not nom Is Nothing Then
        nom.Select
        Me.Controls("Label2").Caption = ActiveCell.Offset(0, 1)
        Set nom = Sheets("nico").Columns(1).FindNext(nom)
 
    End If
 
    If Not nom Is Nothing Then
        nom.Select
        Me.Controls("Label3").Caption = ActiveCell.Offset(0, 1)
        Set nom = Sheets("nico").Columns(1).FindNext(nom)
 
    End If
 
If Label1.Caption = Label2.Caption Then
Label2.Visible = False
End If
If Label2.Caption = Label3.Caption Then
Label3.Visible = False
End If
If Label1.Caption = Label3.Caption Then
Label3.Visible = False
End If
 
End Sub

[Invité]

Bonjour,

Le fichier joint contient une solution possible qui ne va pas vers une simplification, mais correspond à ce que j'aurais réalisé dans votre cas.

J'ai ajouté un scroll qui pointe sur le premier devis du client sélectionné et une mise en couleur pour repérer l'ensemble des devis. Tout cela peut être éliminé, surtout si vous avez des cellules déjà colorées.

Cordialement.

[patricktoulon]

Bonjour
la commande find next se fait en général dans une boucle do loop ca réduit vachement le code

en reprenant simplement l'exemple,de code dans l'aide de vba et en l'adaptant a ton cas ca donnerait cela
chaine = ComboBox1.Value

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
With Worksheets("nico").Range("a1:a" & Cells(Rows.Count, 1).End(xlUp).Row)
    Set c = .Find(chaine, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
          i = i + 1
          Me.Controls("Label" & i).Caption = c.Offset(0, 1)
 
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

comme cela tu risque pas d'avoir 2 label avec la même donnée c'est impossible

[Invité]

bonjour,
regardes ça :http://www.developpez.net/forums/d14...e/#post8128041

[Nicolas JACQUIN]

bonjour,

merci de votre réponse, cela correspond mieux à mon problème, sur mon classeur de test ça va impec j'essai de l'adapter à mon programme et vous tiens au courant

merci beaucoup.

[Nicolas JACQUIN]

Bonjour
la commande find next se fait en général dans une boucle do loop ca réduit vachement le code

en reprenant simplement l'exemple,de code dans l'aide de vba et en l'adaptant a ton cas ca donnerait cela
chaine = ComboBox1.Value

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
With Worksheets("nico").Range("a1:a" & Cells(Rows.Count, 1).End(xlUp).Row)
    Set c = .Find(chaine, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
          i = i + 1
          Me.Controls("Label" & i).Caption = c.Offset(0, 1)
 
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

comme cela tu risque pas d'avoir 2 label avec la même donnée c'est impossible

re, en faite j'ai un souci, parce que sur ma forme j'ai deja des label attribués à différentes chose, voici le code que j'ai fait qui fonctionne sauf les label33 34 35

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
Private Sub ComboBox2_Change() 'sélection client
 
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
Dim chaine As String
 
Label33.Caption = "" ' attribué la valeur du devis 1 en Range("O3:O24") si il y en a
Label34.Caption = "" ' attribué la valeur du devis 2 en Range("O3:O24") si il y en a
Label35.Caption = "" ' attribué la valeur du devis 3 en Range("O3:O24") si il y en a
Label32.Visible = False
 
nomcherche = ComboBox2.Value
 
With Worksheets("acceuil").Range("Q3:Q24")
 
Set Cellule = .Find(nomcherche, LookIn:=xlValues)
If Not Cellule Is Nothing Then Label32.Visible = True 'caption = Il y a un ou plusieurs documents en cours.
 
End With

parce que en gros j'ai en feuill1 ("acceuil"), en feuill2 ("modele"), feuill3 ("clients"), donc la feuille 3 j'ai ma liste de clients mais ca c'est pas le probleme, avec la feuille2 je fait mais devis ou facture, mais quand je fait un devis le détail va automatiquement en feuille 1

mais sur mon userform mon combobox 2 me sert à ajouter,modifier et voir le détail de mais client.
donc avec la partie de code si dessus quand je sélectionne un client (qui va donc être piocher sur la feuille3 ) ca me marque sur l' userform (Il y a un ou plusieurs documents en cours., mais là l'info est rechercher sur la feuille1) et cette partie la foncftionne, et ce que j'aimerai c'est que ca marque en label33 34 35 le n° du ou des devis si il y en a.


si dessous voici le code complet que gère le cobombox2

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
Private Sub ComboBox2_Change() 'sélection client
 
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
Dim chaine As String
 
Label33.Caption = "" ' attribué la valeur du devis 1 en Range("O3:O24") si il y en a
Label34.Caption = "" ' attribué la valeur du devis 2 en Range("O3:O24") si il y en a
Label35.Caption = "" ' attribué la valeur du devis 3 en Range("O3:O24") si il y en a
Label32.Visible = False
 
nomcherche = ComboBox2.Value
 
With Worksheets("acceuil").Range("Q3:Q24")
 
Set Cellule = .Find(nomcherche, LookIn:=xlValues)
If Not Cellule Is Nothing Then Label32.Visible = True 'caption = Il y a un ou plusieurs documents en cours.
 
End With
 
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
Label28.Visible = False
CommandButton1.Visible = False
CommandButton9.Visible = True
CommandButton5.Visible = True
With CommandButton5
    .Top = 264
    .Left = 282
    .Height = 18
    .Width = 83.95
End With
CommandButton8.Visible = True
With CommandButton8
    .Top = 264
    .Left = 378
    .Height = 18
    .Width = 90
End With
Label29.Visible = True
With Label29
    .Top = 12
    .Left = 30
    .Height = 18
End With
CommandButton2.Visible = True
With CommandButton2
    .Top = 294
    .Left = 378
    .Height = 18
    .Width = 90
End With
With Sheets("clients")
maposi = ComboBox2.ListIndex + 7
TextBox15.Value = Worksheets("clients").Range("b" & maposi & "").Value
TextBox16.Value = Worksheets("clients").Range("c" & maposi & "").Value
TextBox17.Value = Worksheets("clients").Range("e" & maposi & "").Value
TextBox23.Value = Worksheets("clients").Range("d" & maposi & "").Value
TextBox18.Value = Worksheets("clients").Range("f" & maposi & "").Value
TextBox19.Value = Worksheets("clients").Range("g" & maposi & "").Value
TextBox20.Value = Worksheets("clients").Range("h" & maposi & "").Value
TextBox25.Value = Worksheets("clients").Range("j" & maposi & "").Value
TextBox26.Value = Worksheets("clients").Range("i" & maposi & "").Value
TextBox27.Value = Worksheets("clients").Range("k" & maposi & "").Value
End With
End Sub

et voici une capture pour donner une idée

Pièce jointe 170796

merci du temps pris

bien cordialement.