VBA
Résolu
reidid3563
-
reidid3563 -
reidid3563 -
bonjour,
je suis tout nouveau sur ce forum et j'essaie de me familiariser avec le VBA.
Voilà j'ai tout d'abord un problème, j'ai créer un fichier excel pour gérer des commandes au sein de mon établissement, lorsque j'ouvre ce fichier j'ai un onglet visible ("stock avant commande") et 2 autres que j'ai volontairement masqués ("Commande" et "stock à réintégrer"). Lorsque je clique sur un bouton "retour menu" insérer dans cet onglet "stock avant commande", je souhaiterai enregistrer la date du jour dans la cellule A1 par exemple à la fois sur cet onglet mais aussi sur les 2 onglets masqués.
J'ai tenter une macro pour lancer cette fonction (ci-dessous) mais elle ne fonctionne pas, j'ai une erreur d'execution "1004", erreur définie par l'application ou par l'objet
Sub Bouton1_Clic()
Dim valeur As Date
valeur = InputBox("merci de saisir la date d'enregistrement")
Range("B1").Value = Date
Sheets("Commande","stock à réintégrer").Range("B1").Value = Date
userform1.Show
End Sub
quelqu'un peut-il m'orienter dans l'exécution de cette commande.
d'avance merci
je suis tout nouveau sur ce forum et j'essaie de me familiariser avec le VBA.
Voilà j'ai tout d'abord un problème, j'ai créer un fichier excel pour gérer des commandes au sein de mon établissement, lorsque j'ouvre ce fichier j'ai un onglet visible ("stock avant commande") et 2 autres que j'ai volontairement masqués ("Commande" et "stock à réintégrer"). Lorsque je clique sur un bouton "retour menu" insérer dans cet onglet "stock avant commande", je souhaiterai enregistrer la date du jour dans la cellule A1 par exemple à la fois sur cet onglet mais aussi sur les 2 onglets masqués.
J'ai tenter une macro pour lancer cette fonction (ci-dessous) mais elle ne fonctionne pas, j'ai une erreur d'execution "1004", erreur définie par l'application ou par l'objet
Sub Bouton1_Clic()
Dim valeur As Date
valeur = InputBox("merci de saisir la date d'enregistrement")
Range("B1").Value = Date
Sheets("Commande","stock à réintégrer").Range("B1").Value = Date
userform1.Show
End Sub
quelqu'un peut-il m'orienter dans l'exécution de cette commande.
d'avance merci
1 réponse
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
bonjour,
peut-être ainsi:Range("B1").Value = valeur Sheets("Commande").Range("B1").Value = valeur Sheets("stock à réintégrer").Range("B1").Value = valeur-
-
-
-
-
Dans un usf il faut toujours préciser la parentalité des Range
Dans quel module de quel classeur se situe ta macro ?
Le classeur est-t'il actif ?
La feuille Commande est-t'elle une feuille de calcul ?
valeur est un texte, est-t'il convertible implicitement ?
La feuille est-t'elle protégée ?
et encore bien d'autres idées ...
-
