Discussion :

[Arsene12]

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.

[BENNASR]

bonjour
essayer avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub testt()
Dim i As Integer
    Dim myDate As Date
    maDate = #1/15/2019#
MsgBox Format(maDate, "dd/mm/yyyy")
        For i = 1 To 5
           If Worksheets("feuil1").Cells(i, 2).Value = maDate Then
              MsgBox ("Voulez-vous copiez cette ligne ?")
           End If
        Next i
 
End Sub

[Menhir]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    Dim myDate As Date
    maDate = DateSerial(2019, 3, 15)

Une autre solution qui est peu élégante mais qui peut fonctionner en remplaçant Value par Text (mais ça dépend du format de ta cellule) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
    Dim myDate As String
    maDate = "15/03/2019"
 
[....]
 
           If Worksheets("Les Pronos").Cells(i, 2).Text = maDate Then

Une question : es-tu sûr que ce qui se trouve dans ta colonne B soit réellement des "dates" au sens où Excel l'entend.
Par exemple, si tu mets dans une cellule la formule =B5+1, qu'est-ce que tu obtiens ?

[joe.levrai]

Bonjour,

tu peux aussi utiliser la propriété .Value2 qui lira le numéro de série de la date, mais dans ce cas il faut convertir ta date en Long

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub toto()
Dim MaDate As Date
MaDate = "11/01/2018"
Debug.Print ActiveCell.Value2 = CLng(MaDate)
End Sub

[Arsene12]

Je m'excuse, j'avais mal énoncé mon problème. J'ai d'abord le fichier texte suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
word1-01/03/2019-xxx
word2-01/03/2019-xxx
word3-01/03/2019-xxx
word1-02/03/2019-xxx
word2-02/03/2019-xxx
word3-02/03/2019-xxx
word1-03/03/2019-xxx
etc...

Quand je copie ce texte dans excel, il s'insère dans la 1ère colonne. Je le converti en prenant le tiret comme délimiteur. Et c'est de là que vient le problème. Si je fixe maDate="02/03/2019", mon code ne marche pas. Par contre si je clique sur une cellule contenant "02/03/2019" et que je retape "02/03/2019", alors ce coup-ci ça marche.

[Arsene12]

Je m'excuse car j'avais fait une erreur dans mon code. Au lieu de déclarer ma variable :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim maDate As String

j'avais mis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim myDate As String