Valeur de combo ds les labels

[Gix]

Bonjour le forum,

Comme d'hab, je cale vers la fin, j'aurai besoin de votre aide afin d'en venir à bout de mon idée Vous trouverez plus d'infos dans le fichier joint.
Merci de votre aide.
Bonne journée.
Gix. [file name=ImprimerEnveloppe.zip size=50769]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ImprimerEnveloppe.zip[/file]

 

[porcinet82]

Salut Gix,


Tiens avec cette macro ca devrait fonctionner (a placer dans le code du USF):

Private Sub ComboClientBox_Change()
Dim i As Byte

For i = 2 To Sheets('clients').Range('A65536').End(xlUp).Row
    If ComboClientBox.Value = Sheets('clients').Cells(i, 1).Value Then
        ImpEnveloppes.Label2.Caption = Sheets('clients').Cells(i, 2).Value
        ImpEnveloppes.Label4.Caption = Sheets('clients').Cells(i, 3).Value
        ImpEnveloppes.Label6.Caption = Sheets('clients').Cells(i, 4).Value
        ImpEnveloppes.Label8.Caption = Sheets('clients').Cells(i, 5).Value
    End If
Next i
End Sub

@+

 

[Hervé]

Bonjour gix, porcinet, le forum

trop rapide porcinet

en pièce jointe ma proposition.

salut [file name=ImprimerEnveloppe_20060216140152.zip size=27601]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ImprimerEnveloppe_20060216140152.zip[/file]

 

[Gix]

Bonjour, Porcinet, Hervé et le forum,

Alors là les gars merci de m'avoir répondu si vite,
Porcinet je te remercie de m'avoir donné cette astuces pour afficher des valeurs dans les labels.
Par contre Hervé rien à redire rien rajouter Nickel c'est exactement ce qu'il me fallait.
Un grand merci à vous deux de m'avoir accordé du temps .
A bientôt
Gix.