Tester la feuille active par son codename

vgendron

XLDnaute Barbatruc

• 8 Avril 2015

• #2

Re : Tester la feuille active par son codename

Bonjour,
essaie avec juste
If activesheet.Name="OT_F" then

le name. c'est le nom que tu lui as donné
le codename. c'est le nom qu'excel lui avait donné à sa création: Feuil1 Feuil2, Feuil3....

 

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 8 Avril 2015

• #3

Re : Tester la feuille active par son codename

Bonjour,
chez moi le code fonctionne correctement.
A+
Edit

le codename. c'est le nom qu'excel lui avait donné à sa création: Feuil1 Feuil2, Feuil3....

Cliquez pour agrandir...

Oui mais tu peux le modifier...

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 8 Avril 2015

• #4

Re : Tester la feuille active par son codename

Hello David84

Bizarre..
je viens de faire le test et chez moi ca me donne bien une différence...
avec une feuille que j'ai renommée
cn = ActiveSheet.CodeName
n = ActiveSheet.Name

le CodeName me renvoit "Feuil3"
et le Name me renvoit "Nouveau Nom"

y aurait il une subtilité?

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 8 Avril 2015

• #5

Re : Tester la feuille active par son codename

Bonjour à tous ,

en effet le code :


Sub gg()
If ActiveSheet.CodeName = "hhh" Then MsgBox "GGG est bien active"
End Sub

fonctionne trés bien .

Pour info , les 2 sont renommables.

 

Vote positif 0 Vote négatif

S

sevy1

XLDnaute Occasionnel

• 8 Avril 2015

• #6

Re : Tester la feuille active par son codename

Bonjour merci pour vos réponse
si j'ai dit que ça ne marche pas c'est parce que j'ai un classeur avec deux onglets que j'ai renommé en OT_F et OT_E
et je souhaiterais qu'en imprimant la feuille active du classeur que le numéro se trouvant à la cellule J1 puisse s'incrementer voici le bout de code

Code:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
n = ActiveSheet.CodeName
    If n = "OT_E" Then
       n.Range("J1").Value = "0000" & .Range("J1").Value + 1
    End If
    If n = "OT_F" Then
       n.Range("J1").Value = "0000" & .Range("J1").Value + 3
        End If
End Sub

 

Pièces jointes

• INCREMENTATION APRES IMPRESSION.xlsm

  13.3 KB · Affichages: 33

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 8 Avril 2015

• #7

Re : Tester la feuille active par son codename

Re
dans le module ThisWorkbook :

Code:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Call test
End Sub

Dans un module :

Code:

Sub test()
Dim ws As Worksheet
Set ws = ActiveSheet
n = ws.CodeName

With ws.Range("J1")
  .NumberFormat = "00000"
  If n = "OT_E" Then
      .Value = .Value + 1
  Else
    .Value = .Value + 3
  End If
End With

End Sub

A+

 

Vote positif 0 Vote négatif

S

sevy1

XLDnaute Occasionnel

• 9 Avril 2015

• #8

Re : Tester la feuille active par son codename

Bonsoir à tous
Des excuses pour la réponse tardive je n'ai pas pu me connecter depuis Hier
Merci pour la réponse ça marche
RESOLU

 

Vote positif 0 Vote négatif