VBA - Critères sur 2 cellules différentes

Version imprimable

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 :calim2:
Je n'arrive qu'à imposer le critère sur un seul champ.
Code:

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!

En attendant, j'ai developpé cette solution.
Son gros défaut, c'est qu'elle ne marche qu'une fois :calim2:

donc si quelqu'un sait comment faire, je suis preneuse!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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)
 
    For Each Cell In plage
        If Cell.Value <= Datedocument Then
        .Cells(Cell.Row, 1).Value = "Too Old - " & .Cells(Cell.Row, 1).Value
        End If
    Next Cell
    End With
End If
 
End Sub

Probablement pas l'idéal, mais ça a le mérite de fonctionner sans faire de mauvaise chaîne de caractères.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
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 plage
        If Cell.Value <= Datedocument Then
            .Cells(Cell.Row, 1).Value = "Too Old - " & .Cells(Cell.Row, 1).Value
        End If
 
    Next Cell
    End With
 
End If
 
plage2.Replace "Too Old - Too Old - Yes", "Too Old - Yes"
plage2.Replace "Too Old - Too Old - No", "Too Old - No"
 
End Sub