Discussion :

[Aless75]

Bonjour le forum ,

J'ai un petit problème dans mon code VBA. Je pense que la réponse est toute simple mais je n'arrive pas à la trouver :/.

J'ai un tableau avec quatre colonnes sur ma feuille P2. La première contient des dates et les autres des données associées. La date que je recherche est en Prog!D3.
Mon code fait une recherche sur la colonne A, et affiche les évènements du jour recherché sur la feuille P3. Il fonctionne lorsque je recherche un texte, mais pas lorsque j'effectue une recherche avec des dates. Je pense donc avoir un problème de format...

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
Dim Choice As Date
Choice = Range("Prog!D3").Value
Dim C As Range
Dim Firstaddress As String
Dim i As Integer

i = 1
With Sheets("P2").Range("A1:A65536")
Set C = .Find(Choice, LookIn:=xlValues)
If Not C Is Nothing Then
Firstaddress = C.Address
Do
Sheets("P3").Range("A" & i & ":D" & i) = Range(C, C.Offset(0, 4)).Value
i = i + 1
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> Firstaddress
End If
End With
Set C = Nothing

Si qqn a une petite idée...
Merci beaucoup

[youn1096]

essayes avec format :

Code :

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

1
2
 
format(tadate,"dd/mm/yyyy") 'pour le format jj/mm/aaaa

dans l'aide d'excel tu trouveras une explication bien detailé à ce sujet

[Aless75]

Qqch comme Choice.Format(...) ? Je ne trouve pas la syntaxe :/. J'ai défini Dim Choice As Date.

[youn1096]

non plutot :

Code :

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

1
2
3
 
 
format( choice,"dd/mm/yyyy")

[Aless75]

J'ai trouvé !
Si ça peut aider qqn par la suite, il suffisait d'écrire :

Code :

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

Range("...").Value = Format(Me.DTPicker1, "m/d/yyyy")

lors de la copie du DTPicker dans la cellule.
Merci !

[AlainTech]

Que les choses soient claires une bonne fois pour toutes.
Une Date est une Date.
Autrement dit, si on compare une variable de Type Date et une cellule Excel qui contient une valeur de Type Date, il est inutile de jouer avec des formats et les options régionales n'entrent pas en compte.
J'ai bien dit, si la cellule Excel contient une valeur de Type Date et non pas du texte représentant une date.
Pour savoir ce que contient une cellule Excel, il est intéressant de faire afficher les .Value, .Text et .Value2 de cette cellule.
Le .Text correspond à ce qui est affiché. Donc, cette valeur dépend du format d'affichage appliqué à la cellule.
Le .Value correspond au contenu affiché d'une manière lisible.
Le .Value2 est ce qui est réellement (physiquement) stocké dans le document. Pour une date, il s'agit d'un nombre décimal dont la partie entière représente le jour et la partie décimale, la portion de jour (les heures, minutes, secondes).

S'il y a le moindre problème de comparaison de dates, c'est -soit que les valeurs sont différentes, -soit que les Types comparés sont différents.

Un usage intensif du Debug.Print, des Espions et des Variables Locales est toujours fortement recommandé.