Parcourir colonne avec date

Bonjour,

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

Sub parcourirColonne2()

Code:

---

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.

bonjour
essayer avec :

Code:

---

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

---

Code:

---

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:

---

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 ?

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:

---

1 2 3 4 5

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

---

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

Code:

---

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.

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

Code:

---

Dim maDate As String

---

j'avais mis :

Code:

---

Dim myDate As String

---

:marteau: