Microsoft 365 Création d'un bouton

Créer une discussion
Répondre

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
J

jalaba

XLDnaute Nouveau
Bonjour,
J'aimerais crée un bouton permetant de crée une nouvelle fiche et que cette fiche ce nome automatiquement comme la précédente +1. je n'arrive pas a faire la macro pour ces actions.
Merci
 

Pièces jointes

Trier par date Trier par votes
Bonsoir à toutes & à tous, bonsoir @jalaba , @sylvanu, @JM27
Peut-être que rien ne sert de courir, mais là je fait vraiment fort dans le style "je prends mon temps" ! 🐢🐌
  • Comme l'a suggéré @sylvanu, c'est plus pratique d'avoir un modèle vierge. Donc je prends !
  • Comme l'ont fait @sylvanu & @JM27 c'est pas mal de faire une feuille d'Accueil. Donc je prends !
  • Il y avait une feuille cachée avec la liste des impacts possibles, je l'ai transformé en feuille "Tables".
    J'y ai mis dans des tableaux structurés les choix possibles (j'ai distingué les 3 cas au cas où il y aurait des changements.
    J'y ai ajouté une table avec les adresses de tous les champs à renseigner de la FNC (par formule si on ajoutait des lignes intercallaires).
  • J'ai ajouté dans la feuille d'accueil le choix de l'année (ça pourrait servir en 2026) et la liste des FNC ouvertes l'année choisie.
    Cette liste est construite avec des formules matricielles dynamiques, ce qui limite malheureusement aux versions 365 2021 et 2024.
    Le n° de la dernière FNC se cache en D4, le libellé du bouton renvoie le résultat de la formule en E4.

    le tout est complété par des formats conditionnels
    La feuille est protégée sans mot de passe.
Les 2 feuilles "Modèle FNC" et "Tables" sont cachées

Quelques noms définis :

Année=Accueil!$C$4Cellule contenant l'année choisie
DerNum=Accueil!$D$4Cellule contenant le N° séquentiel de la dernière FNC
Liste_FNC=Accueil!$C$7Cellule contenant la formule qui renvoie la liste des FNC
ListeFeuilles=SI(MAINTENANT();TRANSPOSE(SUBSTITUE(LIRE.CLASSEUR(1);"["&LIRE.CLASSEUR(16)&"]";""));"")Renvoie la liste des feuilles du classeur
(Macro fonction EXCEL4)

Le code de la macro :
VB: 
Sub NouvelleFNC()

     Dim N°%, An%, N°FNC$, DateOuverture As Date, Adresse$
     Dim NewFNC As Worksheet
    
     N° = [Dernum] + 1                                                               'Nouveau n°séquentiel
     An = [Année]                                                                    'Année de la FNC
     N°FNC = "FNC-" & An & "-" & Format(N°, "0000")                                  'N° de la FNC
     DateOuverture = Date                                                            'Date d'ouverture de la FNC
     Adresse = WorksheetFunction.VLookup("Date d'ouverture", [TS_Champ], 2, False)   'Adresse où écrire la date d'ouverture
     Contexte = WorksheetFunction.VLookup("Contexte", [TS_Champ], 2, False)          'Adresse du champ Contexte
    
     'Création de la nouvelle FNC
     Sh_FNC.Visible = xlSheetVisible
     Sh_FNC.Copy after:=Sh_Accueil
     Sh_FNC.Visible = xlSheetHidden
     Set NewFNC = ActiveSheet
    
     NewFNC.Name = N°FNC                     'Affecter son nom
     NewFNC.Range(Adresse) = DateOuverture   'Affecter sa date de création
     Application.Goto NewFNC.Range(Contexte) 'Se positionner sur le champ "Contexte"

End Sub

un aperçu :
1741552449691.png


Voir le fichier joint

À bientôt
 

Pièces jointes

