Discussion :

[jean30]

Bonjour,
Dans un classeur excel 2003, j'ai 10 feuilles.
Je souhaite que le nom de la feuille active (de Feuil2 à Feuil10) soit reporter dans la Feuille 1 en G7
La Feuil1 ne devant jamais être enregistrée comme feuille active.
En espérant me faire bien comprendre.
J'ai essayé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub essai()
Dim Sh As Worksheet
Nom = ActiveSheet.Name
    Sheets("Feuil1").Select
    Cells(7, 7) = ActiveSheet.Name
    Set Sh = Nothing
End Sub

Mais ça écrit Feuil1 en Feuille 1
Je vous remercie d'éclairer ma lanterne.

[mattgui]

Salut !

Normal, tu affectes à une première variable le nom de ta feuille active puis tu ne l'utilises pas ... De plus, je ne vois pas à quoi te sert la variable sh, tu ne t'en sers pas dans ton code ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub essai()
Dim Nom as String
 
Nom = ActiveSheet.Name
Sheets("Feuil1").Select
Cells(7, 7) = Nom
 
End Sub

Si tu veux rajouter une condition pour que ta feuille 1 ne soit jamais inscrite dans ta cellule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub essai()
Dim Nom as String
 
Nom = ActiveSheet.Name
if Nom = "Feuil1" then
exit sub
else
Sheets("Feuil1").Select
Cells(7, 7) = Nom
end if
 
End Sub

En espérant avoir répondu à ton problème.

Cdt,

Matt

[jean30]

Bonjour mattgui,
Je te remercie vivement pour tes explications et ton code
Ce n'est pas facile pour moi car je ne connais pas le vba

[Menhir]

En plus simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub essai()
   If ActiveSheet.Name <> "Feuil1" Then Sheets("Feuil1").Range("G7") = ActiveSheet.Name
End Sub

[Marc-L]

Bonjour,

je le verrais plutôt dans un évènement du module ThisWorkbook :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sh.Name <> Feuil1.Name Then Feuil1.[G7].Value = Sh.Name
End Sub

___________________________________________________________________________________________________________

     Merci de cliquer sur en bas à droite de chaque message ayant aidé …