Erreur si supprime plusieur cellules a la fois [Résolu]

Signaler
Messages postés
670
Date d'inscription
mardi 17 août 2010
Statut
Membre
Dernière intervention
9 juin 2021
-
Messages postés
670
Date d'inscription
mardi 17 août 2010
Statut
Membre
Dernière intervention
9 juin 2021
-
Bonjour,

j'ai un soucis avec un fichier ou je change la valeur d'une cellule et ca change la couleur de l'onglet la macro fonctionne mais si je supprime la valeur de plus d'une cellule ligne ou colonne j'ai une erreur qui apparait
comment solutionner svp
je vous mets le fichier exemple
https://www.cjoint.com/c/KFfsMoygnne
merci

Configuration: Windows / Firefox 89.0


Slts               A bientôt 
Surplus

6 réponses

Messages postés
9848
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
9 juin 2021
2 127
Bonjour

essaie comme ceci

Private Sub Worksheet_Change(ByVal Cel As Range)
If Cel.Count > 1 Then Exit Sub
If Intersect(Cel, Range("C8")) Is Nothing Then Exit Sub
If Len(Cel) > 7 Then MsgBox "ID Commerçant 7 caractères": Application.Undo
End Sub

Cdlmnt
Messages postés
670
Date d'inscription
mardi 17 août 2010
Statut
Membre
Dernière intervention
9 juin 2021
4
bonsoir en fait c'est pas celle la qui pose le soucis je pensais l'avoir supprimé pour cet exemple c'est quand je change les couleurs de l'onglet qui me pose le soucis quand la macro s’arrête elle me signale cette macro

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target <> Range("$H$6") Then Exit Sub
Select Case Target.Value
Case Is = "En Cours"
ActiveSheet.Tab.ColorIndex = 35
Case Is = "Attente Action"
ActiveSheet.Tab.Color = RGB(255, 0, 0) '38
Case Is = "Cloturé"
ActiveSheet.Tab.ColorIndex = 50
End Select
End Sub
dans ThisWorkBook

Slts               A bientôt 
Surplus
Messages postés
9848
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
9 juin 2021
2 127
C'est la même chose, il te faut vérifier que le nombre de cellules qui ont changé n'est pas supérieur à . et tu devrais ajouter cette instruction à l'autre procedure)

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
if Target.count > 1 then exit sub
If Target <> Range("$H$6") Then Exit Sub 


Cdlmnt
Messages postés
670
Date d'inscription
mardi 17 août 2010
Statut
Membre
Dernière intervention
9 juin 2021
4
j'ai mis le fichier exemple si tu peux developper
https://www.cjoint.com/c/KFgriU7tcoe
merci
Messages postés
9848
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
9 juin 2021
2 127
Tu as mis à Résolu donc tu as du trouver
Au cas où
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target <> ActiveSheet.Range("$H$6") Then Exit Sub
Select Case Target.Value
  Case Is = "En Cours": ActiveSheet.Tab.ColorIndex = 35
  Case Is = "Attente Action": ActiveSheet.Tab.Color = RGB(255, 0, 0)  '38
  Case Is = "Cloturé": ActiveSheet.Tab.ColorIndex = 50
End Select
End Sub

Bonne soirée
Messages postés
670
Date d'inscription
mardi 17 août 2010
Statut
Membre
Dernière intervention
9 juin 2021
4
Bonjour
oui le probleme est resolu
merci de ton aide