Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Enregistrement de feuilles d'après une saisie, puis retour vierge

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Duster 40
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
D

Duster 40

XLDnaute Nouveau
Bonjour tous,
J’essai de me bricoler un fichier pour le boulot, mais là, ça coince !
JCGL m’avait réalisé quelque chose de similaire, mais je suis incapable d’adapter ce qu’il m’avait fait.

Voilà en quelques mots ce qui m’intéresserait :
Ma feuille « saisie », une fois renseignée, viendrait générer une nouvelle feuille nommée avec la date de la saisie, puis se retrouverait vierge. Une autre feuille sommaire serait également renseignée par des liens hypertexte qui me ramènerait à la feuille « datée » désirée.
Je m’explique : je renseigne ma feuille « saisie », tout au long de la journée.
A 4 heures du matin , donc le lendemain (c’est là le plus délicat je pense), elle vient me créer une feuille onglet nommée avec la date de la saisie, puis redevient vierge. Et vient également renseigner ma feuille « sommaire » (comme indiqué plus haut)
Le déclenchement de l’enregistrement ne peut se faire que quand la date de ma feuille « saisie » est renseignée. (comprenez bien qu’il est inutile d’enregistrer une feuille vierge)
De plus, je souhaiterai pouvoir à tout moment, modifier ou compléter les données de mes menus déroulants.

 - Le 08/06/2013 je renseigne ma feuille « saisie »
 - Le 09/06/2013, à 4 heures du mat. L’enregistrement de la feuille du 08 se fait(si elle est datée), et la feuille redevient vierge

Oups !! J’espère que c’est compréhensible …

Merci de votre aide 🙂

Voilà mon fichier ...
(Excel 2007 & 2010)
 

Pièces jointes

Trier par date Trier par votes
Re : Enregistrement de feuilles d'après une saisie, puis retour vierge

Bonjour tous,

Désolé JCGL !

J'ai essayé, je croyais l'avoir déposé🙁
Donc, après un nouvel essai, voilà le fichier !!
(mais, je te rassure, je ne comprend rien ...)
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Enregistrement de feuilles d'après une saisie, puis retour vierge

Bonjour à tous,

Tu n'a pas de bouton (Image) donc le code génère une erreur à la tentative de suppression
Ta feuilles est protégée, il faut enlever la protection, procéder à l’effacement et remettre le protection.

VB: 
Option Explicit

Sub Archivage()
    Dim DerL&, Nom As String
    DerL = Feuil1.Range("A" & Rows.Count).End(xlUp).Row + 1


    If Cells(2, 6) = "" Then
        MsgBox "Vous n'avez pas renseigné le champ date...", vbCritical, "Oubli"
        Exit Sub
    Else
        If FeuilleExiste(Format(Cells(2, 6).Value, "ddmmyyyy")) Then
            MsgBox "Vous avez dèjà une feuille de données pour cette journée", vbCritical, "Erreur..."
            Exit Sub
        End If
        Feuil2.Copy After:=Sheets(Sheets.Count)
        ActiveSheet.Name = Format(Cells(2, 6).Value, "ddmmyyyy")
        Nom = ActiveSheet.Name
        Nom = Nom
        'ActiveSheet.Shapes.Range("Image1").Delete
        Feuil1.Activate
        Range("A" & DerL).Select
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & Nom & "'!F2", TextToDisplay:=Nom
        Feuil2.Activate
        ActiveSheet.Unprotect
        Range("B5:H80").ClearContents
        Range("F2").ClearContents
        Range("F2").Select
        ActiveSheet.Protect
    End If
End Sub


Function FeuilleExiste(Nom$) As Boolean
    On Error Resume Next
    FeuilleExiste = Sheets(Nom).Name <> ""
End Function

A+ à tous
 
Vote positif 0 Vote négatif
Re : Enregistrement de feuilles d'après une saisie, puis retour vierge

Bonjour tous,

J'ai de nouveau un souci !!
Je n'arrive pas à intégrer mon bouton "image" à la macro !
Je voudrais que mon texte (mis dans une forme): "Arrivages Camions du jour" déclenche la macro pour archiver mes feuilles !
j'ai essayé à plusieurs reprises, mais sans succès 🙁
Si quelqu'un peut m'aider ... ???
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Enregistrement de feuilles d'après une saisie, puis retour vierge

Bonjour à tous,

Ton fichier avec une forme, le texte souhaité et le déclenchement de la macro sur le clic.

A+ à tous
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Enregistrement de feuilles d'après une saisie, puis retour vierge

Bonjour et bon dimanche à tous,

Je dois avoir un problème ???
Chez moi,
ActiveSheet.Shapes.Range("Rounded Rectangle 1").Delete
se surligne en jaune ...😕😕
et donc, la macro ne s'exécute pas correctement ????
 