Vote positif 0 Vote négatif
AtTheOne à dit:
Bonsoir à toutes & à tous, bonsoir @jalaba , @sylvanu, @JM27
Peut-être que rien ne sert de courir, mais là je fait vraiment fort dans le style "je prends mon temps" ! 🐢🐌
  • Comme l'a suggéré @sylvanu, c'est plus pratique d'avoir un modèle vierge. Donc je prends !
  • Comme l'ont fait @sylvanu & @JM27 c'est pas mal de faire une feuille d'Accueil. Donc je prends !
  • Il y avait une feuille cachée avec la liste des impacts possibles, je l'ai transformé en feuille "Tables".
    J'y ai mis dans des tableaux structurés les choix possibles (j'ai distingué les 3 cas au cas où il y aurait des changements.
    J'y ai ajouté une table avec les adresses de tous les champs à renseigner de la FNC (par formule si on ajoutait des lignes intercallaires).
  • J'ai ajouté dans la feuille d'accueil le choix de l'année (ça pourrait servir en 2026) et la liste des FNC ouvertes l'année choisie.
    Cette liste est construite avec des formules matricielles dynamiques, ce qui limite malheureusement aux versions 365 2021 et 2024.
    Le n° de la dernière FNC se cache en D4, le libellé du bouton renvoie le résultat de la formule en E4.

    le tout est complété par des formats conditionnels
    La feuille est protégée sans mot de passe.
Les 2 feuilles "Modèle FNC" et "Tables" sont cachées

Quelques noms définis :

Année=Accueil!$C$4Cellule contenant l'année choisie
DerNum=Accueil!$D$4Cellule contenant le N° séquentiel de la dernière FNC
Liste_FNC=Accueil!$C$7Cellule contenant la formule qui renvoie la liste des FNC
ListeFeuilles=SI(MAINTENANT();TRANSPOSE(SUBSTITUE(LIRE.CLASSEUR(1);"["&LIRE.CLASSEUR(16)&"]";""));"")Renvoie la liste des feuilles du classeur
(Macro fonction EXCEL4)

Le code de la macro :
VB: 
Sub NouvelleFNC()

     Dim N°%, An%, N°FNC$, DateOuverture As Date, Adresse$
     Dim NewFNC As Worksheet
   
     N° = [Dernum] + 1                                                               'Nouveau n°séquentiel
     An = [Année]                                                                    'Année de la FNC
     N°FNC = "FNC-" & An & "-" & Format(N°, "0000")                                  'N° de la FNC
     DateOuverture = Date                                                            'Date d'ouverture de la FNC
     Adresse = WorksheetFunction.VLookup("Date d'ouverture", [TS_Champ], 2, False)   'Adresse où écrire la date d'ouverture
     Contexte = WorksheetFunction.VLookup("Contexte", [TS_Champ], 2, False)          'Adresse du champ Contexte
   
     'Création de la nouvelle FNC
     Sh_FNC.Visible = xlSheetVisible
     Sh_FNC.Copy after:=Sh_Accueil
     Sh_FNC.Visible = xlSheetHidden
     Set NewFNC = ActiveSheet
   
     NewFNC.Name = N°FNC                     'Affecter son nom
     NewFNC.Range(Adresse) = DateOuverture   'Affecter sa date de création
     Application.Goto NewFNC.Range(Contexte) 'Se positionner sur le champ "Contexte"

End Sub

un aperçu :
Regarde la pièce jointe 1214274

Voir le fichier joint

À bientôt
Cliquez pour agrandir...
Merci beaucoup pour votre retour puis je vous demander un conseil, je dois ajouter des information dans la fiche : le nom du client
AtTheOne à dit:
Bonsoir à toutes & à tous, bonsoir @jalaba , @sylvanu, @JM27
Peut-être que rien ne sert de courir, mais là je fait vraiment fort dans le style "je prends mon temps" ! 🐢🐌
  • Comme l'a suggéré @sylvanu, c'est plus pratique d'avoir un modèle vierge. Donc je prends !
  • Comme l'ont fait @sylvanu & @JM27 c'est pas mal de faire une feuille d'Accueil. Donc je prends !
  • Il y avait une feuille cachée avec la liste des impacts possibles, je l'ai transformé en feuille "Tables".
    J'y ai mis dans des tableaux structurés les choix possibles (j'ai distingué les 3 cas au cas où il y aurait des changements.
    J'y ai ajouté une table avec les adresses de tous les champs à renseigner de la FNC (par formule si on ajoutait des lignes intercallaires).
  • J'ai ajouté dans la feuille d'accueil le choix de l'année (ça pourrait servir en 2026) et la liste des FNC ouvertes l'année choisie.
    Cette liste est construite avec des formules matricielles dynamiques, ce qui limite malheureusement aux versions 365 2021 et 2024.
    Le n° de la dernière FNC se cache en D4, le libellé du bouton renvoie le résultat de la formule en E4.

    le tout est complété par des formats conditionnels
    La feuille est protégée sans mot de passe.
