VBA, incrémentation
espionne
Messages postés
8
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
A voir également:
- VBA, incrémentation
- Excel compter cellule couleur sans vba - Guide
- Vba sleep ✓ - Forum VB / VBA
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Find vba - Astuces et Solutions
