VBA : Range.Value > 20

jacques -  
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   -
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.

2 réponses

Réponse 1 / 2
bam74540 Messages postés 13 Date d'inscription   Statut Membre Dernière intervention  
 
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+
0
Réponse 2 / 2
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
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+
0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
appliquer une pause dans une macro vba excel
ch'duj -
lerif25 -

10 réponses
ouverture d'un fichier excel à partir d'un code VBA
TraderAS -
pijaku -

3 réponses
Méthode find dans VBA - Recherche de données sous Excel
baissaoui -
baissaoui -

0 réponse