nom de cellule = nom de feuille

skoobi

XLDnaute Barbatruc

• 13 Octobre 2007

• #2

Re : nom de cellule = nom de feuille

Bonjour,
place ce code dans Thisworkbook qui ce trouve dans VBE (Alt+11) :

Code:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
For i = 1 To 30
j = CStr(i)
If Target = j Then
    Sheets(j).Activate
    Range("a2").Select
    
End If
Next

End Sub

ta cellule dans être au format texte.

 

Vote positif 0 Vote négatif

G

Guiv

XLDnaute Occasionnel

• 13 Octobre 2007

• #3

Re : nom de cellule = nom de feuille

Bonsoir,
Une autre solution en pièce jointe, trouvée sur le forum.
Cordialement,
Guiv

 

Pièces jointes

• NomFeuilleDansCellule.xls

  19.5 KB · Affichages: 59

Vote positif 0 Vote négatif

G

Guiv

XLDnaute Occasionnel

• 13 Octobre 2007

• #4

Re : nom de cellule = nom de feuille

Toutes mes excuses, je n'ai pas bien lu la question, et du coup ma réponse n'a rien à voir avec le sujet..., un peu avec le titre quand même.

 

Vote positif 0 Vote négatif

F

fab1234

Guest

• 13 Octobre 2007

• #5

Re : nom de cellule = nom de feuille

Merci skoubi, j'ai rajouté ta macro mais il me met en erreur "End sub attendu"

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 13 Octobre 2007

• #6

Re : nom de cellule = nom de feuille

Re,
vérifie que tu as bien copié le code que je t'ai donné, il doit y avoir quelque chose en trop.
"Sub" écrit quelque part peut-être?

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 14 Octobre 2007

• #7

Re : nom de cellule = nom de feuille

Bonsoir,

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If Not Intersect([A1], Target) Is Nothing Then Sheets(CStr(Target)).Select
[a2].Select
On Error GoTo 0
End Sub


avec ce code, en entrant 1, 2, 3 ...dans la cellule A1, tu vas directement dans la cellule A2 de l'onglet nommé 1, 2 ou 3

 

Vote positif 0 Vote négatif

F

fab1234

Guest

• 14 Octobre 2007

• #8

Re : nom de cellule = nom de feuille

Bonsoir,

Quelque soit le code entré, j'ai toujours le message "erreur de compilation et End sub attendu"
Pourtant je n'ai fait qu'un copier-coller ???
Désolé mais je ne suis pas un spécialiste de VB

Fab

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 14 Octobre 2007

• #9

Re : nom de cellule = nom de feuille

Re,
envoie le fichier, c'est bizarre....

 

Vote positif 0 Vote négatif

G

Guillaumega

XLDnaute Impliqué

• 14 Octobre 2007

• #10

Re : nom de cellule = nom de feuille

Bonjour à tous,

Une autre solution avec une formule:

=STXT(CELLULE("filename",'feuille1'!$A$1),CHERCHE("]",CELLULE("filename",'feuille1'!$A$1))+1,100)

 

Vote positif 0 Vote négatif

F

fab1234

Guest

• 16 Octobre 2007

• #11

Re : nom de cellule = nom de feuille

bonsoir,

Voici mon fichier complet, je l'ai réduit au maxi pour qu'il passe, merci d'essayer.

 

Pièces jointes

• Saisie des pertes.xls

  47.5 KB · Affichages: 39
• Saisie des pertes.xls

  47.5 KB · Affichages: 47
• Saisie des pertes.xls

  47.5 KB · Affichages: 44

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 16 Octobre 2007

• #12

Re : nom de cellule = nom de feuille

Bonsoir fac1234 et le fil,

Zippé, il en aurait fait moins de 15Ko, donc plus de 3 fois moins....

Merci pour l'avenir.

Bonne nuit.

Jean-Pierre

 

Vote positif 0 Vote négatif

fred65200

XLDnaute Impliqué

• 17 Octobre 2007

• #13

Re : nom de cellule = nom de feuille

bonsoir, une variante au code de bhbh.
A coller dans le module de feuille Saisie

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
on error resume next
If Target.Address = "$D$2" Then Application.Goto Sheets(Target.Value).Range("A2")
err.clear: on error goto 0
End Sub

Copie le code
Clic droit sur l'onglet / Visualiser le code
Tu colles. Alt Q.

Salutations
fred65200

 

Vote positif 0 Vote négatif

F

fab1234

Guest

• 17 Octobre 2007

• #14

Re : nom de cellule = nom de feuille

Bonjour,

C'est toujours pareil, j'ai toujours le message "erreur de compilation : End sub attendu" même si je le déplace !

 

Vote positif 0 Vote négatif

fred65200

XLDnaute Impliqué

• 17 Octobre 2007

• #15

Re : nom de cellule = nom de feuille

bonjour,

peux tu faire voir ton code ou envoyer ton classeur au format .zip; sans données personnelle.

fred65200

 

Vote positif 0 Vote négatif