[Résolu] Message d'erreur sur une macro pour renommer onglet suivant cellule

[libellule85]

Bonsoir le forum,
J'ai récupéré cette macro (ci-dessous) pour renommer automatiquement un onglet d'après une cellule qui fonctionne très bien.
Or quand je supprime le contenu de la dite cellule cela me met un message d'erreur !!!😕

Private Sub Worksheet_Change(ByVal Target As Range)
    'MAcro Dan le 08/12/2010
    If Not Intersect(Target, Range("E7")) Is Nothing Then
    ActiveSheet.Name = Target
    End If
    End Sub

N'y aurait-il pas un moyen pour supprimer ce message ?
D'avance merci pour vos réponses

 

[Victor21]

Re : Message d'erreur sur une macro pour renommer onglet suivant cellule

Bonsoir, libellule85

J'ai proposé une ânerie, désolé...
😱

 

[david84]

Re : Message d'erreur sur une macro pour renommer onglet suivant cellule

Bonsoir,
non testé mais peut-être :

Private Sub Worksheet_Change(ByVal Target As Range)
    'MAcro Dan le 08/12/2010
    If Not Intersect(Target, Range("E7")) Is Nothing and Target.value<>"" Then
    ActiveSheet.Name = Target
    End If
    End Sub

ou alors :

Private Sub Worksheet_Change(ByVal Target As Range)
    'MAcro Dan le 08/12/2010
on error resume next
    If Not Intersect(Target, Range("E7")) Is Nothing Then
    ActiveSheet.Name = Target
    End If
    End Sub

A+

Edit : bonsoir Victor🙂, décidément, t'es plus rapide que moi ce soir (et en plus je ne sais pas si ce que j'ai proposé répond réellement à la demande...).
Félicitations pour ton passage de cap😎

 

[libellule85]

Re : Message d'erreur sur une macro pour renommer onglet suivant cellule

Bonsoir Victor21, David84,
David84 : c'est exactement ce que je voulais. Maintenant il n'y a plus d'erreur quand j'efface le contenu la cellule.
Merci à vous deux.
Bonne soirée

 

[libellule85]

Re : Message d'erreur sur une macro pour renommer onglet suivant cellule

Re bonsoir,

Je voulais savoir comment faire car le "renommage" correspond en fait à 2 cellules soit la E7 soit la E8 : si la cellule E7 est déjà renseignée je ne veux pas que la cellule E8 modifie le nom de l'onglet....

Private Sub Worksheet_Change(ByVal Target As Range)
     'MAcro Dan le 08/12/2010
 On Error Resume Next
     If Not Intersect(Target, Range("E7")) Is Nothing Then
     ActiveSheet.Name = Target      
     End If
     End Sub

Merci d'avance pour vos réponses

 

[Victor21]

Re : Message d'erreur sur une macro pour renommer onglet suivant cellule

Re à tous.

@ Libellule : heureux que ton problème soit résolu 🙂

@David

décidément, t'es plus rapide que moi ce soir

Plus rapide pour proposer des cochoncetés ! 😱 Merci pour tes congratulances. 🙂
@CC

attention c'est réservé à Doublezero

Les DADA, ils n'y ont pas droit ? Après tout, ce sont aussi des équidés ! 😛

 

[david84]

Re : Message d'erreur sur une macro pour renommer onglet suivant cellule

Re
je me répète : sans fichier exemple, pas moyen de tester et de réellement comprendre ton attente...
donc, peut-être :

Private Sub Worksheet_Change(ByVal Target As Range)
     'MAcro Dan le 08/12/2010
if [E7]<>"" then exit sub
 On Error Resume Next
     If Not Intersect(Target, Range("E7")) Is Nothing Then
     ActiveSheet.Name = Target      
     End If
     End Sub

A+

 

[libellule85]

Re : Message d'erreur sur une macro pour renommer onglet suivant cellule

Bonsoir carcharodon-carcharias, David84, Victor21
merci à vous tous pour vos réponses.
CC cela marche impeccable.
Bonne soirée

 

[DoubleZero]

Re : Message d'erreur sur une macro pour renommer onglet suivant cellule

Bonjour à toutes et à tous,

Re à tous.

@ Libellule : heureux que ton problème soit résolu 🙂

@David
Plus rapide pour proposer des cochoncetés ! 😱 Merci pour tes congratulances. 🙂
@CC
Les DADA, ils n'y ont pas droit ? Après tout, ce sont aussi des équidés ! 😛

Mes longues oreilles, bien que coiffées d’un grand bonnet, m’ont permis de tout entendre 🙂 !

Par conséquent, je voudrais ajouter ceci : les DoubleZero ne peuvent que braire 😡 alors que les DADA… savent hennir 😀…

Pardon, libellule85 😱 ! Cela n’apporte rien à la discussion mais… pas pu m’empêcher de faire un petit clin d’œil 😉 !

Bon dodo et... à bientôt !