VBA

Résolu/Fermé

reidid3563 Messages postés 27 Date d'inscription jeudi 4 mars 2021 Statut Membre Dernière intervention 9 avril 2021 - 4 mars 2021 à 23:18
reidid3563 Messages postés 27 Date d'inscription jeudi 4 mars 2021 Statut Membre Dernière intervention 9 avril 2021 - 10 mars 2021 à 07:30

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

A voir également:

VBA
Excel compter cellule couleur sans vba - Guide
Mkdir vba ✓ - Forum VB / VBA
Vba range avec variable ✓ - Forum VB / VBA
L'indice n'appartient pas à la sélection vba ✓ - Forum Programmation
Autofill vba ✓ - Forum Excel

1 réponse

Réponse 1 / 1

yg_be Messages postés 23471 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 15 février 2025 Ambassadeur 1 568
4 mars 2021 à 23:38

bonjour,
peut-être ainsi:

Range("B1").Value = valeur
Sheets("Commande").Range("B1").Value = valeur
Sheets("stock à réintégrer").Range("B1").Value = valeur

reidid3563 Messages postés 27 Date d'inscription jeudi 4 mars 2021 Statut Membre Dernière intervention 9 avril 2021
5 mars 2021 à 17:30

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

yg_be Messages postés 23471 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 15 février 2025 1 568 > reidid3563 Messages postés 27 Date d'inscription jeudi 4 mars 2021 Statut Membre Dernière intervention 9 avril 2021
5 mars 2021 à 19:06

peut-être partager ton fichier?

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 23471 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 15 février 2025
6 mars 2021 à 18:45

bonjour,
question peut-être toute bête mais à priori, je ne peux que partager des fichiers "images". Comment partager un fichier excel?
merci

tu importes le fichier sur internet (google drive, cjoint.com, ...), et tu partages ici un lien vers le fichier.

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779 > reidid3563 Messages postés 27 Date d'inscription jeudi 4 mars 2021 Statut Membre Dernière intervention 9 avril 2021
Modifié le 6 mars 2021 à 21:08

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 ...

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

appliquer une pause dans une macro vba excel