Bonjour,

j'ai ce code qui fonctionne très bien avec une variable String :

Sub parcourirColonne2()

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
Dim i As Integer
 
    Dim myDate As String
    maDate = "Word"
    MsgBox (maDate)
 
        For i = 1 To 5
 
           MsgBox (Worksheets("Les Pronos").Cells(i, 2).Value)
           If Worksheets("Les Pronos").Cells(i, 2).Value = maDate Then
 
              MsgBox ("Voulez-vous copiez cette ligne ?")
           End If
 
 
        Next i
 
End Sub
Par contre, si je remplace maDate = "Word" par maDate = "15/03/2019", ça ne marche plus, que ce soit avec maDate As String ou maDate As Date.
Pourriez-vous m'aider à résoudre ce problème svp?
Merci d'avance.