Macro qui ne fonctionne pas dans un fichier existant
4 réponses
meb2604
Bonjour,
Quelqu'un m'a donn=E9 cette macro qui attribue la valeur d'une cellule =E0
l'onglet de la feuille.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Excel.Range)
If Target.Address =3D "$A$1" Then Sh.Name =3D Target
End Sub
=C7a fonctionne si je l'installe dans un nouveau fichier mais si je
l'installe dans un fichier existant il ne se passe rien.
J'ai v=E9rifi=E9 que toutes les feuilles en question aient quelque chose
d'=E9crit dans la cellule vis=E9e et que ce ne soit pas la m=EAme chose
d'une feuille =E0 l'autre.
De plus, =E7a ne fonctionne pas non plus dans un nouveau fichier si
apr=E8s qu'elle est install=E9 je change la r=E9f=E9rence de la cellule.
Je ne sais plus trop quoi pens=E9, =E0 l'aide.
RORO
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
meb2604
On 18 fév, 13:13, wrote:
Bonjour,
Quelqu'un m'a donné cette macro qui attribue la valeur d'une cellule à l'onglet de la feuille.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range) If Target.Address = "$A$1" Then Sh.Name = Target End Sub
Ça fonctionne si je l'installe dans un nouveau fichier mais si je l'installe dans un fichier existant il ne se passe rien.
J'ai vérifié que toutes les feuilles en question aient quelque chose d'écrit dans la cellule visée et que ce ne soit pas la même chose d'une feuille à l'autre.
De plus, ça ne fonctionne pas non plus dans un nouveau fichier si après qu'elle est installé je change la référence de la cellule.
Je ne sais plus trop quoi pensé, à l'aide. RORO
En fait, ça fonctionne mais je me rends compte que je dois moi même taper le nom en question dans la cellule. Je fonctionnait par formule pour coller le nom dans la cellule. Je m'explique, j'ai une liste de nom dans une première feuille et chaque nom correspond au titre de chacune des feuille donc je copie le nom à l'endroit désiré à la feuille.
On 18 fév, 13:13, meb2...@hotmail.com wrote:
Bonjour,
Quelqu'un m'a donné cette macro qui attribue la valeur d'une cellule à
l'onglet de la feuille.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Excel.Range)
If Target.Address = "$A$1" Then Sh.Name = Target
End Sub
Ça fonctionne si je l'installe dans un nouveau fichier mais si je
l'installe dans un fichier existant il ne se passe rien.
J'ai vérifié que toutes les feuilles en question aient quelque chose
d'écrit dans la cellule visée et que ce ne soit pas la même chose
d'une feuille à l'autre.
De plus, ça ne fonctionne pas non plus dans un nouveau fichier si
après qu'elle est installé je change la référence de la cellule.
Je ne sais plus trop quoi pensé, à l'aide.
RORO
En fait, ça fonctionne mais je me rends compte que je dois moi même
taper le nom en question dans la cellule. Je fonctionnait par formule
pour coller le nom dans la cellule. Je m'explique, j'ai une liste de
nom dans une première feuille et chaque nom correspond au titre de
chacune des feuille donc je copie le nom à l'endroit désiré à la
feuille.
Quelqu'un m'a donné cette macro qui attribue la valeur d'une cellule à l'onglet de la feuille.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range) If Target.Address = "$A$1" Then Sh.Name = Target End Sub
Ça fonctionne si je l'installe dans un nouveau fichier mais si je l'installe dans un fichier existant il ne se passe rien.
J'ai vérifié que toutes les feuilles en question aient quelque chose d'écrit dans la cellule visée et que ce ne soit pas la même chose d'une feuille à l'autre.
De plus, ça ne fonctionne pas non plus dans un nouveau fichier si après qu'elle est installé je change la référence de la cellule.
Je ne sais plus trop quoi pensé, à l'aide. RORO
En fait, ça fonctionne mais je me rends compte que je dois moi même taper le nom en question dans la cellule. Je fonctionnait par formule pour coller le nom dans la cellule. Je m'explique, j'ai une liste de nom dans une première feuille et chaque nom correspond au titre de chacune des feuille donc je copie le nom à l'endroit désiré à la feuille.
Quelqu'un m'a donné cette macro qui attribue la valeur d'une cellule à l'onglet de la feuille.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range) If Target.Address = "$A$1" Then Sh.Name = Target End Sub
Ça fonctionne si je l'installe dans un nouveau fichier mais si je l'installe dans un fichier existant il ne se passe rien.
J'ai vérifié que toutes les feuilles en question aient quelque chose d'écrit dans la cellule visée et que ce ne soit pas la même chose d'une feuille à l'autre.
De plus, ça ne fonctionne pas non plus dans un nouveau fichier si après qu'elle est installé je change la référence de la cellule.
Je ne sais plus trop quoi pensé, à l'aide. RORO
Bonsoir,
As tu bien installé cette procédure événementielle dans le module
ThisWorkbook ?
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
<meb2604@hotmail.com> a écrit dans le message de
news:6fe4f52b-1110-460c-9ec8-eb5e9187ba89@d4g2000prg.googlegroups.com...
Bonjour,
Quelqu'un m'a donné cette macro qui attribue la valeur d'une cellule à
l'onglet de la feuille.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Excel.Range)
If Target.Address = "$A$1" Then Sh.Name = Target
End Sub
Ça fonctionne si je l'installe dans un nouveau fichier mais si je
l'installe dans un fichier existant il ne se passe rien.
J'ai vérifié que toutes les feuilles en question aient quelque chose
d'écrit dans la cellule visée et que ce ne soit pas la même chose
d'une feuille à l'autre.
De plus, ça ne fonctionne pas non plus dans un nouveau fichier si
après qu'elle est installé je change la référence de la cellule.
Quelqu'un m'a donné cette macro qui attribue la valeur d'une cellule à l'onglet de la feuille.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range) If Target.Address = "$A$1" Then Sh.Name = Target End Sub
Ça fonctionne si je l'installe dans un nouveau fichier mais si je l'installe dans un fichier existant il ne se passe rien.
J'ai vérifié que toutes les feuilles en question aient quelque chose d'écrit dans la cellule visée et que ce ne soit pas la même chose d'une feuille à l'autre.
De plus, ça ne fonctionne pas non plus dans un nouveau fichier si après qu'elle est installé je change la référence de la cellule.
Je ne sais plus trop quoi pensé, à l'aide. RORO
meb2604
On 18 fév, 13:34, "Philippe.R" <AS_rauphil_chez_wanadoo.fr> wrote:
Bonsoir, As tu bien installé cette procédure événementielle dans le module ThisWorkbook ? -- Avec plaisirhttp://dj.joss.free.fr/trombine.htmhttp://jacxl.free.fr/mpfe/t rombino.html Philippe.R Pour se connecter au forum :http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel a écrit dans le message denews:6fe4f52b-1110-460c- Bonjour,
Quelqu'un m'a donné cette macro qui attribue la valeur d'une cellule à l'onglet de la feuille.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range) If Target.Address = "$A$1" Then Sh.Name = Target End Sub
Ça fonctionne si je l'installe dans un nouveau fichier mais si je l'installe dans un fichier existant il ne se passe rien.
J'ai vérifié que toutes les feuilles en question aient quelque chose d'écrit dans la cellule visée et que ce ne soit pas la même chose d'une feuille à l'autre.
De plus, ça ne fonctionne pas non plus dans un nouveau fichier si après qu'elle est installé je change la référence de la cellule.
Je ne sais plus trop quoi pensé, à l'aide. RORO
Oui je l'ai installé dans le module ThisWorkbook mais comme je le disais dans mon deuxième message ça fonctionne mais je me rends compte que je dois moi même taper le nom en question dans la cellule. Je fonctionnait par formule pour coller le nom dans la cellule. Je m'explique, j'ai une liste de nom dans une première feuille et chaque nom correspond au titre de chacune des feuille donc je copie le nom à l'endroit désiré à partir de la première feuille.
On 18 fév, 13:34, "Philippe.R" <AS_rauphil_chez_wanadoo.fr> wrote:
Bonsoir,
As tu bien installé cette procédure événementielle dans le module
ThisWorkbook ?
--
Avec plaisirhttp://dj.joss.free.fr/trombine.htmhttp://jacxl.free.fr/mpfe/t rombino.html
Philippe.R
Pour se connecter au forum :http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
<meb2...@hotmail.com> a écrit dans le message denews:6fe4f52b-1110-460c- 9ec8-eb5e9187ba89@d4g2000prg.googlegroups.com...
Bonjour,
Quelqu'un m'a donné cette macro qui attribue la valeur d'une cellule à
l'onglet de la feuille.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Excel.Range)
If Target.Address = "$A$1" Then Sh.Name = Target
End Sub
Ça fonctionne si je l'installe dans un nouveau fichier mais si je
l'installe dans un fichier existant il ne se passe rien.
J'ai vérifié que toutes les feuilles en question aient quelque chose
d'écrit dans la cellule visée et que ce ne soit pas la même chose
d'une feuille à l'autre.
De plus, ça ne fonctionne pas non plus dans un nouveau fichier si
après qu'elle est installé je change la référence de la cellule.
Je ne sais plus trop quoi pensé, à l'aide.
RORO
Oui je l'ai installé dans le module ThisWorkbook mais comme je le
disais dans mon deuxième message ça fonctionne mais je me rends compte
que je dois moi même
taper le nom en question dans la cellule. Je fonctionnait par formule
pour coller le nom dans la cellule. Je m'explique, j'ai une liste de
nom dans une première feuille et chaque nom correspond au titre de
chacune des feuille donc je copie le nom à l'endroit désiré à partir
de la première
feuille.
On 18 fév, 13:34, "Philippe.R" <AS_rauphil_chez_wanadoo.fr> wrote:
Bonsoir, As tu bien installé cette procédure événementielle dans le module ThisWorkbook ? -- Avec plaisirhttp://dj.joss.free.fr/trombine.htmhttp://jacxl.free.fr/mpfe/t rombino.html Philippe.R Pour se connecter au forum :http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel a écrit dans le message denews:6fe4f52b-1110-460c- Bonjour,
Quelqu'un m'a donné cette macro qui attribue la valeur d'une cellule à l'onglet de la feuille.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range) If Target.Address = "$A$1" Then Sh.Name = Target End Sub
Ça fonctionne si je l'installe dans un nouveau fichier mais si je l'installe dans un fichier existant il ne se passe rien.
J'ai vérifié que toutes les feuilles en question aient quelque chose d'écrit dans la cellule visée et que ce ne soit pas la même chose d'une feuille à l'autre.
De plus, ça ne fonctionne pas non plus dans un nouveau fichier si après qu'elle est installé je change la référence de la cellule.
Je ne sais plus trop quoi pensé, à l'aide. RORO
Oui je l'ai installé dans le module ThisWorkbook mais comme je le disais dans mon deuxième message ça fonctionne mais je me rends compte que je dois moi même taper le nom en question dans la cellule. Je fonctionnait par formule pour coller le nom dans la cellule. Je m'explique, j'ai une liste de nom dans une première feuille et chaque nom correspond au titre de chacune des feuille donc je copie le nom à l'endroit désiré à partir de la première feuille.
Hervé
Bonsoir, C'est normal que cela ne fonctionne que quand tu modifie manuellement la valeur en A1 puisque tu contrôle si c'est bien A1 qui à eue sa valeur modifiée --> If Target.Address = "$A$1" (Target étant la cellule qui à subie la modif manuelle). Si tu veux que le nom de la feuille est la valeur de la cellule A1, il te faut seulement écrire Sh.Name =[A1] ou alors faire la vérif sur la cellule qui à elle subit la modif manuelle.
Hervé.
a écrit dans le message de news:
On 18 fév, 13:34, "Philippe.R" <AS_rauphil_chez_wanadoo.fr> wrote:
Bonsoir, As tu bien installé cette procédure événementielle dans le module ThisWorkbook ? -- Avec plaisirhttp://dj.joss.free.fr/trombine.htmhttp://jacxl.free.fr/mpfe/trombino
Quelqu'un m'a donné cette macro qui attribue la valeur d'une cellule à l'onglet de la feuille.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range) If Target.Address = "$A$1" Then Sh.Name = Target End Sub
Ça fonctionne si je l'installe dans un nouveau fichier mais si je l'installe dans un fichier existant il ne se passe rien.
J'ai vérifié que toutes les feuilles en question aient quelque chose d'écrit dans la cellule visée et que ce ne soit pas la même chose d'une feuille à l'autre.
De plus, ça ne fonctionne pas non plus dans un nouveau fichier si après qu'elle est installé je change la référence de la cellule.
Je ne sais plus trop quoi pensé, à l'aide. RORO
Oui je l'ai installé dans le module ThisWorkbook mais comme je le disais dans mon deuxième message ça fonctionne mais je me rends compte que je dois moi même taper le nom en question dans la cellule. Je fonctionnait par formule pour coller le nom dans la cellule. Je m'explique, j'ai une liste de nom dans une première feuille et chaque nom correspond au titre de chacune des feuille donc je copie le nom à l'endroit désiré à partir de la première feuille.
Bonsoir,
C'est normal que cela ne fonctionne que quand tu modifie manuellement la
valeur en A1 puisque tu contrôle si c'est bien A1 qui à eue sa valeur
modifiée --> If Target.Address = "$A$1" (Target étant la cellule qui à subie
la modif manuelle). Si tu veux que le nom de la feuille est la valeur de la
cellule A1, il te faut seulement écrire Sh.Name =[A1] ou alors faire la
vérif sur la cellule qui à elle subit la modif manuelle.
Hervé.
<meb2604@hotmail.com> a écrit dans le message de news:
d89865c5-6c07-4b8c-8996-c5e710e89f53@u10g2000prn.googlegroups.com...
On 18 fév, 13:34, "Philippe.R" <AS_rauphil_chez_wanadoo.fr> wrote:
Bonsoir,
As tu bien installé cette procédure événementielle dans le module
ThisWorkbook ?
--
Avec
plaisirhttp://dj.joss.free.fr/trombine.htmhttp://jacxl.free.fr/mpfe/trombino
.html
Philippe.R
Pour se connecter au forum :http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
<meb2...@hotmail.com> a écrit dans le message
denews:6fe4f52b-1110-460c-9ec8-eb5e9187ba89@d4g2000prg.googlegroups.com...
Bonjour,
Quelqu'un m'a donné cette macro qui attribue la valeur d'une cellule à
l'onglet de la feuille.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Excel.Range)
If Target.Address = "$A$1" Then Sh.Name = Target
End Sub
Ça fonctionne si je l'installe dans un nouveau fichier mais si je
l'installe dans un fichier existant il ne se passe rien.
J'ai vérifié que toutes les feuilles en question aient quelque chose
d'écrit dans la cellule visée et que ce ne soit pas la même chose
d'une feuille à l'autre.
De plus, ça ne fonctionne pas non plus dans un nouveau fichier si
après qu'elle est installé je change la référence de la cellule.
Je ne sais plus trop quoi pensé, à l'aide.
RORO
Oui je l'ai installé dans le module ThisWorkbook mais comme je le
disais dans mon deuxième message ça fonctionne mais je me rends compte
que je dois moi même
taper le nom en question dans la cellule. Je fonctionnait par formule
pour coller le nom dans la cellule. Je m'explique, j'ai une liste de
nom dans une première feuille et chaque nom correspond au titre de
chacune des feuille donc je copie le nom à l'endroit désiré à partir
de la première
feuille.
Bonsoir, C'est normal que cela ne fonctionne que quand tu modifie manuellement la valeur en A1 puisque tu contrôle si c'est bien A1 qui à eue sa valeur modifiée --> If Target.Address = "$A$1" (Target étant la cellule qui à subie la modif manuelle). Si tu veux que le nom de la feuille est la valeur de la cellule A1, il te faut seulement écrire Sh.Name =[A1] ou alors faire la vérif sur la cellule qui à elle subit la modif manuelle.
Hervé.
a écrit dans le message de news:
On 18 fév, 13:34, "Philippe.R" <AS_rauphil_chez_wanadoo.fr> wrote:
Bonsoir, As tu bien installé cette procédure événementielle dans le module ThisWorkbook ? -- Avec plaisirhttp://dj.joss.free.fr/trombine.htmhttp://jacxl.free.fr/mpfe/trombino
Quelqu'un m'a donné cette macro qui attribue la valeur d'une cellule à l'onglet de la feuille.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range) If Target.Address = "$A$1" Then Sh.Name = Target End Sub
Ça fonctionne si je l'installe dans un nouveau fichier mais si je l'installe dans un fichier existant il ne se passe rien.
J'ai vérifié que toutes les feuilles en question aient quelque chose d'écrit dans la cellule visée et que ce ne soit pas la même chose d'une feuille à l'autre.
De plus, ça ne fonctionne pas non plus dans un nouveau fichier si après qu'elle est installé je change la référence de la cellule.
Je ne sais plus trop quoi pensé, à l'aide. RORO
Oui je l'ai installé dans le module ThisWorkbook mais comme je le disais dans mon deuxième message ça fonctionne mais je me rends compte que je dois moi même taper le nom en question dans la cellule. Je fonctionnait par formule pour coller le nom dans la cellule. Je m'explique, j'ai une liste de nom dans une première feuille et chaque nom correspond au titre de chacune des feuille donc je copie le nom à l'endroit désiré à partir de la première feuille.