VBA, incrémentation
espionne
Messages postés
8
Date d'inscription
Statut
Membre
-
lermite222 Messages postés 9042 Statut Contributeur -
lermite222 Messages postés 9042 Statut Contributeur -
Bonjour,
j'ai fait 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 = 35
Case "CP"
Target.Interior.ColorIndex = 50
Case Empty
Target.Interior.ColorIndex = 0
End Select
End Sub
le problème c'est que quand je veux incrémenter mes cellules, ca me met erreur d'execution "13", incompatibilité de type. Meme si ca ne m'empeche pas d'incrémenter, ca m'enerve ce message. Comment résoudre le problème? merci d'avance
j'ai fait 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 = 35
Case "CP"
Target.Interior.ColorIndex = 50
Case Empty
Target.Interior.ColorIndex = 0
End Select
End Sub
le problème c'est que quand je veux incrémenter mes cellules, ca me met erreur d'execution "13", incompatibilité de type. Meme si ca ne m'empeche pas d'incrémenter, ca m'enerve ce message. Comment résoudre le problème? merci d'avance
Configuration: Windows 2003 Internet Explorer 6.0
A voir également:
- VBA, incrémentation
- Excel compter cellule couleur sans vba - Guide
- Excel copier formule sans incrémentation ✓ - Forum Excel
- Autofill vba ✓ - Forum Excel
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Vba range avec variable ✓ - Forum VB / VBA
