Excel - VBA - Probleme au niveau du userform
TAKAYA
-
TAKKAYA -
TAKKAYA -
Bonjour,
je viens de me mettre au VBA - Excel, je suis en ce moment entrain de créer un userform qui me permet de remplir une plage de données sur excel.
ma question est la suivante :
- Comment faire pour transformer le format d'une text box d'un format text vers un format numerique?
- Comment puis je passer à la lgne suivante une fois que j'ai fini de compléter la premiere ligne? .... par exemple qd je finis de remplir les information de la ligna A, comment puis valider la ligne et passer a la ligne suivante B?
Merci pour votre coup de main
TAKAYA.
je viens de me mettre au VBA - Excel, je suis en ce moment entrain de créer un userform qui me permet de remplir une plage de données sur excel.
ma question est la suivante :
- Comment faire pour transformer le format d'une text box d'un format text vers un format numerique?
- Comment puis je passer à la lgne suivante une fois que j'ai fini de compléter la premiere ligne? .... par exemple qd je finis de remplir les information de la ligna A, comment puis valider la ligne et passer a la ligne suivante B?
Merci pour votre coup de main
TAKAYA.
A voir également:
- Excel - VBA - Probleme au niveau du userform
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Excel compter cellule couleur sans vba - Guide
- Déplacer colonne excel - Guide
2 réponses
Bonjour,
"- Comment faire pour transformer le format d'une text box d'un format text vers un format numerique? "
D'abord il te faut savoir si ta valeur dans ta textbox avec :
Si c'est ok, utiliser les fonctions tels que :
"- Comment puis je passer à la lgne suivante une fois que j'ai fini de compléter la premiere ligne"
Tu crée un bouton qui fera la valditation de tes champs :
- saisie obligatoire
- saisie numerique
- longeur de saisie
- ...
Si tt tes tests sont ok, tu auras un code de ce style :
ATTENTION :
Avec ce code, lorsque tu fermeras ta UserForm, et que tu la relanceras tu recommenceras à créer à la première ligne, première colonne
=> tu écraseras les champs déjà créés
"- Comment faire pour transformer le format d'une text box d'un format text vers un format numerique? "
D'abord il te faut savoir si ta valeur dans ta textbox avec :
IsNumeric(TextBox.Text)
Si c'est ok, utiliser les fonctions tels que :
CInt, CLng, CDbl, ...
"- Comment puis je passer à la lgne suivante une fois que j'ai fini de compléter la premiere ligne"
Tu crée un bouton qui fera la valditation de tes champs :
- saisie obligatoire
- saisie numerique
- longeur de saisie
- ...
Si tt tes tests sont ok, tu auras un code de ce style :
'valeurs à déclarer en dehors d'une sub en Public
NumLigne = 1 'creation à la premiere ligne de ta feuille
NumCologne = 1 'de la première colonne
Sub InsereChamp()
Pour Chaque TextBox
Sheets("Nom_De_Ta_Feuille).Cells(NumLigne,NumCologne) = TextBox.Text
'increment de +1 pour creation aller à la colonne suivante
NumCologne = NumCologne + 1
Fin Pour
'increment de +1 pour creation nouvelle ligne
NumLigne = NumLigne + 1
End Sub
ATTENTION :
Avec ce code, lorsque tu fermeras ta UserForm, et que tu la relanceras tu recommenceras à créer à la première ligne, première colonne
=> tu écraseras les champs déjà créés
