Debugage Macro : "Incompatibilité de type"

Bonjour,

Avec le code ci-dessous, j'arrive à mettre une ligne en couleur suivant ce que je choisi dans une liste déroulante :

Code:

---

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

Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("B:B")) Is Nothing Then On Error Resume Next Select Case Target.Value Case Range("C1") Rows(Target.Row).Interior.Color = Range("C1").Interior.Color Case Range("C2") Rows(Target.Row).Interior.Color = Range("C2").Interior.Color Case Range("C3") Rows(Target.Row).Interior.Color = Range("C3").Interior.Color Case Range("C4") Rows(Target.Row).Interior.Color = Range("C4").Interior.Color End Select End If End Sub

---

Mon problème (très gênant!) est le suivant :
Lorsque par exemple j'ai 3 lignes de couleurs (voir le fichier joint), et que je décide de supprimer la ligne 2, alors la ligne 3 perd sa couleur et redevient blanche.
Auriez-vous une solution pour quelle garde sa couleur initiale ?

De plus, vous remarquerez que le CTRL+Z juste après avoir supprimer la ligne, ne fonctionne plus ! Encore un mystère que je ne sais élucider et qui me gêne beaucoup également.

Merci pour votre aide !

Bonjour,

Je n'arrive pas à reproduire le problème, en supprimant la ligne 2, la ligne 3 garde sa couleur et le Ctrl+Z fonctionne correctement.

Tu supprimes comment la ligne ?

Je sélectionne le numéro à gauche, puis clique droit et "supprimer".

Aurais-je des options spéciales cochées dans Excel ?

Pas que je sache

Après quelques tests, il s'avère que la ligne "On error Resume Next" est à l'origine du problème.

J'ai donc mis cette ligne en commentaire.
Cependant, j'ai tout de même une fenêtre de bug qui apparait lorsque je supprime la ligne 2.

Le bug est le suivant :
"Erreur d'exécution '13': Incompatibilité de type "

Je vous redonne le fichier en PJ.
Le code est dorénavant le suivant :

Code:

---

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

Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("B:B")) Is Nothing Then 'On Error Resume Next Select Case Target.Value Case Range("C1") Rows(Target.Row).Interior.Color = Range("C1").Interior.Color Case Range("C2") Rows(Target.Row).Interior.Color = Range("C2").Interior.Color Case Range("C3") Rows(Target.Row).Interior.Color = Range("C3").Interior.Color Case Range("C4") Rows(Target.Row).Interior.Color = Range("C4").Interior.Color End Select End If End Sub

---

Que pourrais-je mettre pour ne pas avoir cette fenêtre de bug ?
Merci par avance

Bonjour,

Citation:

---

Après quelques tests, il s'avère que la ligne "On error Resume Next" est à l'origine du problème.

---

Non, le problème vient du fait que tu génères une erreur lorsque tu supprimes la ligne.
Target correspond à la ligne complète, à savoir range("$10:$10").
Lorsque tu écris

Code:

---

1 2	Select Case Target.Value Case Range("C1")

---

Tu demandes à comparer une ligne avec une cellule => erreur 13
Pour éviter cela, tu peux écrire

Code:

---

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

Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("B:B")) Is Nothing Then On Error Resume Next Select Case Application.Intersect(Target, Range("B:B")).Value Case Range("C1").Value Rows(Target.Row).Interior.Color = Range("C1").Interior.Color Case Range("C2").Value Rows(Target.Row).Interior.Color = Range("C2").Interior.Color Case Range("C3").Value Rows(Target.Row).Interior.Color = Range("C3").Interior.Color Case Range("C4").Value Rows(Target.Row).Interior.Color = Range("C4").Interior.Color End Select End If End Sub

---

Cordialement.

Bonjour,

En effet, je comparais des choux et des patates ;)

Le code proposé marche bien mais il y a encore un souci :
Lorsque je supprime la ligne, la touche CTRL+Z ne fonctionne pas.

Est-ce mon code qui fait cela ? y a-t-il une solution ?

Merci par avance !

Sorry je n'avais pas vu que tu avais une macro évènementielle.

Ctrl+Z agit sur la dernière action et la dernière action dans ton cas est la coloration de la ligne par macro vu que celle-ci se déclenche après la suppression de la ligne.
Ctrl+Z n'agit pas sur une action réalisée par macro.

Mince alors, il n'y a donc pas de solution à ce problème ?
Car la suppression devient dangereuse pour la perte d'information.

Citation:

---

Envoyé par canary

Mince alors, il n'y a donc pas de solution à ce problème ?

---

Si, faire attention... :mouarf:

Une solution éventuelle serait de faire une copie de la feuille en question à l'ouverture du fichier, de rendre cette copie invisible et de supprimer cette copie à la fermeture du fichier. Ce qui permettrait, via une petite macro, de récupérer les données en cas de mauvaise manipulation.

• Copie de la feuille à l'ouverture du fichier
  
  Code:

  ---

  1 2 3 4 5 6 7 8 9

  Private Sub Workbook_Open() Application.ScreenUpdating = False Sheets("MaFeuille").Copy after:=Sheets(Sheets.Count) '<-- nom de feuille à adapter With Sheets(Sheets.Count) .Name = "tmp" .Visible = xlVeryHidden End With Sheets("MaFeuille").Activate '<-- nom de feuille à adapter End Sub

  ---

• Suppression de la feuille temporaire à la fermeture du fichier
  
  Code:

  ---

  1 2 3 4 5 6 7 8 9

  Private Sub Workbook_BeforeClose(Cancel As Boolean) On Error Resume Next Application.ScreenUpdating = False Application.DisplayAlerts = False With Sheets("tmp") .Visible = True .Delete End With End Sub

  ---

• Procédure de récupération des données
  
  Code:

  ---

  1 2 3 4 5 6 7 8 9 10

  Sub recup() Application.ScreenUpdating = False Application.DisplayAlerts = False With Sheets("tmp") .Visible = True .Move after:=Sheets("MaFeuille") '<-- nom de feuille à adapter Sheets("MaFeuille").Delete '<-- nom de feuille à adapter .Name = "MaFeuille" '<-- nom de feuille à adapter End With End Sub

  ---