Sub new_inter()
Worksheets("feuil2").Copy Before:=Sheets("Feuil3")
Sheets("feuil2").Range("E13:W23").ClearContents
Worksheets("feuil2").Activate
End Sub
Je copie la feuille 2 dans une nouvelle feuille et je clear cette derniere pour enregistrer de nouvelles donnée.
Je voudrai savoir si je pouvais spécifier le nom de la feuille selon une case renseigné
Bonjour.
Ben oui c'est possible avec Activesheet.Name = la case renseignée
Mais là, ce n'est pas la feuille active tout juste créée que vous nettoyez, c'est la feuille d'origine !
Bonjour.
Ben oui c'est possible avec Activesheet.Name = la case renseignée
Mais là, ce n'est pas la feuille active tout juste créée que vous nettoyez, c'est la feuille d'origine !
Oui, aussi, qu'est-ce que ça change ?
Remarque: je n'aime pas tout le temps chercher les objets Worksheet dans la collection Worksheets de l'objet Workbook qui représente le classeur actif.
Je préfère prendre les objets directement connus de VBA en tant que tels si le code y est contenu.
Puisque le titre du fil parle de création de feuille (et pas de copie)
Un exemple où le nom est donné lors de la création de la feuille
VB:
Sub Creation_Feuille()
Sheets.Add(after:=Sheets(Sheets.Count)).Name = "Temp_" & Format(Time, "hhmmsss")
'NB:Cette portion : Format(Time, "hhmmsss")
'C'est pour éviter de créer un feuille avec un nom déjà existant
End Sub
Puisque le titre du fil parle de création de feuille (et pas de copie)
Un exemple où le nom est donné lors de la création de la feuille
VB:
Sub Creation_Feuille()
Sheets.Add(after:=Sheets(Sheets.Count)).Name = "Temp_" & Format(Time, "hhmmsss")
'NB:Cette portion : Format(Time, "hhmmsss")
'C'est pour éviter de créer un feuille avec un nom déjà existant
End Sub
Sauf que j'ai une liste de prénom dans ma feuille "PDT" a partir B14, je pourrais référencer ce nom dans le titre de la feuille et passer à la case suivante au clic suivant ?
La feuillé crée est une copie d'une feuille existante
Bonjour.
Et ça ne vous fatigue pas d'ajouter toutes ces explication parcellaires qui ne nous permettent de toute façon pas de cerner le contexte, au lieu de joindre le fichier ?
Dans la feuille PDT, j'ai une liste de nom. Lors du clic sur le bouton. J'affiche la feuille masquer. Je voudrai donc que cette feuille soi nommé par le premier élément de la liste et sur cette feuillé créer. Le bouton "créer feuille intervenant" me duplique la mm feuille, me la clean et la nomme à l'élément suivant pour saisir pour cette personne.
Ben ajoutez une instruction ActiveSheet.Name = Feuil1.[B14].Value après le Copy
(Feuil1 c'est le nom de l'objet Worksheet qui représente la feuille "PDT")
Ben ajoutez une instruction ActiveSheet.Name = Feuil1.[B14].Value après le Copy
(Feuil1 c'est le nom de l'objet Worksheet qui représente la feuille "PDT")
- Dans la feuille PDT, je clic sur le bouton "créer feuille intervenant" et m'affiche une feuille masquer "Feuil2"
Code:
ActiveSheet.Name = Feuil1.[B14].Value
En ajoutant cette ligne à ce précédant bouton je renomme la feuille avec la cellule B14 de la feuil1
- Puis je voudrai dupliquer la feuille renommer avec la case B15, puis B16 de la feuil1.
Autant de case qui sont renseigné.