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
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
Vba arrondi supérieur ✓ - Forum VB / VBA
Find vba - Astuces et Solutions
Incompatibilité de type vba ✓ - Forum Programmation
Vba attendre 1 seconde ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

yg_be Messages postés 21791 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 21 septembre 2023 1 379
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 21791 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 21 septembre 2023 1 379 > 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 21791 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 21 septembre 2023
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 765 > 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

VBA erreur 1004

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

VBA : Range avec références variables..

Excel VBA : Récupérer la valeur d'une cellule

Excel VBA : Derniere colonne utilisée

Discussions similaires

Newsletters