Copier, renommer feuille VBA + Liste déroulante
Résolu/Fermé
soso_45
Messages postés
2
Date d'inscription
mardi 30 août 2016
Statut
Membre
Dernière intervention
31 août 2016
-
30 août 2016 à 15:01
soso_45 Messages postés 2 Date d'inscription mardi 30 août 2016 Statut Membre Dernière intervention 31 août 2016 - 31 août 2016 à 08:52
soso_45 Messages postés 2 Date d'inscription mardi 30 août 2016 Statut Membre Dernière intervention 31 août 2016 - 31 août 2016 à 08:52
A voir également:
- Copier, renommer feuille VBA + Liste déroulante
- Liste déroulante excel - Guide
- Liste déroulante en cascade - Guide
- Renommer plusieurs fichiers - Guide
- Copier une vidéo youtube - Guide
- Renommer iphone - Guide
1 réponse
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
30 août 2016 à 16:15
30 août 2016 à 16:15
bonjour
pour créer une fiche contrat avec acronyme inscrit
et EVENTUELLEMENT pour ne pas recommencer worksheet_activate
a écrire dans le modele fiche contrat
pour créer une fiche contrat avec acronyme inscrit
Option Explicit
'-------------------------------
Sub créer_nouveau()
Dim Onglet As String
Onglet = Sheets("fiche contrat").Range("B7")
If Onglet = "" Then Exit Sub
Sheets("fiche contrat").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = Onglet
End Sub
et EVENTUELLEMENT pour ne pas recommencer worksheet_activate
Private Sub Worksheet_Activate()
If ActiveSheet.Name <> "fiche contrat" Then Exit Sub
' Message Avertissement
MsgBox "Merci de Remplir les informations o
a écrire dans le modele fiche contrat
31 août 2016 à 08:52