Discussion :

[NamName]

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!

[NamName]

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

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

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
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

[NamName]

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

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
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