VBA : Range.Value > 20
Fermé
jacques
-
7 juil. 2010 à 09:56
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 9 juil. 2010 à 13:32
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 9 juil. 2010 à 13:32
A voir également:
- VBA : Range.Value > 20
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Vba dernière colonne non vide ✓ - Forum VB / VBA
- Erreur 1004 vba ✓ - Forum VB / VBA
- Récupérer valeur cellule vba ✓ - Forum VB / VBA
- Mkdir vba ✓ - Forum VB / VBA
2 réponses
bam74540
Messages postés
13
Date d'inscription
samedi 3 octobre 2009
Statut
Membre
Dernière intervention
23 octobre 2010
9 juil. 2010 à 11:41
9 juil. 2010 à 11:41
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+
lermite222
Messages postés
8724
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
9 juil. 2010 à 13:32
9 juil. 2010 à 13:32
Bonjour,
Il faut d'abord sélectionner (Excel supporte pas ce genre de déclaration)
A+
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+
