XL 2016 Pb recupération de donnees de plusieurs combobox

lechti31 · 2 Juin 2023

Bonjour
J'ai un petit soucis
Je souhaite récuperer des données de combobox avec un code VBA mais je ne comprend pas l'erreur
J'ai dix combobox avec les noms suivant "Nom1_1", "Nom2_1" jusque "Nom10_1"
si je mets cela "Cells(place + ligne - 1, colonne).Value = Me.Controls("nom" & place & "_" & Table)" dans un private sub ca fonctionne
Mais si je souhaite le mettre dans un module donc un sub ca ne fonctionne pas ca me dit "utilisation incorrecte du mot clé Me"

J'ai donc essayer cette methode "Cells(place + ligne - 1, colonne).Value =userform1.nom1_1" ca fonctionne mais je souhaite faire incrémenter le nom des combobox comme suit
"Cells(place + ligne - 1, colonne).Value =userform1.("Nom" & place & "_" & table)" et la idem message d'erreur " attendu : identificateur ou expression entre crochets"

la je sèche complétement.

Merci de votre aide

xUpsilon · 2 Juin 2023

Bonjour,

Et avec Userform1.Controls("Nom" & place & "_" & table) ?

Bonne journée,

lechti31 · 2 Juin 2023

C'etait si simple merci
Mais puis je abuser, pour récuperer les infos sous forme de nombre et non en texte
J'ai essayé "userform1.Controls.CDbl("nom" &......
userform1.Cdbl(Controls("nom"....
sans grand succés

xUpsilon · 2 Juin 2023

Bonjour,

Pour traduire un texte en nombre :
- pour un entier : CInt(Texte d'origine)
- pour un rationnel : CLng(Texte d'origine) ou CDbl

Bonne journée,

job75 · 2 Juin 2023

Bonjour,

CInt convertit en Integer, CLng en Long :

https://learn.microsoft.com/en-us/o...pts/getting-started/type-conversion-functions

A+

lechti31 · 6 Juin 2023

Merci pour vos réponses mais ca ne fonctionne pas ca me mets une erreur "incompatibilité de type"
je pense que je ne dois pas le formuler correctement ou je n'ai pas bien défini quelque chose.

voici ce que j'ai comme formule
cells(7,2).value=userform1.Controls(CInt("Nom" & place & "_" & table))

J'ai essaye avec CLng ça ne fonctionne pas non plus

Pour info le "Nom" & place & "_" & table" correspond à un name de TextBox dans mon userform1 et j'en ai 10 comme cela.
Donc le name de mes TextBox sont "Nom1_1" jusqu'a "Nom1_10"

xUpsilon · 6 Juin 2023

Re,

Ah bah non bien sûr, parce que chez moi "Nom1_10" c'est pas un nombre ...
On cherche à récupérer quoi sous forme de nombre ? Pas le nom du control je suppose, probablement plutôt sa valeur, non ?

Bonne journée,

lechti31 · 15 Juin 2023

Bonjour
Le "Nom1_10" est le nom de mon textbox dans mon userform, dans le textbox je rentre des nombres qui correspond au point marqué.

xUpsilon · 15 Juin 2023

Re,

Alors c'est ça qu'on veut :

VB:

Cells(7,2).value=CInt(userform1.Controls("Nom" & place & "_" & table))

Bonne journée,

XL 2016 Pb recupération de donnees de plusieurs combobox

lechti31

XLDnaute Occasionnel

xUpsilon

XLDnaute Accro

lechti31

XLDnaute Occasionnel

xUpsilon

XLDnaute Accro

job75

XLDnaute Barbatruc

lechti31

XLDnaute Occasionnel

xUpsilon

XLDnaute Accro

lechti31

XLDnaute Occasionnel

xUpsilon

XLDnaute Accro

Discussions similaires