Vote positif 0 Vote négatif
Re : Enregistrement de feuilles d'après une saisie, puis retour vierge

Bonjour à tous,

Peux-tu essayer avec Rectangle à coins arrondis 1 ?
Je modifie le fichier en #20

A+ à tous
 
Vote positif 0 Vote négatif
Re : Enregistrement de feuilles d'après une saisie, puis retour vierge

Bonjour tous,

Je comprend rien,
une fenêtre s'ouvre et me marque: Erreur d'exécution '-2147024809 (80070057)':
la valeur tapée est en dehors des limites

???
 
Vote positif 0 Vote négatif
Re : Enregistrement de feuilles d'après une saisie, puis retour vierge

Bonjour à tous,

Tu as cette erreur dans mon fichier quand tu lances la macro ou dans un fichier à toi dans lequel tu as copié / collé mon code ?

A+ à tous
 
Vote positif 0 Vote négatif
Re : Enregistrement de feuilles d'après une saisie, puis retour vierge

Bonjour à tous,

Au lieu de cliquer sur la forme, essaye de lancer la macro par Alt+F8 (la touche F8) et exécute Archivage.

Si cela fonctionne comme tu le souhaites, fais un clic droit sur la forme et vérifies le nom de cette forme :



C'est ce nom que tu dois mettre dans le code.

A+ à tous
 

Pièces jointes

  • Capture 1.png
    12.1 KB · Affichages: 51
  • Capture 1.png
    12.1 KB · Affichages: 52
Vote positif 0 Vote négatif
Re : Enregistrement de feuilles d'après une saisie, puis retour vierge

Bonjour à tous,

Je te l'expliquais dans mon #17 et c'était inclus dans le code du même message...

A+ à tous
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

S
  • Question Question
XL 2019 Calculer dimanche de pâques puis insertion du 29 février
2
Réponses
26
Affichages
702
dysorthographie
E
  • Question Question
Power Query Index TP de l'INSEE - Ajuster une formule à chaque mise à jour d'un tableau généré avec PQ
2
Réponses
21
Affichages
1 K
laurent950
1
  • Résolu(e)
Microsoft 365 effacement conditionnel d'une plage de cellules
Réponses
5
Affichages
464
1636alain
1
R
  • Question Question
Enregistrement automatique fichier des une cellule spécifique remplie
Réponses
13
Affichages
1 K
raf26
R
A
  • Question Question
Autres Différents tarifs émanants d'un tableau injectés dans différentes feuilles :-/
Réponses
1
Affichages
1 K
Staple1600
M
  • Question Question
XL 2010 Enregistrement sur deux feuilles differentes
Réponses
2
Affichages
991
M.D
M
H
  • Question Question
rechercher des dates dans une plage en fonction d'une date saisie dans un msgbox
Réponses
1
Affichages
735
Robert
J
  • Question Question
Problème code bouton commande "Rechercher" sur une colonne date de deux feuilles
Réponses
3
Affichages
929
Papou-net
U
  • Question Question
Aide: intégration d'une vérification de similitude de caractères dans une formule
Réponses
8
Affichages
1 K
UnknownUser
U
  • Question Question
Recherche de données dans une feuille dont le nom de l'onglet est renseigné cellule
Réponses
8
Affichages
1 K
Modeste
E
  • Question Question
Aide pour comparaison de 2 feuilles excel puis association d'info en feuille 3
Réponses
5
Affichages
1 K
Modeste
  • Question Question
Bug de renvoie de données entre feuilles
Réponses
5
Affichages
1 K
Metabaron
S
  • Question Question
formule si appliqué à toute une colonne
Réponses
9
Affichages
2 K
sedna
S
C
  • Question Question
Tranfert de données journalières d'une feuille de présentation excel à une autre
Réponses
10
Affichages
2 K
Claudine
C
F
  • Question Question
souci de macro "countif"
Réponses
5
Affichages
1 K
fireball
F
  • Question Question
Récupération données à partir de 2 feuilles
Réponses
1
Affichages
1 K
cathodique
P
  • Question Question
Rassembler les données de 2 feuilles en une seule avec liein référentiel
Réponses
4
Affichages
898
JHA
J
D
  • Question Question
Problème de compatibilité entre excel 2013 et 2007 en VBA
2
Réponses
17
Affichages
9 K
dmoluc
D
M
  • Question Question
Le recalcule automatique ne s'opère pas tout de suite après une macro
Réponses
4
Affichages
715
Michou9
M
M
  • Question Question
Déterminer une durée à partir d'un mois, d'une année et de la date du jour
Réponses
4
Affichages
2 K
Moe
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…