S
sniker
Guest
Bonjour,
Je reviens à la charge avec une nouvelle difficulté. J’ai épluché pas mal de forum et d’exemple cette après midi, je m’approche mais je suis toujours coincé.
Cette fois la question est bien ciblée et je parie qu’elle va sembler évidente aux experts de ce forum.
Je voudrais lister dans une ComboBox les titres de colonne d’une feuille.
Ma ComboBox se nome « NomColonne1 »
Le nom du classeur est dans une comboBox : « NomClasseur1 »
Le nom de la feuille concernée est dans une ComboBox : « NomFeuille1 »
Voila mon p’tit bout de code qui marche pas :
Alors je sais que mon [&CelD&] n’est pas bon mais je ne trouve pas comment formuler la référence à cette cellule … et il y a certainement d’autres trucs que je ne vois pas.
Merci et à bientôt.
Message édité par: sniker, à: 29/11/2005 17:44
Message édité par: sniker, à: 29/11/2005 17:46
Je reviens à la charge avec une nouvelle difficulté. J’ai épluché pas mal de forum et d’exemple cette après midi, je m’approche mais je suis toujours coincé.
Cette fois la question est bien ciblée et je parie qu’elle va sembler évidente aux experts de ce forum.
Je voudrais lister dans une ComboBox les titres de colonne d’une feuille.
Ma ComboBox se nome « NomColonne1 »
Le nom du classeur est dans une comboBox : « NomClasseur1 »
Le nom de la feuille concernée est dans une ComboBox : « NomFeuille1 »
Voila mon p’tit bout de code qui marche pas :
Code:
Private Sub NomFeuille1_Change()
Dim Idx As Integer
Dim Chx As String
Dim Ct As Range
Dim CelD As String
Idx = NomFeuille1.ListIndex ' numéro de la ligne active de la Combo '
Chx = NomFeuille1.List(Idx) ' contenu de la ligne active '
Worksheets(Chx).Activate
CelD = 'A1' ' premiere cellule de la ligne de titres de col. '
For Each Ct In Range(CelD, [&CelD&].End(xlToRight)) ' pour chaque cellule de la ligne ... '
NomColonne1.AddItem Ct.Value ' ajoute le contenu de la celulle dans la combobox '
Next
End Sub
Merci et à bientôt.
Message édité par: sniker, à: 29/11/2005 17:44
Message édité par: sniker, à: 29/11/2005 17:46