Bonjour le forum,

J'ai besoin d'aide pour le soucis suivant:

J'ai une base de données avec 3 colonnes:
* en A, un indicateur faisant mention de "Yes" ou "No"
* en B, une information diverse, peu importante ici
* en C, une date

Je suis un train de créer un userform ou l'utilisateur doit saisir une date dans une textbox.
Si la date rentrée dans la base de donnée est inférieure à la date saisie dans la textbox, alors la cellule dans la colonne A devient "Too Old" avec une mention derrière
* Si la cellule de la colonne A était en YES, elle devient "Too-Old-Yes"
* Si elle était en NO, elle devient "Too-Old-No"

Voilà, je ne sais pas si c'est clair!
J'ai essayé le code suivant, mais ça ne marche pas
Je n'arrive qu'à imposer le critère sur un seul champ.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Dim Datedocument As Date
Dim plage As Range
Dim plage2 As Range
Datedocument = TextBox1.Value
 
If TextBox1 = "" Then
    MsgBox "Filled the case please"
    Else
 
    With Sheets("Test")
    Dernligne = .Range("C" & Rows.Count).End(xlUp).Row
    Set plage = .Range("C2:C" & Dernligne)
    Set plage2 = .Range("A2:C" & Dernligne)
 
    For Each Cell In plage2
        If Cell.Value = "Yes" Then
            For Each Cell In plage
                If Cell.Value <= Datedocument Then
                .Cell(Cell.Row, 1).Value = "too Old-Yes"
                End If
            Next Cell
        End If
    Next Cell
End If
Merci de votre aide!