2 Questions sur Combobox - 1 facile

  • Initiateur de la discussion VBA
  • Date de début
V

VBA

Guest
Bonsoir encore,

C`est pas facile l`informatique donc je reviens pour solutionner 2 points :

1 / Facile je pense : J`ai une combobox ds 1 userform et je souhaite que l`on voit ecrit sur ma combobox ecrit la premiere ligne ou le terme 'Selectionner fonction' car sinon on ne sait pas a quoi set la combo sans cliquer dessus - Bref le cadre de la combo est vide et blanc. Qu`est ce qui permet d`afficher le premier terme a selectionner ou un exte ds la combo visible des que l`userform s`ouvre.

2/ + difficile :Selon ce que selectionne ds ma combo, je veux que ds l`userform un 'label1' indique la valeur d`1 cellule. Donc si j`ai 2 choix ds la combo, le choix 1 entraine l`affichage de la valeur A1 ds le label1 de mon userform et la valeur A2 si l`autre choix est selectione ds la combo.

Pour le moment j`ai cela
'UserForm1.Label8.Caption = Sheets('Staff').Range('A2')'

mais c`est pas lie au choix effectue ds la combo

est ce clair?


Merci, et si quelqu`un peut m`aider sur 1 des 2 points au moins ce sera super

VBA
 

Robert

XLDnaute Barbatruc
Repose en paix
Bonsoir VBA, bonsoir le forum,

1/ ComboBox1.Listindex=0 affichera le premier élément de la liste.
2/ le code ci-dessous

Private Sub ComboBox1_Change()
'valeur pour le premier élément de la liste
If ComboBox1.ListIndex = 0 Then Label8.Caption = Sheets('Staff').Range('A1')
'valeur pour le second élément de la liste
If ComboBox1.ListIndex = 1 Then Label8.Caption = Sheets('Staff').Range('A2')
End Sub

Message édité par: Robert, à: 05/06/2005 00:16
 

ChTi160

XLDnaute Barbatruc
Salut VBA
Bonsoir le Forum
toi tu devrais y arriver avec un pseudo pareil Lol
pour la premiere question
dans le module de ton userform dans Userform Initialize ou activate
tu places
Userform1.ComboBox1.ListIndex=0 'place le première élément dans la parti text de ton Combo , zéro étant l'Index du premier élément
ou
Userform1.ComboBox1.Text= 'Sélectionner fonction'
pour la deuxième question, celà peut dépendre de la façon dont tu approvisionnes ton Combobox mais bon
si tu as deux éléments dans ta listBox
que tes données à Afficher dans le label se trouvent en A1 et A2
dans la procèdure ComboBox1.change
tu peux mettre
lgn = Userform1.ComboBox1.ListIndex 'affecte à la variable lgn le numero d'index de la sélection dans Combobox1

UserForm1.Label8.Caption = Sheets('Staff').Range('A' & lgn+1).value
lgn+1 car le premier Index est 0 donc pour avoir A1 il faut ajouter 1 et A2 =lgn + 1 soit Index = 1 + 1

ps OUPSSSS Salut Robert Excuse

Message édité par: ChTi160, à: 05/06/2005 00:22
 

laurent45

XLDnaute Occasionnel
Salut VBA,

A défaut de réponse pour mon problème, j'ai trouvé ça pour toi :

Code:
Private Sub UserForm_Initialize()
ComboBox1.Value = '<Sélectionner fonction>'
ComboBox1.AddItem 'premier Item'
ComboBox1.AddItem 'deuxième Item'
End Sub

Et ça marche !

Bon courage @+

ps : Je viens de voir que je ne suis pas seul à être sur le coup ;)
 
V

VBA

Guest
Salut a tous,

ben d`abord merci. Pour le pseudo, a l`origine c`est VBA DEAD mais bon je suis en pleine evolution... je cherche a droite a gauche et ca porgresse.

en tout cas merci a tous et bonne soiree. Il tps d`aller jouer en reseau

A+++

VBA (dead or alive???)
 

Discussions similaires

Réponses
9
Affichages
420
Réponses
14
Affichages
621

Membres actuellement en ligne

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 848
dernier inscrit
Djigbenou