Excel - VBA - Probleme au niveau du userform

Fermé
TAKAYA - 24 oct. 2007 à 15:36
 TAKKAYA - 25 oct. 2007 à 11:15
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.
A voir également:

2 réponses

ShaBoo Messages postés 392 Date d'inscription mercredi 12 septembre 2007 Statut Membre Dernière intervention 5 septembre 2009 50
24 oct. 2007 à 16:13
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 :

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
0
Merci ShaBoo, j'essaie et je reviens te donner mon feedback !
merci encore
0