Rebonsoir,
J'ai bien avancé sur la customisation de mon fichier Excel; ceci dit j'ai une erreur quand j'exécute l'action suivante :
sélection d'une plage de cellule manuellement et suppression de leur contenu => cela dérange mon code vba a priori => "Erreur d'exécution 13, incompatibilité de type".
La plage de cellule que je supprime est effectivement une plage concernée par mes lignes de code...
Voici mon code :
Private Sub Worksheet_Change(ByVal Target As Range)
'On facilite la saisie de l'utilisateur en préremplissant certaines cellules
'Extensions
If Target.Address = "$E$16" And Target.Value = "Non" Then
[E17] = "NA"
[E18] = "NA"
End If
If Target.Address = "$E$16" And Target.Value = "Oui" Then
[E17] = "Oui"
[E18] = "Non"
End If
'Clés
If Target.Column = 3 And (Target.Row >= 22 And Target.Row <= 50) Then
If Target.Value = "Clé" Then
Target.Offset(0, 2) = "NA"
Target.Offset(0, 3) = "NA"
Target.Offset(0, 4) = "NA"
Target.Offset(0, 5) = "NA"
End If
End If
'Cylindres
If Target.Column = 3 And (Target.Row >= 22 And Target.Row <= 50) Then
If Target.Value = "Cylindre" Then
Target.Offset(0, 4) = "Standard (Laiton nickelé satiné)"
Target.Offset(0, 5) = "NA"
End If
End If
'Double entrée
If Target.Column = 4 And (Target.Row >= 22 And Target.Row <= 50) Then
If Target.Value = "Double entrée" Then
Target.Offset(0, 1) = "31,5"
Target.Offset(0, 2) = "31,5"
End If
End If
'Boutons
If Target.Column = 4 And (Target.Row >= 22 And Target.Row <= 50) Then
If Target.Value = "Bouton" Then Target.Offset(0, 4) = "Standard (forme H)"
End If
'Demi-cylindres
If Target.Column = 4 And (Target.Row >= 22 And Target.Row <= 50) Then
If Target.Value = "Demi-cylindre" Then
Target.Offset(0, 1) = "10"
Target.Offset(0, 2) = "31,5"
End If
End If
End Sub
Une exécution pas à pas détaillée me mène à la première ligne de code mais pourtant cette ligne ainsi que l'ensemble de mon code fonctionne.
Comment empêcher l’apparition de ce message d'erreur quand je veux reset mes cellules?
Merci d'avance pour votre aide
Vip4rk