Excel - VBA - Probleme au niveau du userform

Question

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.

ShaBoo · Answer

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

TAKKAYA · Answer

Merci ShaBoo, j'essaie et je reviens te donner mon feedback !
merci encore

Excel - VBA - Probleme au niveau du userform

2 réponses

Newsletters