Alimenter des parametres depuis une combobox

Hervé

XLDnaute Barbatruc

• 10 Avril 2006

• #2

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

 

Vote positif 0 Vote négatif

W

Whooki

Guest

• 10 Avril 2006

• #3

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.

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 10 Avril 2006

• #4

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

 

Pièces jointes

• whooki.zip

  10.4 KB · Affichages: 38
• whooki.zip

  10.4 KB · Affichages: 40
• whooki.zip

  10.4 KB · Affichages: 38

Vote positif 0 Vote négatif

W

Whooki

Guest

• 10 Avril 2006

• #5

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

 

Vote positif 0 Vote négatif

W

Whooki

Guest

• 10 Avril 2006

• #6

Pardon j'ai oublié le fichier

 

Vote positif 0 Vote négatif

W

Whooki

Guest

• 10 Avril 2006

• #7

Fichier trop gros le voici amaigri.

Merci.

 

Vote positif 0 Vote négatif

W

whooki

Guest

• 10 Avril 2006

• #8

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 10 Avril 2006

• #9

re


essayes comme ceci :

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

Cliquez pour agrandir...

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

salut

 

Vote positif 0 Vote négatif

W

Whooki

Guest

• 14 Avril 2006

• #10

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

 

Vote positif 0 Vote négatif