Se connecter avec
S'enregistrer | Connectez-vous

recuperation de donnée d'un UserForm

Dernière réponse : dans Programmation

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 :

  1. Private Sub MAJ_competences()
  2.  
  3. Dim i As Integer
  4. Dim comp As Double
  5.  
  6. For i = 1 To 10
  7. comp = Val("saisie_comp" & i)
  8. Cells(132, (2 + i)) = comp
  9. Next
  10.  
  11. Unload saisie_competences
  12.  
  13. End Sub


Si quelqu'un peut m'aider

merci

Autres pages sur : recuperation donnee userform

Lassé par la pub ? Créez un compte
Expert Programmation

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
For Each c In UserForm1.Controls


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


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


Et hop, c'est joué ! :sol: 
Lassé par la pub ? Créez un compte