Libellé d'onglet automatisé.

[Rick@]

Bonjour,

un onglet qui prend le libéllé automatiquement selon un choix ...

Cela se peut il?

Voir fichier.

Merci🙂

 

[mth]

Re : Libellé d'onglet automatisé.

Bonjour Rick@,

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

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

 

[ROGER2327]

Re : Libellé d'onglet automatisé.

Bonjour à tous

Ceci, peut-être ?

[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

 

[tbft]

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

 

[mth]

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

 

[mromain]

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+

 

[tbft]

Re : Libellé d'onglet automatisé.

Bonjour

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

 

[Rick@]

Re : Libellé d'onglet automatisé.

Merci à vous, cela foctionne....

J'avance!!!

 

[ROGER2327]

Re : Libellé d'onglet automatisé.

Re...

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

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

 

[eutrophisation]

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.

 

[tbft]

Re : Libellé d'onglet automatisé.

Bonsoir

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

La pas compris.....

 

[eutrophisation]

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

 

[tbft]

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????

 

[ROGER2327]

Re : Libellé d'onglet automatisé.

Re...

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

Pourquoi ?
Essayez ceci :

[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

 

[tbft]

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.......