Les 2 feuilles "Modèle FNC" et "Tables" sont cachées

Quelques noms définis :

Année=Accueil!$C$4Cellule contenant l'année choisie
DerNum=Accueil!$D$4Cellule contenant le N° séquentiel de la dernière FNC
Liste_FNC=Accueil!$C$7Cellule contenant la formule qui renvoie la liste des FNC
ListeFeuilles=SI(MAINTENANT();TRANSPOSE(SUBSTITUE(LIRE.CLASSEUR(1);"["&LIRE.CLASSEUR(16)&"]";""));"")Renvoie la liste des feuilles du classeur
(Macro fonction EXCEL4)

Le code de la macro :
VB: 
Sub NouvelleFNC()

     Dim N°%, An%, N°FNC$, DateOuverture As Date, Adresse$
     Dim NewFNC As Worksheet
   
     N° = [Dernum] + 1                                                               'Nouveau n°séquentiel
     An = [Année]                                                                    'Année de la FNC
     N°FNC = "FNC-" & An & "-" & Format(N°, "0000")                                  'N° de la FNC
     DateOuverture = Date                                                            'Date d'ouverture de la FNC
     Adresse = WorksheetFunction.VLookup("Date d'ouverture", [TS_Champ], 2, False)   'Adresse où écrire la date d'ouverture
     Contexte = WorksheetFunction.VLookup("Contexte", [TS_Champ], 2, False)          'Adresse du champ Contexte
   
     'Création de la nouvelle FNC
     Sh_FNC.Visible = xlSheetVisible
     Sh_FNC.Copy after:=Sh_Accueil
     Sh_FNC.Visible = xlSheetHidden
     Set NewFNC = ActiveSheet
   
     NewFNC.Name = N°FNC                     'Affecter son nom
     NewFNC.Range(Adresse) = DateOuverture   'Affecter sa date de création
     Application.Goto NewFNC.Range(Contexte) 'Se positionner sur le champ "Contexte"

End Sub

un aperçu :
Regarde la pièce jointe 1214274

Voir le fichier joint

À bientôt
Cliquez pour agrandir...
Merci beaucoup pour votre retour, je dois ajouter des éléments sur la fiche et j'aimerais les faire apparaitre dans le tableau accueil je les ai mis en jaune sur ce nouveau fichier.encore merci pour cotre aide
 

Pièces jointes

Vote positif 0 Vote négatif
Bonsoir
A mon avis il faudrait créer une base de données via un userform et créer des fiches de conformité à la demande : inutile de créer des feuilles à chaque non conformité ( diminution de nombre de feuilles dans le fichier). il faudrait donc revoir l'ensemble de ta démarche.
Voir fichier en annexe ( qui n'est pas pour l'instant fonctionnel) uniquement pour visu de l'userform
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Bonsoir à toutes & à tous, Bonsoir @jalaba

Voilà j'ai pu regarder.
Si tu dois faire des modifications de ta fiche, fais le dans la feuille "Modèle FNC" (masquée) plutôt que sur un exemplaire de fiche déjà créé 😉

Ensuite regarde la feuille "Tables" (masquée) le tableau structuré "TS_Champ" contient dans sa première colonne le titre des colonnes de la feuille "Accueil" et dans sa deuxième colonne l'adresse des cellules à lire (via une formule qui pointe sur ces cellules de la feuille "Modèle_FNC", comme ça si tu insères des lignes ou des colonnes dans ton modèle, les adresses suivront.)

Maintenant j'ai fait la modif et j'ai ajouté en colonne A une formule de lien hypertexte pour accéder aux fiches directement par un simple clic.
J'ai fait des petits ajustements de présentation et j'ai protégé les fiches pour éviter les modifications suppressions accidentelles des formules.

@JM27, ta remarque est juste, le fichier serait moins lourd en fin d'année, en plus du formulaire de saisie-modification, il faut également prévoir l'impression des fiches.
Là je reste dans la démarche de @jalaba, s'il le souhaite on pourra lui faire un prototype avec un peu plus de VBA.

Voir le fichier joint
À bientôt
Edit : correction faute orthographe dans fichier joint
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
AtTheOne à dit:
Bonsoir à toutes & à tous, Bonsoir @jalaba

Voilà j'ai pu regarder.
Si tu dois faire des modifications de ta fiche, fais le dans la feuille "Modèle FNC" (masquée) plutôt que sur un exemplaire de fiche déjà créé 😉

