Sujet Précédent Sujet Suivant

Probleme d'erreur d'incompatibilité

Résolu/Fermé
Bob0876 Messages postés 40 Date d'inscription mardi 16 septembre 2014 Statut Membre Dernière intervention 4 décembre 2014 - 4 déc. 2014 à 16:33
Bob0876 Messages postés 40 Date d'inscription mardi 16 septembre 2014 Statut Membre Dernière intervention 4 décembre 2014 - 4 déc. 2014 à 17:33
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,

5 réponses

Réponse 1 / 5
Bob0876 Messages postés 40 Date d'inscription mardi 16 septembre 2014 Statut Membre Dernière intervention 4 décembre 2014
4 déc. 2014 à 16:51
J'ai trouver on error resume next
0
Réponse 2 / 5
Bob0876 Messages postés 40 Date d'inscription mardi 16 septembre 2014 Statut Membre Dernière intervention 4 décembre 2014
4 déc. 2014 à 16:59
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,
0
Réponse 3 / 5
PlacageGranby Messages postés 393 Date d'inscription mercredi 26 mars 2014 Statut Membre Dernière intervention 7 mars 2019 26
4 déc. 2014 à 17:22
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 ?
0
Réponse 4 / 5
Bob0876 Messages postés 40 Date d'inscription mardi 16 septembre 2014 Statut Membre Dernière intervention 4 décembre 2014
4 déc. 2014 à 17:25
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,
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
Bob0876 Messages postés 40 Date d'inscription mardi 16 septembre 2014 Statut Membre Dernière intervention 4 décembre 2014
4 déc. 2014 à 17:33
J'ai trouver mon erreur j'etais dans selectionchange et non dans change.

Merci,
0

Discussions similaires

Instagram "Désolé, une erreur s'est produite"
bananamilk -
cedric.masdeb -

60 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
Erreur vidéo inconnue sur le Freebox Player
mouhaaV2.0 -
LH -

59 réponses
Free erreur 38 : impossible d'envoyer des SMS
warnawak -
marcellou -

58 réponses
Erreur de lecture sur iptv smarters
Bogs -
bazfile -

1 réponse