Combobox vide et résultat cellule

[Hydroxyde]

Bonsoir,
Je réalise actuellement un tableau de calcul tantième pour mon entreprise et jutilise une boite de dialogue contenant 6 Combobox.
Ces 6 Combobox possèdent les mêmes choix cependant seul la première est obligatoirement remplie, les 5 autres pouvant rester vide.

Cependant une fois la macro terminée les choix qui sont restés vierge ne laisse pas la cellule de destination vide. En effet après un test celle ci possèdent un texte.

Or si je répète ma macro qui utilise la dernière case remplie il y a donc un espace correspondant au 5 Combobox vides.

Voilà je sais pas ce qu'il faudrait écrire pour modifier sa. Je rajouterais le code si besoin.

Merci davance.

 

[Guest]

Re : Combobox vide et résultat cellule

Bonjour,

Sans plus d'explication, il faut écrire quelque chose comme ceci:

If Combobox1.Listindex>-1 Then Range("A1")=Combobox1.Value

A+

 

[Hydroxyde]

Re : Combobox vide et résultat cellule

En gros mon code sa donne :

Sheets(2).Select
[B65536].Select
Selection.End(xlUp).Select
Selection.Offset(1, 0).Select
Selection = ComboBox3
Selection.Offset(1, 0).Select
Selection = ComboBox6
Selection.Offset(1, 0).Select
Selection = ComboBox5
Selection.Offset(1, 0).Select
Selection = ComboBox4
Selection.Offset(1, 0).Select
Selection = ComboBox7
Selection.Offset(1, 0).Select
Selection = ComboBox8
Selection.Offset(-5, -1).Select
Selection = TextBox1
Selection.Offset(0, 2).Select
Selection = TextBox4
Selection.Offset(1, 0).Select
Selection = TextBox5
Selection.Offset(1, 0).Select
Selection = TextBox6
Selection.Offset(1, 0).Select
Selection = TextBox7
Selection.Offset(1, 0).Select
Selection = TextBox8
Selection.Offset(1, 0).Select
Selection = TextBox9

Je sais c'est très archaïque 😀

 

[YANN-56]

Re : Combobox vide et résultat cellule

Bonsoir Hydroxyde, Hasco 🙂, et à ceux qui passeront par ici,

Il serait bien de savoir par quel biais tu charges les Items de tes ComboBoxes.

Un exemple de ta part, sans fioritures inutiles, aiderait certainement à te répondre.

De mon coté, je n'ai pas trop de prétentions à t'aider car je découvre cette bébête.
(J'aime mieux les ListView)

Le peu que j'ai appris ici, je suis disposé à le partager.
Sous réserve que tu en fasses cette première démarche.

A noter qu'il ne sera jamais question de "Selection" ni de "Offset" ... Beurk!
dans ce que je pourrais te proposer!

Amicalement.

Yann

 

[Hydroxyde]

Re : Combobox vide et résultat cellule

Tu veux dire comment il a accès à la liste ?
C'est une liste écrit dans une troisième feuille, et j'ai mis le lien dans
RowSource : feuil3:B16:B55

 

[YANN-56]

Re : Combobox vide et résultat cellule

Bonsoir Hydroxyde,

Je n'avais donc pas compris ton code précédent. 😱

Je pense donc qu'il y aura plus compétents que moi pour te répondre.

Just' un point:
A la lecture des aides, j'ai cru comprendre qu'il était préférable de procéder ainsi:

Worksheets("Feuil3").Activate
With UserForm1.ComboBox1
   For i = 16 To 55
     .AddItem ActiveSheet.Cells(i, 2).Text
   Next i
End With

A voir…

Amicalement, et bonne réussite dans tes recherches.

Yann