modif du moment d'activation macro

Staple1600

XLDnaute Barbatruc

• 8 Mai 2011

• #2

Re : modif du moment d'activation macro

Bonjour


A mettre dans ThisWorkbook

Code:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If IsEmpty(Sh.Range("e2")) Then Exit Sub
Sh.Name = Sh.Range("e2").Value
End Sub

 

Vote positif 0 Vote négatif

C

charette63

XLDnaute Occasionnel

• 8 Mai 2011

• #3

Bonjour Staple1600, merci de m'aider,

je viens de faire le test, le fonctionnement est identique qu'avec mon code, il faut que je "clic" sur l'onglet pour qu'il change de nom.
Par contre, je remarque une petite chose que je n'ai pas signalé, j'ai une feuille nommée "récapitulatif" (feuil32) qui ne doit pas être modifiée, donc un bout de code qui excluerais la "Feuil32" de la macro serais le bienvenu
autre chose peut-être?

cordialement

Thierry

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 8 Mai 2011

• #4

Re : modif du moment d'activation macro

Bonjour le fil 🙂,
A tester dans ThisWorkbook

Code:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim Feuille As Worksheet
For Each Feuille In ThisWorkbook.Worksheets
    If Feuille.Name <> "Récapitulatif" Then
        If Feuille.Name <> Feuille.Range("E2") Then Feuille.Name = Feuille.Range("E2")
    End If
Next
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address <> "$E$2" Then Exit Sub
Sh.Name = Target
End Sub

Bon dimanche 😎

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 8 Mai 2011

• #5

Re : modif du moment d'activation macro

Re, re JNP

Cela semble logique non ?

il faut que je "clic" sur l'onglet pour qu'il change de nom.

Cliquez pour agrandir...

