Libellé d'onglet automatisé.

mth

XLDnaute Barbatruc

• 21 Octobre 2010

• #2

Re : Libellé d'onglet automatisé.

Bonjour Rick@,

Un essai avec ce code, à placer dans le code de la feuille:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B4")) Is Nothing Then
    ActiveSheet.Name = Range("B4")
End If
End Sub

Bien à toi,

mth

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 21 Octobre 2010

• #3

Re : Libellé d'onglet automatisé.

Bonjour à tous

Ceci, peut-être ?

Code:

[COLOR="DarkSlateGray"][B]Private Sub Worksheet_Change(ByVal Target As Range)
Dim AD
  Set AD = Intersect(Target, [B4])
  If Not AD Is Nothing Then
    On Error Resume Next [COLOR="Sienna"]'... parce qu'une feuille ne peut pas être nommée n'importe comment.[/COLOR]
    Me.Name = AD.Value
    If Err.Number <> 0 Then MsgBox "Une feuille ne peut être nommée" & vbLf & vbLf & AD.Value & vbLf
    On Error GoTo 0
  End If
End Sub[/B][/COLOR]

ROGER2327
#4362

Lundi 16 Haha 138 (Saint Vadrouille, emblème, SQ)
30 Vendémiaire An CCXIX
2010-W42-4T15:05:47Z

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 21 Octobre 2010

• #4

Re : Libellé d'onglet automatisé.

Bonjour

@ROGER2327
Je galère avec la gestion d'erreur
que veut dire et comment fonctionne, stp?
On Error GoTo 0

 

Vote positif 0 Vote négatif

mth

XLDnaute Barbatruc

• 21 Octobre 2010

• #5

Re : Libellé d'onglet automatisé.

re 🙂

Juste une parenthèse ... pour remercier Roger pour son code bien plus pro !!!

merci 🙂
(je me le note pour une prochaine fois ...)
mth

 

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 21 Octobre 2010

• #6

Re : Libellé d'onglet automatisé.

Bonjour (ou re) à tous,


@tbft :
On Error Resume Next > force la macro à continuer, même en cas d'erreurs.
On Error Goto 0 > remet la gestion des erreurs à l'état normal (la macro s'arrête si erreur).

Pour plus d'infos, voici une excellente lecture.

a+

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 21 Octobre 2010

• #7

Re : Libellé d'onglet automatisé.

Bonjour

Je viens de récupérer le lien en question.
Merci beaucoup mromain.

 

Vote positif 0 Vote négatif

Rick@

XLDnaute Occasionnel

• 21 Octobre 2010

• #8

Re : Libellé d'onglet automatisé.

Merci à vous, cela foctionne....

J'avance!!!

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 21 Octobre 2010

• #9

Re : Libellé d'onglet automatisé.

Re...

mth à dit:

(...)
Juste une parenthèse ... pour remercier Roger pour son code bien plus pro !!!
(...)

Cliquez pour agrandir...

Saperlipopette ! Restez polie, Madame !!!
Je suis amateur, moi, Madame, amateur... C'est un métier, ça, Madame, un vrai ! "Pro", "pro"... J'vous en ficherai, moi, des "pros" !

Quelle époque ! Se faire traiter ! À mon âge... Comme un vulgaire Guillaume Porte...

Décidément, j'aurai tout vu, tout lu, tout entendu...

Hein ? Quoi ?
Ma tension ? Que je me calme ? Oui, chérie, tu as raison. Mais tout de même, c'est un peu fort...
​

ROGER2327
#4364

Lundi 16 Haha 138 (Saint Vadrouille, emblème, SQ)
30 Vendémiaire An CCXIX
2010-W42-4T16:13:07Z

 

Vote positif 0 Vote négatif

E

eutrophisation

XLDnaute Occasionnel

• 21 Octobre 2010

• #10

Re : Libellé d'onglet automatisé.

Bonsoir

Dans B4 J4AI UNE FORMULE =si(a1="";"";a1) l'onglet ne suit plus B4. Je signale aussi que la feuille est protégée.

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 21 Octobre 2010

• #11

Re : Libellé d'onglet automatisé.

Bonsoir

?????????????????
?=si(a1="";"";a1)?
?????????????????

La pas compris.....

 

Vote positif 0 Vote négatif

E

eutrophisation

XLDnaute Occasionnel

• 21 Octobre 2010

• #12

Re : Libellé d'onglet automatisé.

Je pense avoir été clair. Lorsqu'il sagit d'une formule placée dans B4 l'onglet de la feuille concernée par la cellule ne prend pas le nom de la cellule.
ci joint fichier

 

Pièces jointes

• onglet_cellule1.xls

  30.5 KB · Affichages: 38

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 21 Octobre 2010

• #13

Re : Libellé d'onglet automatisé.

Re,
je viens de faire le test
cela vient (apparement) du faite que la cellule qu'intercepte l'événement
Worksheet_Change
soit A3 et pas B4

il faudrait peut être changer d'événement!!!!
Mais le quellllllllle????

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 21 Octobre 2010

• #14

Re : Libellé d'onglet automatisé.

Re...

tbft à dit:

(...)
il faudrait peut être changer d'événement!!!!
(...)

Cliquez pour agrandir...

Pourquoi ?
Essayez ceci :

Code:

[COLOR="DarkSlateGray"][B]Private Sub Worksheet_Change(ByVal Target As Range)
Dim AD
  With [B4][COLOR="Sienna"] '(Si B4 contient une formule, bien sûr !)[/COLOR]
    Set AD = Intersect(Target, .Precedents)
    If Not AD Is Nothing Then
      On Error Resume Next 
      Me.Name = .Value
      If Err.Number <> 0 Then MsgBox "Une feuille ne peut être nommée" & vbLf & vbLf & .Value & vbLf
      On Error GoTo 0
    End If
  End With
End Sub[/B][/COLOR]

ROGER2327
#4365

Lundi 16 Haha 138 (Saint Vadrouille, emblème, SQ)
30 Vendémiaire An CCXIX
2010-W42-4T19:43:43Z

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 21 Octobre 2010

• #15

Re : Libellé d'onglet automatisé.

Bonsoir Roger

Je ne pense pas qu'elle fonction car
Set AD = Intersect(Target, .Precedents)
renvoi nothing quand il y a une formule dans la cellule.......

 

Vote positif 0 Vote négatif