Probleme d'erreur d'incompatibilité
Résolu
Bob0876
Messages postés
41
Statut
Membre
-
Bob0876 Messages postés 41 Statut Membre -
Bob0876 Messages postés 41 Statut Membre -
Bonjour,
Je veux qu'une ligne change de couleur selon une valeur inscrite dans une case.
Ce code marche cepandant lorsque je selectionne plusieur cellule une erreur d'incompatibilité s'affiche. Esce qu'il existe une fasson de contourné cette erreur ?
Voici mon code :
Application.DisplayAlerts = False
If Not Application.Intersect(Target, Range("$A$5:$A$2163")) Is Nothing Then
Select Case Target.Value
Case "0 - Introuvable"
Rows(Target.Row).Interior.ColorIndex = 17
Case "1 - Actif"
Rows(Target.Row).Interior.ColorIndex = 2
Case "2 - Désactiver"
Rows(Target.Row).Interior.ColorIndex = 3
Case "4 - Lid à reprendre"
Rows(Target.Row).Interior.ColorIndex = 6
Case "5 - À désactiver"
Rows(Target.Row).Interior.ColorIndex = 45
Case "6 - À affecter"
Rows(Target.Row).Interior.ColorIndex = 43
End Select
End If
Application.DisplayAlerts = true
Merci,
Je veux qu'une ligne change de couleur selon une valeur inscrite dans une case.
Ce code marche cepandant lorsque je selectionne plusieur cellule une erreur d'incompatibilité s'affiche. Esce qu'il existe une fasson de contourné cette erreur ?
Voici mon code :
Application.DisplayAlerts = False
If Not Application.Intersect(Target, Range("$A$5:$A$2163")) Is Nothing Then
Select Case Target.Value
Case "0 - Introuvable"
Rows(Target.Row).Interior.ColorIndex = 17
Case "1 - Actif"
Rows(Target.Row).Interior.ColorIndex = 2
Case "2 - Désactiver"
Rows(Target.Row).Interior.ColorIndex = 3
Case "4 - Lid à reprendre"
Rows(Target.Row).Interior.ColorIndex = 6
Case "5 - À désactiver"
Rows(Target.Row).Interior.ColorIndex = 45
Case "6 - À affecter"
Rows(Target.Row).Interior.ColorIndex = 43
End Select
End If
Application.DisplayAlerts = true
Merci,
A voir également:
- Probleme d'erreur d'incompatibilité
- Erreur t32 ✓ - Forum Livebox
- Erreur lors de l'enregistrement du contact - Forum Xiaomi
- Erreur 0x80070643 - Accueil - Windows
- Iptv erreur de lecture - Forum TV & Vidéo
- Erreur 4201 france tv ✓ - Forum Réseaux sociaux
5 réponses
Bonjour, finalement j'ai une autre question.
Le chagement de valeur ce fait a partir d'une validation de donné en format liste.
Lorsque je choise une valeur le changement de couleur ne seffectue que lorsque je deselectionne la celulle et que je la reselectionne.
Quelqu'un a une idée comment faire pour que la couleur change directement lorsque je choisie la valeur dans la liste.
Merci,
Le chagement de valeur ce fait a partir d'une validation de donné en format liste.
Lorsque je choise une valeur le changement de couleur ne seffectue que lorsque je deselectionne la celulle et que je la reselectionne.
Quelqu'un a une idée comment faire pour que la couleur change directement lorsque je choisie la valeur dans la liste.
Merci,
Les actions sont relié à des évènements.
J'imagine que votre code est dans l'évènement change de la feuil.
On ne voit pas l'entête de votre Sub(), donc il faut deviner.
Selon cette hypothèse, le code s'exécute lorsque l'on change de cellule.
Quel contrôle est a l'origine du changement ?
Il faudrait peut-être repositionner le code au niveau de ce contrôle ?
J'imagine que votre code est dans l'évènement change de la feuil.
On ne voit pas l'entête de votre Sub(), donc il faut deviner.
Selon cette hypothèse, le code s'exécute lorsque l'on change de cellule.
Quel contrôle est a l'origine du changement ?
Il faudrait peut-être repositionner le code au niveau de ce contrôle ?
Oui le code est bien dans l'évenement change de la feuille.
Mon problème viendrait de la.
Je veux que dès le changement de valeur de la cellule la couleur de la ligne change.
J'espere avoir été assexz clair. :/
Merci,
Mon problème viendrait de la.
Je veux que dès le changement de valeur de la cellule la couleur de la ligne change.
J'espere avoir été assexz clair. :/
Merci,
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question