Alimenter des parametres depuis une combobox

[Whooki]

Bonjour a tous,

Je voudrais, depuis ma combobox, alimenter différentes textbox sur mon USF. J'ai repris le principe d'une listbox mais ca ne fonctionne pas.
Pouvez-vous m'aider s.v.p?
Voici le code faux:

Private Sub ComboBox38_Change()

ent = ComboBox38.ListIndex
TextBox42 = variables.Cells(ent, 2) 'contacts'
TextBox43 = variables.Cells(ent, 3) 'téléphone'
TextBox44 = variables.Cells(ent, 4) 'fax'
TextBox47 = variables.Cells(ent, 5) 'conditions de paiments'
TextBox48 = variables.Cells(ent, 6) 'expédition'


End Sub

Merci par avance.

 

[Hervé]

Bonjour whooki, le forum

sans avoir testé essaye comme ceci :

Private Sub ComboBox38_Change()
dim ent as integer

ent = ComboBox38.ListIndex+1


je suppose que 'variables' est le codename de ta feuille, sinon comme ceci :

TextBox42 = sheets('variables').Cells(ent, 2) 'contacts'
etc...

edition : privilégie l'evenement click de la combobox au lieu de change.

salut

Message édité par: hervé, à: 10/04/2006 10:18

 

[Whooki]

Merci a toi Hervé de ta réponse,

Je viens de mettre ce que tu m'as conseillé dans mon code, et ça me met une erreur '9' l'indice n'appartient pas a la sélection...

Mon code est celui-ci:

Private Sub ComboBox38_change()
Dim ent As Integer

ent = ComboBox38.ListIndex + 2

TextBox42 = Sheets('variables').Cells(ent, 2) 'contacts'
TextBox43 = Sheets('variables').Cells(ent, 3) 'téléphone'
TextBox44 = Sheets('variables').Cells(ent, 4) 'fax'
TextBox47 = Sheets('variables').Cells(ent, 5) 'conditions de paiements'
TextBox48 = Sheets('variables').Cells(ent, 6) 'expédition'

End Sub

Merci.

 

[Hervé]

re

tres difficile sans voir ton fichier.

en piece jointe un exemple de ce que ca donne, mais sinon, merci de joindre un extrait de ton fichier.


edition : tu as bien une feuille qui s'appelle 'variables' ?

salut [file name=whooki.zip size=10615]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/whooki.zip[/file]

Message édité par: hervé, à: 10/04/2006 10:43

 

[Whooki]

C'est bon ca marche Hervé, j'ai mis click dans mon code au lieu de change et ca fonctionne,
merci pour ton aide.
D'autre part, je te joint mon fichier et je rencontre un soucis avec mes checkbox.
Je voudrais, lorsque je clic sur la checkbox 1, ca m'affiche le label correspondant dans la page offre en cellule b35...je ne trouves pas le code correspondant.

Merci encore pour tout.

Bonne journée

 

[Whooki]

Pardon j'ai oublié le fichier

 

[Whooki]

Fichier trop gros le voici amaigri.

Merci.

 

[whooki]

 

[Hervé]

re 🙂


essayes comme ceci :

Private Sub CheckBox1_Click()
With CheckBox1
        Sheets('offre').Range('b35') = IIf(.Value = True, .Caption, '')
End With
End Sub

si tu as vraiment utilisé un label au lieu du caption du checkbox, remplace .caption par le nom de ton label.

salut

 

[Whooki]

Pardon de la non réponse j'étais en déplacement, ca marche maintenant merci de ton aide à bientot