Afficher le contenu d'une cellule dans un Label

[TheProdigy]

Bonjour à tous,

Merci au forum grâce à qui j'ai pu avoir le fichier joint.
Je veux afficher le contenu A1 en label2, A2 en label3 et A3 en label4 et A4 en Label5

Merci d'avance

Lefichier:

Cijoint.fr - Service gratuit de dépôt de fichiers

 

[Catrice]

Re : Afficher le contenu d'une cellule dans un Label

Bonjour,

Tu peux faire comme ceci :

Private Sub UserForm_Initialize()
nomfeuille3 = "Items"
For i = 2 To 5
Controls("Label" & i) = Range("A" & i - 1)
Next
Call ComboBox2remp("", "a")
End Sub

Attention ! pour que cela fonctionne, il faut que tu modifies les propriétés Name de tes Labels.
En effet, Label2 était en fait Label6
Il faut agrandir la teille de Label3

 

[TheProdigy]

Re : Afficher le contenu d'une cellule dans un Label

Merci ça marche mais pourquoi les labels ne changent pas quand je change le tesbox?
Ils ne sont pas dynamiques

Merci

 

[Catrice]

Re : Afficher le contenu d'une cellule dans un Label

Re,

C'est toi qui doit les rendre dynamique.
Tu parles des optionbutton ?
Si oui tu peux faire :

Private Sub OptionButton1_Click()
UserForm_Initialize
If OptionButton1.Value = True Then
Call ComboBox2remp("MCMA", "a")
End If
End Sub

ou bien :

Private Sub CommandButton1_Click()
Dim lig As Long
If ComboBox1.ListIndex = -1 Then Exit Sub
lig = ComboBox1.List(ComboBox1.ListIndex, 1)
If lig = 0 Then Exit Sub
With Sheets(nomfeuille3)
For i = 0 To 4
Sheets("Feuil1").Range("A1").Offset(i, 0) = .Cells(lig, i + 1)
Next i

End With
For i = 2 To 5
Controls("Label" & i) = Range("A" & i - 1)
Next
End Sub

Dans le bouton VALIDER

 

[TheProdigy]

Re : Afficher le contenu d'une cellule dans un Label

Merci Catrice

Je m'explique l'élément déclencheur est quand je sélectionne un autre compte bancaire dans le Textbox. les labels dans ce cas doivent afficher automatiquement le résultat afférant à ma sélection Texbox. Une sorte de RechercheV sur L'userform en utilisant le texbox.

Merci

 

[Catrice]

Re : Afficher le contenu d'une cellule dans un Label

Re,

Ceci change les lables en fonction de l'element selectionné dans la liste deroulante :

Private Sub ComboBox1_Change()
If ComboBox1.ListIndex = -1 Then Exit Sub
lig = ComboBox1.List(ComboBox1.ListIndex, 1)
If lig = 0 Then Exit Sub
With Sheets(nomfeuille3)
For i = 0 To 4
Sheets("Feuil1").Range("A1").Offset(i, 0) = .Cells(lig, i + 1)
Next i
End With
For i = 2 To 5
Controls("Label" & i) = Range("A" & i - 1)
Next
End Sub

 

[TheProdigy]

Re : Afficher le contenu d'une cellule dans un Label

Merci Catrice pour tes efforts, ceci dit j'ai quelques souscis:

1- Au premier clique du bouton principal le contenu des labels affichent les noms (Label i), serait-il possible de ne rien afficher dans ce cas là?
2- Quand je clique sur valider rien ne se passe.

Merci infiniment

Cijoint.fr - Service gratuit de dépôt de fichiers