Puisque le code se trouve la procédure :Sub Workbook_SheetActivate
Elle fonctionne donc quand on active une feuille ! (clic sur l'onglet)

L'avantage de passer par ThisWorkBook
C'est que tu peux supprimer le code présent chaque feuille.

Code:

Sub Worksheet_Activate() ' a effacer si code dans ThisWorkBook
Activesheet.Name = Range("e2").Value
End Sub

 

Vote positif 0 Vote négatif

C

charette63

XLDnaute Occasionnel

• 8 Mai 2011

• #6

bonjour JNP,

eh ben non, toujours le même topo, il faut ouvrir la feuille pour que le nom de l'onglet change

cordialement

Thierry

 

Vote positif 0 Vote négatif

C

charette63

XLDnaute Occasionnel

• 8 Mai 2011

• #7

Re: Re : modif du moment d'activation macro

pour Staple,

ma demande consiste justement à ce que l'onglet change sans devoir ouvrir la feuille.

cordialement

Thierry

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 8 Mai 2011

• #8

Re : modif du moment d'activation macro

Re


C'est normal comme je le dis plus bas
Cela est du à l'endroit ou est placé le code VBA.

editiion : Houps: j'avais pas vu ton dernier message

 

Vote positif 0 Vote négatif

C

charette63

XLDnaute Occasionnel

• 8 Mai 2011

• #9

on se croise Staple, j'ai édité mon (avant)dernier post

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 8 Mai 2011

• #10

Re : Re: modif du moment d'activation macro

Re 🙂,

charette63 à dit:

eh ben non, toujours le même topo, il faut ouvrir la feuille pour que le nom de l'onglet change

Cliquez pour agrandir...

Non, plus subtil que ça, il faut ouvrir une feuille pour que le nom de tous les onglets changent ou changer E2 pour que l'onglet change 🙄...
Maintenant, à moins que tes E2 dépendent d'un autre fichier, logiquement, tes onglets auront toujours été renommés avant la fermeture du fichier 😛...
Sinon, tu peux ajouter

Code:

Private Sub Workbook_Open()
Dim Feuille As Worksheet
For Each Feuille In ThisWorkbook.Worksheets
If Feuille.Name <> "Récapitulatif" Then
If Feuille.Name <> Feuille.Range("E2") Then Feuille.Name = Feuille.Range("E2")
End If
Next
End Sub

Après, si c'est autre chose qui influe sur la valeur de E2, il faudrait savoir quoi pour activer l'évènement en conséquense 🙄...
Bon dimanche 😎

 

Vote positif 0 Vote négatif

C

charette63

XLDnaute Occasionnel

• 8 Mai 2011

• #11

avec ton dernier code, j'ai un message d'erreur: "erreur de compilation- nom ambigu detecté- Workbook_open" (peut-etre est-ce parce que j'ai déjà un workbook_open?) auto réponse, oui, ça doit etre la cause, j'ai "reuni mes deux workbook_open et je n'ai plus de message d'erreur, mais le problème reste le même.

j'explique le fonctionnement de mon classeur:

une premiere feuille récapitulative sur laquelle j'ai les noms des employés, suivi de leurs statuts, et d'autres renseignements.
X autres feuilles specifique à chaque employé, la cellule "E2" reprend le nom de l'employé par liaison sur ma feuille "récapitulatif", et cette cellule gére le nom de l'onglet. J'ai plusieurs classeurs de ce type suivant la catégorie de personnel et ils sont suseptibles de passer d'un tableau à un autre. Avec les macros actuelles, si un employé change de tableau le nom de l'onglet ne changera que lorsque j'ouvrirai sa feuille perso (chose qui n'est pas forcement necessaire de suite). Le problème est qu'il n'y a pas que deux ou trois employés et que la necessité d'ouvrir leur feuille perso n'est pas forcement immediate, alors je rame un peu pour le(s) retrouver puisque l'onglet n'est pas (encore) à leur nom.

voilà, j'espere que mon explication est claire

cordialement

Thierry

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 8 Mai 2011

• #12

Re : modif du moment d'activation macro

Re 🙂,
C'est bien ce que je disais, ça dépends de la cause 😛...
En admettant que le nom soit en colonne B (à adapter), uniquement dans le code de Récapitulatif

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
Dim Feuille As Worksheet
For Each Feuille In ThisWorkbook.Worksheets
If Feuille.Name <> "Récapitulatif" Then
If Feuille.Name <> Feuille.Range("E2") Then Feuille.Name = Feuille.Range("E2")
End If
Next
End Sub

Du coup, toute modification de la colonne B se traduira par la modification du nom de l'onglet correspondant 🙄...
Bon dimanche 😎

 

Vote positif 0 Vote négatif

C

charette63

XLDnaute Occasionnel

• 8 Mai 2011

• #13

Avec tout mes remerciements (à Staple également hein)

ça marche du tonnerre de dieu

cordialement

Thierry

 

Dernière édition: 8 Mai 2011

Vote positif 0 Vote négatif

C

charette63

XLDnaute Occasionnel

• 8 Mai 2011

• #14

eh bien, il m'eut étonné qu'il n'y pas de "mais"

la feuille "recapitulatif" de ce premier classeur gere également un listing d'un second classeur. Je m'empresse donc de modifier le dernier code de JNP et de l'adapter. Les noms renseignés dans mon second classeur se place dans son listing via une liaison. Il semblerais que la macro ne "lise" pas le resultat de la cellule mais bien la formule (donc qui ne change pas), y a-t-il un moyen d'y remedier?

Merci

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 8 Mai 2011

• #15

Re : modif du moment d'activation macro

Re 🙂,
Techniquement, non 😱...
Une événementielle doit tenir compte d'un événement, le changement d'un autre classeur n'est pas un événement quantifiable dans le classeur actif 🙄 ...
Maintenant, reste à définir ce qui pourrait définir la nouvelle affectation des onglets 😉...
Bon courage 😎

 

Vote positif 0 Vote négatif