Discussion :

[triaguae]

bonjour

j'utilise ce code pour nommer un onglet en fonction de la valeur d'une cellule

Code :

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

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

mais quand je saisis une valeur en D5, le nom de mon onglet ne s'actualise pas: il faut que je clique sur un autre onglet puis que je revienne sur le premier pour que la valeur soit prise en compte; donc un peu laborieux et cela m'empêche de continuer mon code

merci d'avance de vos suggestions!

[fring]

Bonjour,

Dans ce cas utilise plutôt l'événement Change des feuilles

Code :

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

1
2
3
4
5
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub '<-- on quitte la procédure si plusieurs cellules sont sélectionnées sinon ça coince
    On Error Resume Next '<-- gestion d'erreur en cas de caractères non autorisés
    If Target.Address = "$D$5" Then Sh.Name = Target.Value
End Sub

Cdlt