Discussion :

[Joujou94]

Bonjour,

J’ai besoin d’aide sur un fichier de travail sur lequel j’aimerais insérer quelques macros. J’ai fait des recherches mais n’ai pas trouvé quelque chose qui correspond à ce que je souhaite faire.

J’ai un fichier avec 3 onglets : - "formulaire type" à ne pas modifier, -accueil, -tableau d’analyse. J’aimerais qu’à chaque fois que quelqu’un rentre le nom d’un client dans l’onglet accueil et valide avec un bouton crée, un nouvel onglet se crée à la suite avec le formulaire type à l’intérieur (il faudrait que le nom de l'onglet soit le nom du client et qu'il apparaisse aussi en haut de la feuille). J’aimerais aussi pouvoir sur la page accueil créer un bouton qui efface automatiquement tous les onglets crées hors des trois premiers.

Quelqu’un pourrait-il regarder mon fichier pour m’aider là-dessus ?

Merci beaucoup

[Philippe Tulliez]

Bonjour,

J’ai fait des recherches mais n’ai pas trouvé quelque chose qui correspond à ce que je souhaite faire.

En décomposant la suite d'actions à effectuer pour atteindre le but final, tu aurais certainement trouvé sur le web et encore plus certainement sur ce site la réponse à tes questions.

Prenons comme exemple cette phrase

J’aimerais qu’à chaque fois que quelqu’un rentre le nom d’un client dans l’onglet accueil et valide avec un bouton crée, un nouvel onglet se crée à la suite avec le formulaire type à l’intérieur (il faudrait que le nom de l'onglet soit le nom du client et qu'il apparaisse aussi en haut de la feuille).

• J’aimerais qu’à chaque fois que quelqu’un rentre le nom d’un client dans l’onglet accueil et valide avec un bouton crée, un nouvel onglet se crée à la suite avec le formulaire type à l’intérieur
  Solution : Créer une procédure (ce qu'on appelle communément une macro) qui copie la feuille servant de "modèle" dans le même classeur
• il faudrait que le nom de l'onglet soit le nom du client et qu'il apparaisse aussi en haut de la feuille
  Solution : Le nom de l'onglet c'est sa propriété Name et l'écrire en haut de la feuille c'est par exemple

  Code :

  Sélectionner tout - Visualiser dans une fenêtre à part

  Range("A1").Value = ActiveSheet.Name

Ce bout de phrase nécessite déjà deux questions à chercher sur le web voir à poser sur ce forum en ouvrant deux discussions

Autre question à poser ou nécessitant une recherche. Toujours issue de cette même phrase.
Comment lancer une procédure (Macro) avec un bouton ?

L'enregistreur de macros peut également t'aider à découvrir les méthodes et propriétés devant servir à codifier ton projet.

Quelqu’un pourrait-il regarder mon fichier pour m’aider là-dessus ?

Beaucoup d'intervenants et j'en fais partie n'ouvrent pas les fichiers joints.

[Tylert]

Sans regarder le fichier, mais avec les mêmes reserves que Philippe, ci dessous un bout de code fait en 2 secondes en recherchant sur le net comment copier un onglet et comment ouvrir une message box.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Sub macro1()
Dim nom_client As String
nom_client = Application.InputBox("Entrez le nom du nouveau client", "Nouveau Client")
Worksheets("NE PAS MODIFIER").Copy After:=Worksheets("NE PAS MODIFIER")
Worksheets("NE PAS MODIFIER (2)").Name = "Formulaire" & nom_client
End Sub

Tu crées un bouton tu lui attaches cette macro et le tour est joué.

[Joujou94]

Salut,

Merci à vous deux, c'est très fonctionnel pour moi !

Pour info, ci-après MACRO que j'ai utilisée, j'ai juste rajouté une ligne pour reprendre le nom du client rentré sur chaque feuille dans la cellule souhaitée.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub macro1()
Dim nom_client As String
nom_client = Application.InputBox("Entrez le nom du nouveau client", "Nouveau Client")
Worksheets("NE PAS MODIFIER").Copy After:=Worksheets("Matrice des risques")
Worksheets("NE PAS MODIFIER (2)").Name = "Formulaire " & nom_client
Range("A2").Value = ActiveSheet.Name
End Sub

Merci encore à vous,

Bonne journée