A voir également:
- Excel - VBA - Probleme au niveau du userform
- Liste déroulante excel - Guide
- Si et excel - Guide
- Word et excel gratuit - Guide
- Déplacer une colonne excel - Guide
- Excel compter cellule couleur sans vba - Guide
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
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 :
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