Discussion :

[lb.did]

bonjour,
je cherche à récupérer la valeur d'un contrôle d'un userform (qui se nomme "V2") au travers d'une variable pour l'affecter à une cellule.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
n=2
var="V" & n & ".value"
cells(2,n)= valeur de (var)

je sais qu'il existe une commande qui me permet d'indiquer que ma cellule doit être égale à la valeur de var mais impossible de remettre la main dessus.
La connaissez-vous?
Merci d'avance.
Cordialement.
Didier.

[Gestionnaire_rh]

Bonjour ib.did,

peut être c'est ce que tu cherche:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

cells(2,n)=Val(var)

Cordialement.

[Qwazerty]

Salut
Je pense que tu auras la réponse dans ce topic

++
Qwaz

[lb.did]

Merci pour vos réponses.
Je ne cherche pas à convertir la variable var en numérique , ce que fait la commande val(), mais faire en sorte que la cellule (2,2) contienne la valeur du contrôle nommé V2.

Je n'ai pas su trouver la fameuse commande dans l'exemple fourni par Qwazerty, ni de solution à mon pb.

je vais essayé de mieux préciser ma demande.
En fait, je connais le nom des contrôles qui m’intéresse. Il vont de V2 à V48.
V2 correspond à la deuxième colonne de la feuille de calcul, v3 à la 3ème, etc.
Je souhaite faire une boucle me permettant de mettre à jour les cellules de la feuille en fonction du contenu des contrôles.

Dans mon exemple, mon userform a différents contrôles dont 1 qui s'appelle V2 contenant la valeur "Didier".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
n=2
do
var="V" & n & ".value"
cells(2,n)= var ' *****c'est là qu'il me manque la dite commande
loop while n>48

Forcément, lorsque j'exécute ce code, la cellule (2,2) est égale à "V2.value".

Moi, je souhaite qu'elle soit égale à "Didier".
La fameuse commande me permet de lire le contenu de la variable et de l'utiliser comme s'il s'agissait du nom du contrôle.
Vous est-elle connue?
Merci d'avance.

[gFZT82]

Bonjour,

Essaie avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
n = 2
Do
Var = "V" & n
Worksheets("Feuil1").Cells(2, n) = Me.Controls(Var).Value
Loop While n > 48

Cordialement.

[lb.did]

Merci bq, c'est effectivement une solution qui fonctionne bien.
Tant pis pour ma commande. Si je la retrouve, je mettrai à jour le post.

En tout cas, je vais enfin pouvoir avancer.
Merci encore.

[Qwazerty]

Je n'ai pas su trouver la fameuse commande dans l'exemple fourni par Qwazerty, ni de solution à mon pb.

Salut
La réponse était dans le message n°6 de Jean-Pierre49, j'aurais du être plus explicite désolé.

++
Qwaz