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
bonjour yg_be,
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
2 problèmes se posent;
le premier est celui évoqué plus haut et qui concerne le renseignement de la date à la fois sur l'onglet actif et sur les 2 onglets masqués lorsque je click sur le bouton "retour menu".
Le second concerne le bouton "imprimer" que j'ai créé sur mon userform et pour lequel je souhaiterai une impression de ces 2 onglets masqués.
merci d'avance pour votre aide
bonjour,
moi non plus je n'ai pas d'erreur en cliquant sur le bouton "retour menu" mais ce que je souhaite c'est de pouvoir enregistrer la date sur les 3 onglets y compris ceux qui sont masqués.
merci
le fichier partagé comporte le code que j'ai testé, cependant ce que je veux c'est inscrire en même temps que sur mon onglet visible la date sur les 2 onglets masqués que j'imprimerai par la suite en cellule "B1".
merci
j'ai testé le code qui m'avait été proposé à savoir:
Range("B1").Value = valeur
Sheets("Commande").Range("B1").Value = valeur
Sheets("stock à réintégrer").Range("B1").Value = valeur
Mais je viens de voir que j'avais mal renseigné une des feuilles du coup c ok pour cette fonction, reste éventuellement à me guider pour la fonction impression que j'ai expliqué plus haut.
merci
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 ?
je constate en effet que si ma feuille "Commande" est protégée mon code ne fonctionne pas !! Quel code dans ce cas rajouter pour que cela fonctionne?
Range("B1").Value = valeur
Sheets("Commande").Range("B1").Value = valeur
Sheets("stock à réintégrer").Range("B1").Value = valeur
merci
Dim protA As Boolean
protA = Sheets("Commande A").ProtectContents
If protA Then
Sheets("Commande A").Unprotect
End If
Sheets("Commande A").Range("B1").Value = Date
If protA Then
Sheets("Commande A").Protect
End If
J'ai testé ta commande seulement voilà une fenêtre s'affiche qui me demande d'ôter la protection de la feuille ??
Je ne souhaite pas avoir ce message, je souhaite juste pouvoir enregistrer la date sur ces 2 onglets "protégés" . Est-ce possible ??
merci
si, celle-ci est protégée par mot de passe car elle comporte des formules et pour lesquelles je ne souhaite pas qu'elles soient modifiées par les utilisateurs.
- Messages postés
-
27
- Date d'inscription
- jeudi 4 mars 2021
- Statut
- Membre
- Dernière intervention
- 9 avril 2021
> yg_behttps://drive.google.com/file/d/1E0eilKjux8-7KxU0Xswmkl_gOseZPIqn/view?usp=sharing
- Messages postés
-
16008
- Date d'inscription
- lundi 9 juin 2008
- Statut
- Contributeur
- Dernière intervention
- 13 juin 2021
867 > reidid3563- Messages postés
-
27
- Date d'inscription
- jeudi 4 mars 2021
- Statut
- Membre
- Dernière intervention
- 9 avril 2021
> yg_be- Messages postés
-
16008
- Date d'inscription
- lundi 9 juin 2008
- Statut
- Contributeur
- Dernière intervention
- 13 juin 2021
867 > reidid3563- Messages postés
-
27
- Date d'inscription
- jeudi 4 mars 2021
- Statut
- Membre
- Dernière intervention
- 9 avril 2021
> yg_bemerci à toi