Bonjour,

J'ai un souci par rapport a mon code ci-dessous:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
   'Rechercher la ligne et ecrire la date AQF.
        If UserForm2.TextBox3 <> "" Then
        Dim CelluleCherchée As Range
             With Worksheets("Base")
                Set CelluleCherchée = .Range("C14:C16000").Find(UserForm2.TextBox1.Text, LookIn:=xlValues)
                If Not CelluleCherchée Is Nothing Then .Range("L" & CelluleCherchée.Row) = CDate(UserForm2.TextBox3.Text)
                     If ("L" & CelluleCherchée) = (UserForm2.TextBox3.Text) Then
                .Range("O" & CelluleCherchée2.Row) = ("Oui")
                End If
            End With
            End If
Je voudrais en fait qu'après avoir cherché une condition en C et écrit une date en L (jusqu'ici tout fonctionne) que si la cellule L est datée il écrive oui en O mais la rien ne ce passe...

J'attends vos conseils experts
Merci a tous