Combobox + incrémentation auto

[abtony]

Bonjour le forum,

voila dans une feuille de calcul, en colonne A1 j'ai une série de chiffres,
1
1.1
1.2
1.3
2
2.1
2.2
2.3
et ainsi de suite,
est il possible d'incrémenter d'une valeur sur un combobox a l'ouverture de l'userform.initialise ?
pour passer a 3 je le saisie car changement de tranche

des idées ?
merci pour les réponses

 

[abtony]

Re : Combobox + incrémentation auto

Bonjour jp14 et le forum,
unload me fonctionne pas chez moi sur les userform ?
et de plus comment régler le format de la combobox a 2 chiffres apres la virgule au lieu de 14 actuellement car quand je colle tel quel ca me met de forme la et sans la virgule ?
269 999 990 463 257
au lieu de mettre 2,7
merci

 

[abtony]

Re : Combobox + incrémentation auto

bon j'ai beau cherché partout sur le net et sur le forum et je trouve pas de réponse pour ces arrondis !
unload c'est ok
je tourne en rond avec ce problème 😡

 

[skoobi]

Re : Combobox + incrémentation auto

Re,

La synthaxe des "Private Sub SpinButton...." doit être différente lorsque les controles sont créés à l'execution du USF.
Je ne la connais pas et mon livre est au boulo.
Merci de dire si tu as trouvé.

 

[jp14]

Re : Combobox + incrémentation auto

Bonsoir

Quand j'utilise l'usf, j'ai un affichage avec un chiffre après la virgule.

Pour résoudre ce problème
il faut modifier 2 lignes et mettre

Dim val1 As Currency
ComboBox1.Value = Format(val1 + 0.1, "###0.00") ' deux chiffres après la virgule

a tester

JP

 

[abtony]

Re : Combobox + incrémentation auto

Bonsoir jp14 et le forum,

que dire de mieux ! c'est plus que parfait un grand merci pour ton aide

vous faite du bon boulot sur ce forum, je m'intéresse beaucoup a excel mais je ne pratiquer plus depuis plus de 7 ans, et questions boulot oblige je dois m'y remettre a fond et ca revient petit a petit avec votre précieuse aide !

merci encore et longue vie a XLD

 

[abtony]

Re : Combobox + incrémentation auto

re
apres les essai je viens de me rendre compte, que si la liste part de 0 cet a dire sans aucune entrée, ca plante
il faudrais faire une boucle de condition et mettre ca

ComboBox1.Value = Format(val1 + 1, "##0.0") ' un chiffres après la virgule
et ca a la suite
ComboBox1.Value = Format(val1 + 1.1, "##0.0") ' un chiffres après la virgule

tout en conservant le format

enfin je suppose !

 

[abtony]

Re : Combobox + incrémentation auto

Bonjour le forum,
Bonjour jp14, je relance ce fil car tu a pas du voir mon dernier message !

merci

 

[skoobi]

Re : Combobox + incrémentation auto

Bonsoir tout le monde,

pour faire une condition qui vérifie que la donnée n'est pas vide:
exemple pour la cellule A1:

If Not IsEmpty(Range("A1").Value) Then
......
..........
End If