VBA : Range.Value > 20
jacques
-
lermite222 Messages postés 9042 Statut Contributeur -
lermite222 Messages postés 9042 Statut Contributeur -
Bonjour,
Je souhaitais faire un code qui toucherait toutes les lignes dont la colonne 0 est supérieur à 20.
j'ai tenté un :
If Workbooks("X.xls").Sheets("Feuille1").Range("O" & i).Value > 20 Then
Mais ca me déclenche une erreur 13 ! Quelqu'un pourrait-il m'aider ?
Merci d'ava,ce à tous ceux qui prendront un peu de temps pour mon problème.
Je souhaitais faire un code qui toucherait toutes les lignes dont la colonne 0 est supérieur à 20.
j'ai tenté un :
If Workbooks("X.xls").Sheets("Feuille1").Range("O" & i).Value > 20 Then
Mais ca me déclenche une erreur 13 ! Quelqu'un pourrait-il m'aider ?
Merci d'ava,ce à tous ceux qui prendront un peu de temps pour mon problème.
A voir également:
- VBA : Range.Value > 20
- Excel compter cellule couleur sans vba - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Find vba - Astuces et Solutions
- Vba range avec variable ✓ - Forum VB / VBA
2 réponses
Bonjour,
Sub test()
For i = 1 To 500 ' test sur les 500 premières lignes
If ThisWorkbook.Sheets("feuil1").Cells(i, 15).Value > 20 Then '15 = colonne O
Cells(i, 15).Interior.ColorIndex = 3 ' coloriage des cellules correspondante
Else
End If
Next i ' incrémentation de i
End Sub
a+
Sub test()
For i = 1 To 500 ' test sur les 500 premières lignes
If ThisWorkbook.Sheets("feuil1").Cells(i, 15).Value > 20 Then '15 = colonne O
Cells(i, 15).Interior.ColorIndex = 3 ' coloriage des cellules correspondante
Else
End If
Next i ' incrémentation de i
End Sub
a+
