recuperation de donnée d'un UserForm

[oragoun]

Bonjour,

J'ai un petit souci sous Excel. Je cherche à récupérer les valeurs contenues dans un UserForm. Il y a 10 TextBox appelées saisie_comp1 à saisie_comp10. En VB, je les aurais nommée saisie_comp(1) à (10), une petite boucle et zou. Mais sous VBA, point d'index !!

J'ai essayé ça mais cela ne fonctionne pas :

Private Sub MAJ_competences()
    
    Dim i As Integer
    Dim comp As Double
    
    For i = 1 To 10
    comp = Val("saisie_comp" & i)
    Cells(132, (2 + i)) = comp
    Next

    Unload saisie_competences
    
End Sub

Si quelqu'un peut m'aider

merci

 

[zeb]

Ce n'est pas possible
Et non, la liste 7, ce n'est pas du VB.

Mais on peut ruser

Soluce :
1°) Parcourir la liste de tous les contrôles du UserForm
[fixed]For Each c In UserForm1.Controls[/fixed]

2°) Retenir ceux dont le nom commence par saisie_comp
[fixed]If Left(c.Name, 11) = "saisie_comp" ...[/fixed]

3°) Récupérer le numéro qui est derrière
[fixed]n = Mid(c.Name, 12, 123456789)[/fixed]

Et hop, c'est joué ! :sol:

 

[oragoun]

Merci pour le tip

oragoun

 

[Matthias31]

Salut Oragoun, J'ai le même problème que toi,

Mais je n'ai pas compris comment taper le code que Zeb ta donné.

Pourrais tu me donné le code final que tu as eu?

Merci d'avance.

Matthias31