Discussion :

[Pompaero]

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 :

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

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

[Marc-L]

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 :

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

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

[Pompaero]

bonsoir Marc-L

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


Cordialement