Onglet de feuille

Paritec

XLDnaute Barbatruc

• 23 Septembre 2010

• #2

Re : Onglet de feuille

Bonjour Format,
voilà dans la feuille tu mets cela si le cellule c'est B2 autrement tu modifies cells(2,2)
a+
Papou

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Name = Cells(2, 2)
End Sub

 

Vote positif 0 Vote négatif

F

Format

XLDnaute Nouveau

• 23 Septembre 2010

• #3

Re : Onglet de feuille

J'ai copié le premier code dans une feuille puis dans un module, ne fonctionnant pas j'ai fait la même chose avec le second, ça ne fonctionne tjs pas. Merci pour votre aide.

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 23 Septembre 2010

• #4

Re : Onglet de feuille

Re bonjour format Le squale
alors comme d'habitude c'est la même refrain !!!
Tu ne joins pas de fichier et après tu n'es pas capable de mettre la macro au bon endroit et tu dis cela ne marche pas!!!
La finalité c'est fait un fichier dis ou sera ta cellule et on fera
a+
papou

 

Vote positif 0 Vote négatif

F

Format

XLDnaute Nouveau

• 23 Septembre 2010

• #5

Re : Onglet de feuille

Voilà...
Merci.

 

Pièces jointes

• Classeur1.xls

  17 KB · Affichages: 58
• Classeur1.xls

  17 KB · Affichages: 56
• Classeur1.xls

  17 KB · Affichages: 59

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 23 Septembre 2010

• #6

Re : Onglet de feuille

Re Tous,
alors dans le fichier joint tapes famille durand maintenant
a+
Papou

 

Pièces jointes

• Format1.xls

  21.5 KB · Affichages: 56
• Format1.xls

  21.5 KB · Affichages: 60
• Format1.xls

  21.5 KB · Affichages: 60

Dernière édition: 23 Septembre 2010

Vote positif 0 Vote négatif

F

Format

XLDnaute Nouveau

• 23 Septembre 2010

• #7

Re : Onglet de feuille

Super, merci.
Et si je veux que cela fonctionne pour toute feuille du classeur sans avoir à recopier le code sur chaque feuille.

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 23 Septembre 2010

• #8

Re : Onglet de feuille

Salut Format, CC, Papou, le Forum

En l'absence de Papou
Place le code de le Module ThisWorkbook

Code:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Cells(2, 2) <> "" Then ActiveSheet.Name = Cells(2, 2)
End Sub

Il fonctionnera alors dans toutes les feuilles

Bonne Journée

 

Vote positif 0 Vote négatif

F

Format

XLDnaute Nouveau

• 23 Septembre 2010

• #9

Re : Onglet de feuille

Super merci à vous

 

Vote positif 0 Vote négatif