Afficher le contenu d'une cellule dans un Label

C

Catrice

XLDnaute Barbatruc

• 11 Décembre 2008

• #2

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

 

Dernière édition: 11 Décembre 2008

Vote positif 0 Vote négatif

TheProdigy

XLDnaute Impliqué

• 11 Décembre 2008

• #3

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

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 11 Décembre 2008

• #4

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

 

Dernière édition: 11 Décembre 2008

Vote positif 0 Vote négatif

TheProdigy

XLDnaute Impliqué

• 11 Décembre 2008

• #5

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

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 11 Décembre 2008

• #6

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

 

Vote positif 0 Vote négatif

TheProdigy

XLDnaute Impliqué

• 11 Décembre 2008

• #7

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

 

Vote positif 0 Vote négatif