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.
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+ -
Bonjour,
Il faut d'abord sélectionner (Excel supporte pas ce genre de déclaration)Workbooks("X.xls").Sheets("Feuille1").select If Range("O" & i).Value > 20 Then . ....ou bien..With Workbooks("X.xls").Sheets("Feuille1") If .Range("O" & i).Value > 20 Then . ....
A+
