Discussion :

[Dragi]

Bonjour à tous,

Après de nombreuses recherches infructueuses un peu partout, je me décide à vous poster mon problème en espérant que l'un d'entre vous trouvera la solution.
Je souhaite tout bêtement rechercher une date dans une colonne !!
Pour cela j'utilise la fonction Find qui me semble plus appropriée qu'un Do While...Loop et à priori plus rapide.
Lorsque j'effectue un Ctrl+F manuel sur ma colonne A en entrant la valeur recherchée à la main (ex: 01/04/2012) cela fonctionne. Et quand je le passe en VBA j'ai l'erreur d'éxecution 91 : Variable objet ou variable de bloc With non définie" sur ma MsgBox finale,logique puisque Cel = Nothing.
Je travaille sous Excel 2007, ma colonne de date (A) de ma feuille "Calcul" est bien en format Date de type "14-mar-01" sous les paramètres régionaux "Espagnol (International)"

Voici mon code :

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
21
22
23
24
25
26
27
 
Dim FichierTravail As Workbook
Dim CalculJ As Worksheet
Dim DateJour As Date
Dim MoisDuJour As Integer
Dim AnneeDuJour As Integer
Dim MoisChercher As String
Dim MoisChercher2 As Date
Dim Cel As Range
 
Set FichierTravail = ActiveWorkbook
Set CalculJ = FichierTravail.Sheets("CALCUL  J")
DateJour = Date
 
MoisDuJour = Month(DateJour)
AnneeDuJour = Year(DateJour)
 
'Permet de récupérer la date du premier jour du mois en cours
If MoisDuJour < 10 Then
MoisChercher = "01/0" & MoisDuJour & "/" & AnneeDuJour
Else
MoisChercher = "01/" & MoisDuJour & "/" & AnneeDuJour
End If
MoisChercher2 = CDate(MoisChercher)
 
Set Cel = CalculJ.Range("A1:A500").Find(What:=MoisChercher2)
MsgBox "Colonne : " & Cel.Row & "et Ligne : " & Cel.Column

J'ai essayé de rajouter toutes les options possibles derrière la méthode Find mais rien n'y fait...
Quelqu'un a-t-il une idée d'où peut provenir le problème ??
Merci d'avance pour votre aide

[casefayere]

Bonsoir,

essayes ce code, et adaptes si ça te convient

Code :

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

1
2
3
4
5
Sub nnn()
Dim MoisChercher As Date'déclarer Date
MoisChercher = CDate(Date - Day(Date) + 1)
MsgBox MoisChercher
End Sub

[Dragi]

C'est parfait ça fonctionne !!! Merci beaucoup pour cette réponse simple et rapide !!!