Combobox dans USF

G

GCFRG

XLDnaute Occasionnel

• 2 Juin 2008

• #2

Re : Combobox dans USF

Bonjour, essayes ceci, à adapter
dim Maplage as string
With Sheets("feuil1")
Maplage = .range("a1:a10").address
combobox1.rowSource = "feuil1!" & MaPlage
end with

Gilbert

 

Dernière édition: 2 Juin 2008

Vote positif 0 Vote négatif

P

ptitepo

XLDnaute Junior

• 2 Juin 2008

• #3

Re : Combobox dans USF

Bjr anne29,
Tu a reussi à mettre dans ta combobox une colonne de ton fichier excel ?
Si c'est le cas ton code m'interesse fortement , je suis dans cette optique et je ne m'en sort pas.

 

Vote positif 0 Vote négatif

G

GCFRG

XLDnaute Occasionnel

• 2 Juin 2008

• #4

Re : Combobox dans USF

voici un petit exemple pour alimenter une combobox selon condition
Gilbert

 

Pièces jointes

• ptit exemple à adapter.xls

  32.5 KB · Affichages: 54

Dernière édition: 2 Juin 2008

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 2 Juin 2008

• #5

Re : Combobox dans USF

Bonjour, anne

29 comme le finistère?

bonjour le fil

regarde le fichier joint

j'ai défini l'userform en mode non modal, donc tu peux écrire sur la feuille
Rajoute des données sous celles présentes en colonne A, dès que tu cliques sur le combobox, celles-ci seront présentes dans le combo

Le code :

Code:

Private Sub ComboBox1_DropButtonClick()
With Sheets("Feuil1")
    .Range("A1:A" & .[A65000].End(xlUp).Row).Name = "base"
End With
Me.ComboBox1.RowSource = [base].Address
End Sub

Le fichier :

 

Pièces jointes

• essai combo.zip

  8.9 KB · Affichages: 34

Vote positif 0 Vote négatif

A

anne29

XLDnaute Nouveau

• 2 Juin 2008

• #6

Re : Combobox dans USF

Tout d'abord merci à tous,
Pour répondre à ptitepo, je joins le fichier dans lequel se trouve la combobox initialisée grâce à une plage d'une colonne. (dans l'USF Saisie, la combobox organou)

Ensuite pour mon problème, je vais aller tester toutes vos solutions sur un autre poste : sécurité informatique oblige !

 

Vote positif 0 Vote négatif

A

anne29

XLDnaute Nouveau

• 2 Juin 2008

• #7

Re : Combobox dans USF

Désolée, c'est mieux avec la pièce jointe !

 

Pièces jointes

• BSI.zip

  46.2 KB · Affichages: 27

Vote positif 0 Vote négatif

P

ptitepo

XLDnaute Junior

• 3 Juin 2008

• #8

Re : Combobox dans USF

Se truc restera un mystère pour moi, J'ai exactement les mêmes nom de boutons, avec la même disposition, les mêmes valeur de test, et RIEN. C'est désesperant !!! C'est quoi le problème ?
J'espere que tu as trouvé tes réponses anne29

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 3 Juin 2008

• #9

Re : Combobox dans USF

Bonjour,

j'avais pas bien compris la question

De ton code, tu supprimes les trois dernières lignes d'initialisation

puis tu rajoutes ce code :

Code:

Private Sub organou_DropButtonClick()
majlistorganou
Triorganou
Doublonorganou
End Sub

Private Sub UserForm_Initialize()
ini
End Sub

Mais, le plus important, dans les propriétés de ton combobox, clic droit, propriétés, dans la propriété :

Style : tu as 2 - fmStyleDropDownList

sélectionne 0 - fmDropDownCombo

ainsi, tu peux rajouter un organisme, et de plus, quand tu cliqueras de nouveau sur la flèche, ce nouvel organisme y sera....

Bonne journée ensoleillée (du moins chez nous)

 

Vote positif 0 Vote négatif

A

anne29

XLDnaute Nouveau

• 3 Juin 2008

• #10

Re : Combobox dans USF

Bonjour,
Merci beaucoup pour ton aide bhbh, ça marche ! Ensoleillé ici aussi (car du 29 mais vit dans le 13 !)
C'est vraiment une mine d'or ce forum !
bonne journée à tous

 

Vote positif 0 Vote négatif