XL 2016 Pb recupération de donnees de plusieurs combobox

[lechti31]

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]

Bonjour,

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

Bonne journée,

 

[lechti31]

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]

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]

Bonjour,

CInt convertit en Integer, CLng en Long :

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

A+

 

[lechti31]

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]

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]

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]

Re,

Alors c'est ça qu'on veut :

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

Bonne journée,