Problème d'erreur d'exécution

Bonjour le forum,

Sur mon projet pratiquement terminé je rencontre un soucis, des lors que dans certaine cellules ou je peu écrire quand je souhaite les effacer un message d'erreur s'affiche.

FENETRE DEBOGAGE:
Erreur d'exécution 13
Incompatibilité de type

puis sur mon code la ligne suivante est en jaune (ici ecrit en rouge).

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = ("$B$12") And Target <> "" Then ActiveSheet.Name = Target.Value 'Else 'ActiveSheet.Name = Range("$C$6").Value End If If Range("B13").Value = "" Then Range("B13").Value = "Saisir nom remplaçant" If Range("B19").Value = "" Then Range("B19").Value = "Saisir nom remplaçant" Ect... If Range("B12").Value = "" Then Range("B12").Value = "Saisir votre nom" End sub

---

Je suppose que c'est Target.Address qui coince!! enfin je crois.

Merçi de me guider la dessus.

Cordialement

Bonsoir.

Non le code est "bon" uniquement lorsque la modification porte sur une seule cellule,
mais l'erreur est déclenchée lorsqu'il s'agit de plusieurs cellules modifiées d'un coup
car la valeur ne peut être testée pour un groupe de cellules mais seulement individuellement …

Code:

---

1 2 3 4 5 6 7 8

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$12" Then If Target > "" Then ActiveSheet.Name = Target.Value ' Else ' ActiveSheet.Name = Range("$C$6").Value End If End If

---

bonsoir Marc-L

Merçi pour ta réponse rapide et efficace, c'est exactement ce que je souhaitai. Conseils très interressent.


Cordialement