combobox???

[akramenergie]

Bonjour tout le monde
svp quelqu'un peut m'aider pour charger mes combobox que j'ai mis dans ma feuil "Réf_BL" avec des informations dans la feuil2

Merci

 

[akramenergie]

Re : combobox???

ci joint le fichier excel

 

[BERRACHED said]

Re : combobox???

Salut,akramenergie

j'ai alimenter tes combox directement sur leurs propreités FillRange
en cas ou c'est bon leurs limites est a 500 (Feuil2!a2:a500) tu peut les augmenter

Cordialement

 

[Cousinhub]

Re : combobox???

Bonjour,

liste dynamique :

Private Sub ComboBox1_DropButtonClick()
Me.ComboBox1.List = Sheets("Feuil2").Range("A2:A" & Sheets("Feuil2").[A65000].End(xlUp).Row).Value
End Sub
Private Sub ComboBox2_DropButtonClick()
Me.ComboBox2.List = Sheets("Feuil2").Range("B2:B" & Sheets("Feuil2").[B65000].End(xlUp).Row).Value
End Sub

à coller dans le code de la feuille (clic droit sur le nom de l'onglet, Visualiser le code)

 

[MuscatMimi]

Re : combobox???

Salut,akramenergie

j'ai alimenter tes combox directement sur leurs propreités FillRange
en cas ou c'est bon leurs limites est a 500 (Feuil2!a2:a500) tu peut les augmenter

Cordialement

Bonjour Berrached et au forum
Apparament le Code de bhbh ne fonctionne pas!!!!
je te vois connecté, dis-moi comment faire avec cette Combo pour allez Validez des données dans tel ou tel cellule sur la feuille 1 par exemple,considérant les données sur la plage A2:G50???,
Avec un Usf je sais faire ,mais pas avec une combo sur une feuille

Ciaooo et merci d'avance
Christian

 

[Cousinhub]

Re : combobox???

Bonjour,

vaucluse

le fichier modifié avec mon code :

 

[BERRACHED said]

Re : combobox???

Salut,vaucluse immo

il est existe deux façons de le faire :

1-diretctement sur le controle en faisant un click droit aller a propriéte tu puis tu chercher la propriéte FillRange c'est la ou tu définis la Feuille et la colonne comme ce ci 🙁Feuil2!a2:a500)

2-sinon par code vb sur le controle

Private Sub ComboBox1_Change()
Me.ComboBox1.List = Sheets("NomFeuil").Range("A2:A" & Sheets("NomFeuil").[A65000].End(xlUp).Row).Value
End Sub

Cordialement

 

[MuscatMimi]

Re : combobox???

Merci Berrached et a bhbh

Pour bhbh, ton code était bon, c'est moi qui ai laissé ,dans propriété de la Combo,,,ListfillRange, Feuil2! A1:A10,milles excuses

Pour berrached
re-lit mon précédent post,
ce que j'aimerais savoir c'est choisir un Nom dans la ComboBox,
et que je puisse voir s'afficher dans la Cellule (par exemple)
en A2 le Nom
en A3 Le Prénom etc......sur la Feuille 1

Les données seront dans la feuille 2
A2 les Noms
A3 les Prénoms...etc
c'est juste pour infos perso

Cordialement
christian

 

[Cousinhub]

Re : combobox???

Re-

vois pas bien comment sont rangés tes données (et en plus, tu squattes un fil...😀)

tes données sont en colonnes ou en ligne, dans la feuille 2? :

noms en colonne A
prénoms en colonne B

dans ce cas :

Private Sub ComboBox1_Change()
[A2] = Me.ComboBox1
With Sheets("Feuil2")
[B2] = Application.Index(.Range("B2:B" & .[A65000].End(xlUp).Row), _
    Application.Match(Me.ComboBox1, .Range("A2:A" & .[A65000].End(xlUp).Row), 0))
End With
End Sub

ou en ligne?

noms en ligne 2
prénoms en ligne 3

dans ce cas :

Private Sub ComboBox1_Change()
[A2] = Me.ComboBox1
With Sheets("Feuil2")
[A3] = Application.Index(.Range(.Cells(3, 1), .Cells(3, .[IV2].End(xlToLeft).Column)), , _
    Application.Match(Me.ComboBox1, .Range(.Cells(2, 1), .Cells(2, .[IV2].End(xlToLeft).Column)), 0))
End With
End Sub

 

[MuscatMimi]

Re : combobox???

Merci bhbh

c'est vrai je squate
excuse
mon souhait
Choix d'un Nom dans la Combo,ça c'est OK je sais faire grace a toi et a Berrached
Ensuite une fois ce ,,nom ,,sélectionné
que les données coresspondantes,(situées sur la feuil2)(Annu)
viennent S'afficher
En A2 pour le Nom
En A3 pour le Prénom, aprés je me débrouille

Merci beaucoup a toutes et tous

Christian

 

[Cousinhub]

Re : combobox???

Re-,

euh, tu as la (les) solution(s), non?

 

[MuscatMimi]

Re : combobox???

Salut bhbh,

Pardon, j'ai mal vu le code que tu m'a passé

dans la version mettre les données dans la Cellule A1 et A2 ,si je désire changer leur destination??? ou je dois modifier???
J'ai essay pas mal de chose mais sans résultat

Ciao et merci a l'avance
Christian