Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

VBA erreur d'execution, HELP!

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion espionne
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
E

espionne

Guest
Bonjour,j'ai réalisé une macro que voici:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cellule As Range
Set cellule = Application.Intersect(Range("M5:AQ41"), Target)
If cellule Is Nothing Then Exit Sub
Select Case Target.Value
Case "JR"
Target.Interior.ColorIndex = 45
Case "CP"
Target.Interior.ColorIndex = 50
Case Empty
Target.Interior.ColorIndex = 0
Case "RTT"
Target.Interior.ColorIndex = 35
Case "MAL"
Target.Interior.ColorIndex = 6
Case "RECUP"
Target.Interior.ColorIndex = 4
Case "FOR"
Target.Interior.ColorIndex = 12
le probleme c'est que quand je veux incrémenter des cellules avec des valeurs contenues dans macro, ca affiche erreur d'execution 13, incompatibilité de type. Même si cela ne m'empeche pas d'incrémenter ( je ferme le message d'erreur), cela m'enerve. Quelqu'un a t'il la solution ? merci beaucoup par avance
 
Trier par date Trier par votes
Re : VBA erreur d'execution, HELP!

Bonsoir,

essaye ceci :
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("M5:AQ41"), Target) Is Nothing Then
Select Case Target
Case "JR"
Target.Interior.ColorIndex = 45
Case "CP"
Target.Interior.ColorIndex = 50
Case Empty
Target.Interior.ColorIndex = 0
Case "RTT"
Target.Interior.ColorIndex = 35
Case "MAL"
Target.Interior.ColorIndex = 6
Case "RECUP"
Target.Interior.ColorIndex = 4
Case "FOR"
Target.Interior.ColorIndex = 12
End Select
End If
End Sub
N'oublie pas de respecter les majuscules dans les données que tu vas utiliser.
Amicalement
Dan
 
Vote positif 0 Vote négatif
Re : VBA erreur d'execution, HELP!

Bonsoir,
Peut-être comme ça, pour éviter le bug à la recopie incrémentée
 
Vote positif 0 Vote négatif
Re : VBA erreur d'execution, HELP!

re,

Evite d'utiliser le mot Cellule qui correspond à une fonction d'excel.
Si on utilise la proposition de Kjin, la macro peut devenir :
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Range("M5:AQ41"), Target) Is Nothing Then
Select Case Target
Case "JR"
Target.Interior.ColorIndex = 45
Case "CP"
Target.Interior.ColorIndex = 50
Case Empty
Target.Interior.ColorIndex = 0
Case "RTT"
Target.Interior.ColorIndex = 35
Case "MAL"
Target.Interior.ColorIndex = 6
Case "RECUP"
Target.Interior.ColorIndex = 4
Case "FOR"
Target.Interior.ColorIndex = 12
End Select
End If
End Sub
Dan
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

M
  • Question Question
XL 2021 macro VBA
Réponses
4
Affichages
586
ManuEven
M
E
  • Question Question
Autres VBA - Erreur d'exécution '13'
Réponses
4
Affichages
651
Elisa47
E
M
  • Question Question
Microsoft 365 Recherche complément de code VBA pr un remplissage de cellule automatique
Réponses
1
Affichages
795
sylvanu
L
  • Question Question
XL 2019 Besoins d'aide pour corriger une macro qui ne fonctionne pas - svp
Réponses
2
Affichages
995
ThierryP
T
M
  • Question Question
Microsoft 365 Une barre de données avec des nuances de couleurs
Réponses
1
Affichages
2 K
Rouge
R
M
  • Résolu(e)
XL 2016 Erreur de compilation "FOR"
Réponses
5
Affichages
983
MickaeL_D
M
T
  • Question Question
XL 2019 Activer une macro à partir du contenu d'une cellule
Réponses
8
Affichages
2 K
soan
S
B
  • Question Question
filtrer avec plusieurs critères en VBA
4 5 6
Réponses
82
Affichages
13 K
blancolie
B
B
  • Question Question
Erreur Incompatible Type 13
Réponses
2
Affichages
1 K
BENAM69
B
P
  • Question Question
XL 2016 Erreur d'execution 1004 erreur definie par l'application ou par l'objet
Réponses
2
Affichages
1 K
Pantin
P
S
  • Question Question
VBA Erreur d'exécution 13
Réponses
9
Affichages
2 K
Jacky67
J
  • Question Question
XL 2013 VBA erreur d'execution 13 incompatibilité de type
Réponses
2
Affichages
1 K
jim7963
J
S
  • Question Question
[résolu] Rendre un code VBA actif sur une nouvelle feuille créée
Réponses
2
Affichages
934
stef2872
S
  • Question Question
Pourquoi j'ai subitement "erreur d'execution '1004'' ici ? [résolu]
Réponses
14
Affichages
2 K
Staple1600
M
  • Question Question
erreur de compilation dans le module caché
Réponses
7
Affichages
4 K
-miss-
M
C
  • Question Question
XL 2010 Erreur d'exécution 13 suite à la modification d'un tableau par l'ajout d'une ligne de totaux
Réponses
10
Affichages
1 K
cgpa
C
M
  • Question Question
Message erreur d'execution '13' type incompatible
Réponses
9
Affichages
1 K
mix770
M
C
  • Question Question
code vba pour remplacer la mise en forme conditionnelle
Réponses
7
Affichages
1 K
CHTING
C
P
  • Question Question
Fonction copier/coller inactive à la suite d'une macro calendrier
Réponses
3
Affichages
1 K
PAGEOT37
P
R
  • Question Question
erreur d'exécution 1004
Réponses
1
Affichages
812
Robert
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…