Ensuite regarde la feuille "Tables" (masquée) le tableau structuré "TS_Champ" contient dans sa première colonne le titre des colonnes des la feuille "Accueil" et dans sa deuxième colonne l'adresse des cellules à lire (via une formule qui pointe sur ces cellules de la feuille "Modèle_FNC", comme ça si tu insères des lignes ou des colonne dans ton modèle, les adresses suivront.)

Maintenant j'ai fait la modif et j'ai ajouté en colonne A de une formule de lien hypertexte pour accéder aux fiches directement par un simple clic.
J'ai fait des petits ajustements de présentation et j'ai protégé les fiches pour éviter les modifications suppressions accidentelles des formules.

@JM27, ta remarque est juste, le fichier serait moins lourd en fin d'année, en plus du formulaire de saisie-modification, il faut également prévoir l'impression des fiches.
Là je reste dans la démarche de @jalaba, s'il le souhaite on pourra lui faire un prototype avec un peu plus de VBA.

Voir le fichier joint
À bientôt
Cliquez pour agrandir...
Merci infiniment c'est remarquable ce que vous parvenez à faire j'aimerai tant métriser comme vous
 
Vote positif 0 Vote négatif
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

A
  • Résolu(e)
Microsoft 365 Enregistrer copie d'un fichier avec pour nom le contenu d'une cellule excel (macro)
2
Réponses
15
Affichages
887
firecarl
F
D
  • Résolu(e)
Microsoft 365 Filtre avancé VBA multi-critères
Réponses
14
Affichages
509
DELHOMME
D
M
  • Résolu(e)
XL 2016 creation d'un logicile de facturation
Réponses
3
Affichages
122
MALKO
M
M
  • Résolu(e)
Microsoft 365 Bouton d'actualisation
2
Réponses
15
Affichages
296
Melio_051651
M
H
  • Résolu(e)
XL 2021 Fiche de non conformité et tableau de suivi
2
Réponses
15
Affichages
3 K
Phil69970
Phil69970
David Aubert
Génération de code VBA
Réponses
3
Affichages
70
Cléa
Cléa
MBax
  • Résolu(e)
Microsoft 365 Extraction d'informations sur différents onglets en partant d'une base de données
Réponses
7
Affichages
557
MBax
MBax
M
  • Question Question
Microsoft 365 Afficher les données d'un userform sur un autre userform
Réponses
3
Affichages
471
Manon71.
M
R
  • Question Question
Microsoft 365 VBA Excel PowerPoint
Réponses
5
Affichages
328
Rem6610
R
S
  • Résolu(e)
Microsoft 365 VBA Match: comment éviter l'erreur?
2
Réponses
29
Affichages
543
Dranreb
Dranreb
O
  • Résolu(e)
Microsoft 365 Amélioration/réparation d'une Macro et création d'un bouton pour calcul consommation
2
Réponses
27
Affichages
724
Olihoes
O
C
  • Question Question
XL 2021 Cellules qui ne s'effacent pas sur formulaire et renvoi de valeurs du formulaire
Réponses
1
Affichages
380
gbinforme
G
N
  • Résolu(e)
XL 2010 Mémoriser l'action sur un bouton
2
Réponses
16
Affichages
200
sylvanu
sylvanu
frederio
  • Question Question
XL 2019 Le bouton copie/coller vba
Réponses
2
Affichages
108
frederio
frederio
N
  • Question Question
Autres bouton d'action sous excel
Réponses
6
Affichages
362
wDog66
wDog66
lestoiles1
  • Résolu(e)
XL 2013 Effacer le contenu si la valeur n'est pas entre 13000 90000 et copier les valeurs dupliqués
Réponses
8
Affichages
205
lestoiles1
lestoiles1
M
  • Question Question
XL 2016 liste déroulante formulaire vba excel
2
Réponses
20
Affichages
203
fanch55
fanch55
F
  • Résolu(e)
XL 2010 Macro : Remplissage de texte sous conditions
Réponses
11
Affichages
275
FLG
F
G
  • Résolu(e)
XL 2010 Faire patienter l'utilisateur avec le défilement dans un webbrowser
Réponses
5
Affichages
119
Gnedea
G
F
  • Question Question
Microsoft 365 Problème avec VBA ( Résolu)
Réponses
2
Affichages
336
firecarl
F
Retour