VBA
Résolu
reidid3563
Messages postés
27
Statut
Membre
-
reidid3563 Messages postés 27 Statut Membre -
reidid3563 Messages postés 27 Statut Membre -
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
j'ai testé ta commande mais toujours erreur d'éxécution "1004", erreur définie par l'application ou par l'objet
sur la ligne: Sheets("Commande").Range("B1").Value = valeur
peut-être une autre idée???
merci d'avance
question peut-être toute bête mais à priori, je ne peux que partager des fichiers "images". Comment partager un fichier excel?
merci
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 ...