Pb sur précédure avec NOW / If

Bonjour à tous,

Ma précédure ne fonctionne pas correctement.

le but : si dans la collone A la date est antérieure à aujourd'hui et que dans la collone B de la même ligne la cellule est vide,

Je colorise les cellule de cette ligne de la colonne A à L.

mais .....les cellules de la colonne B se colorise , si on saisi du texte alors que la cellule de la colonne A est vide....

Je sèche.....merci pour votre aide !

;o)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Valeur As Integer
 Dim i As Integer

Valeur = Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row

For i = 1 To Valeur

    If Sheets("Feuil1").Range("A" & i).Value < Now And Sheets("Feuil1").Range("B" & i).Value = "" Then

        Sheets("Feuil1").Columns("A:L").Rows(i).Interior.ColorIndex = 43 ' couleur verte

    End If 
Next i
End Sub

Bonjour,

mauvaise idée que de choisir SelectionChange qui sera appelé à chaque sélection inutilement.

Et c'est faisable par une simple MFC. Privilégier les fonctionnalité d'excel au lieu de chercher à compenser ses manques de connaissance par une macro.

eric

Merci pour ta réponse.

le choix de SelectionChange n’était là que pour l'exemple.

Je vais donc explorer la MFC.