Renommer l'onglet d'une feuille d'après la valeur d'une cellule

Fermé
Chantaltreize Messages postés 1 Date d'inscription lundi 20 février 2017 Statut Membre Dernière intervention 20 février 2017 - 20 févr. 2017 à 10:30
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 20 févr. 2017 à 10:55
Bonjour,
Je suis à la recherche d'une macro lorsque je mets une date en A1 celle ci me renomme la meme feuil avec cette date
par avance merci
Chritou



1 réponse

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
Modifié par cs_Le Pivert le 20/02/2017 à 10:55
Bonjour,

a mettre dans le module de la feuille active:

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Target, Range("A1")) Is Nothing Then
 Sheets(ActiveWorkbook.ActiveSheet.Name).Name = Range("A1").Value
 End If
End Sub


se déclenche au double clic


@+ Le Pivert
0