Maj label

Bonsoir

j'ai un souci sur mon userform :

j'aimerais que mon label (label11) récupére une valeur dans une cellule.

cette valeur est le résultat d'une recherchev (c'est un prénom qui est le résultat de la recherchev)

voici ma procedure dans mon userform

je choisis un prénom à l'aide d'une combobox puis dans mon label doit apparaitre le prénom aussitot en allant le chercher dans la cellule L2

j'ai parcourus pas mal de forum mais je n'arrive pas à la faire fonctionner

merci pour votre précieuse aide

SANKOUKAI

Bonsoir,

On ne voit pas ton code !

oups désolé

Private Sub Label11_change()

Me.Label11.Caption = Range("l2").Value

End Sub

Private Sub UserForm_Initialize()

Me.Label11.Caption = Range("l2").Value

End Sub

Faut apprendre à utiliser les balises code : la touche </> au-dessus de la fenêtre.

L'Initialize fonctionnera... pour la fois suivante !

Mais faire modifier le libellé de l'étiquette par le changement de libellé de l'étiquette, ça se mord la queue ! Aucune chance.

Regarde bien dans ton code, tu as sûrement autre chose si la cellule I2 a la bonne valeur !

Bonjour toutes et tous

coucou M.Ferrand

@Sankoukai

à tester, en exemple Feuil1

Private Sub Label11_change()
Me.Label11.Caption = ThisWorkbook.Sheets("Feuil1").Range("L2").Value
End Sub

Private Sub UserForm_Initialize()
Me.Label11.Caption = ThisWorkbook.Sheets("Feuil1").Range("L2").Value
End Sub

crdlt,

André

bonsoir

merci tous d'abord d'avoir pris le temps pour mon problème

j'ai insérer le code mais lorsque je change de nom avec la combobox, le label ne change pas

j'ai joint mon classeur

merci pour votre aide

Re,

à modifier userform refclient :

Private Sub ComboBox1_Change()
Range("k2") = ComboBox1.Value
Me.Label11.Caption = ThisWorkbook.Sheets("Clients").Range("L2").Value
End Sub

EDIT, je viens de remarquer à l'instant, si l'on se trouve sur l'onglet Clients et que l'userform Refclient est exécutée cela fonctionne, sur un autre onglet ne fonctionne pas.

crdlt,

André

c'est super !

sincèrement merci

il fallait finalement agir sur la combobox et non sur le label

merci encore !

re,

oui, mais un truc me chiffonne c'est qu'elle ne fonctionne que si l'on se trouve sur la feuille Client

j'ai testé en mettant le code comme ceci cela fonctionne mieux, même si'l'on se trouve sur un autre onglet:

Private Sub ComboBox1_Change()
With Worksheets("Clients").Activate
Range("k2") = ComboBox1.Value
Me.Label11.Caption = ThisWorkbook.Sheets("Clients").Range("L2").Value
End With
End Sub

ci-joint

crdlt,

André

Re,

Cela me paraît bien mal engagé, car tu n'affiches que les noms dans ta Combo, c'est fortement probable que tu auras quelques homonymes au niveau des noms.

Une solution serait de prendre les 2 colonnes pour afficher les noms et prénoms dans la Combo.

Et pour afficher d'autres informations, il faut des TextBox, pas des Label.

Cordialement.

bonsoir

oui je comprends mieux maintenant

merci pour tous

Sankoukai