Commande bouton ok VBA excel
Feng
-
Clark...kent Messages postés 50 Statut Membre -
Clark...kent Messages postés 50 Statut Membre -
Bonjour,
Je suis en train de programmer ma commande bouton ok. Dans ma fenetre userform j'ai créé plusieur zone de text pour que l'utilisateur puisse rentrer des données.
Je veux pouvoir récupérer ces données et de les mettre dans mes variables de ma fonction (En fait ces données servent à remplir les lignes de ma feuille excel)....
Comme je ne connais pas vraiment très bien le VBA.... niveau syntaxe je sais vraiment pas comment faire, et je ne trouve pas vraiment des exemple de code de ce type.
Est ce que quelqu'un pourrai m'aide??
Merci beaucoup de votre aide!
Je suis en train de programmer ma commande bouton ok. Dans ma fenetre userform j'ai créé plusieur zone de text pour que l'utilisateur puisse rentrer des données.
Je veux pouvoir récupérer ces données et de les mettre dans mes variables de ma fonction (En fait ces données servent à remplir les lignes de ma feuille excel)....
Comme je ne connais pas vraiment très bien le VBA.... niveau syntaxe je sais vraiment pas comment faire, et je ne trouve pas vraiment des exemple de code de ce type.
Est ce que quelqu'un pourrai m'aide??
Merci beaucoup de votre aide!
1 réponse
-
Bonjour,
Donc tu as créé une textbox dans ton formulaire.
Si c'est bien le cas, renomme-la dans sa propriété.
Exemple : TxtNom
Pour récupérer la valuer contenue : TxtNom.Value = Range("A1")
Dis moi si c'est bien ça que tu veux-
En fait je suis en train de faire ça pour le "commande bouton OK".....
Et le code que j'ai fait c'est:
'La position dans le feuille d'excel pour remplir
Position = Worksheets("Control System I O list").Range("P1").End(xlUp).Row
'Stockage de la valeur de zone de text
Worksheets("Control System I O list").Range("P" & Position).Value = _
frm_ADRESSE.CompanyProjectNumber.Value
'On vide la zone de text
frm_ADRESSE.CompanyProjectNumber.Value = ""
Le "CompanyProjectNumber" est donc le nom de mon textbox.
Mais ça ne marche pas, il me met une erreur "objet requis" sur
Worksheets("Control System I O list").Range("P" & Position).Value = _
frm_ADRESSE.CompanyProjectNumber.Value
Et je ne vois pas où est l'erreur.... -
-
