Condition multiples

[Mxr17]

Bonjour à tous,

Je voudrais appliquer la macro suivante a un tableau(feuille1), sans succès. Alors que quand je teste sur la feuille 2 cela fonctionne.
Les données de la feuille1 sont un copier coller d'une page internet.

Sub testun()
Dim cell As Range
For Each cell In Selection
If cell.Offset(0, -6).Value = "CDGIP" And cell.Offset(0, -1).Value = "[D] " And cell.Value + 10 >= Range("A1").Value Then

cell.EntireRow.Interior.ColorIndex = 6
End If
Next
End Sub

D'avance merci pour votre aide

 

[Catrice]

Re : Condition multiples

Bonjour,

Tes dates ne sont pas des dates
(Si tu selectionnes la colonne G et que tu fais Format/Cellules/Nombre => Standard les dates ne changent pas. Alors qu'on devrait avoir par exemple en G2 => 39926)
Ce sont des données importées ?

Le code suivant fontionne :

Sub testun()
With Sheets("Feuil1")
For Each X In .Range("G2:" & .Range("G65536").End(xlUp).Address)
If X.Offset(0, -6) = "CDGIP" And X.Offset(0, -1) = "[D] " And CDate(X) + 10 >= Range("J2").Value Then
X.EntireRow.Interior.ColorIndex = 6
End If
Next
End With
End Sub


Voir le fichier joint

 

[Mxr17]

Re : Condition multiples

Merci beaucoup pour cette reponse rapide. Oui les données proviennent d'une page web.
Je vais enfin pouvoir avancer sur ce petit projet.

Merci
Bonne soirée