Trouver ("Find") une date

[Lu K]

Bonjour à toutes et à tous,

Voici mon nouveau problème :

Quand je recherche une date dans mon classeur excel avec "find", Y'a un bug (erreur d'éxécution '91' : Variable objet ou bloc With non définie). Si je remplace tout les élément date, ça va !.

Voici mon code :

Dim Repere As String

With Sheets("Feuil1")
Selection.Offset(0, 14).Activate
Set x = Selection

With Sheets("Feuil2").Range("a3:a5000")
Repere = Userform1.Date.value

Set C = .Find(Repere, LookIn:=xlValues)
x.Offset(0, 0).Value = C.Offset(0, 1).Value
x.Offset(0, 1).Value = C.Offset(0, 2).Value
x.Offset(0, 2).Value = C.Offset(0, 7).Value
x.Offset(0, 3).Value = C.Offset(0, 3).Value
x.Offset(0, 4).Value = C.Offset(0, 4).Value
x.Offset(0, 5).Value = C.Offset(0, 8).Value
End With
End With

Si quequ'un sait comment gérer les dates avec la méthodes "Find", je suis preneur et je le remercie d'avance.

A+

 

[Pierrot93]

Re : Trouver ("Find") une date

Bonjour,

A priori vois pas trop l'utilité de tes bloc "with", essaye peut être ceci...

Set x = Selection.Offset(0, 14)
Repere = Userform1.Date.Value
Set C = Sheets("Feuil2").Range("a3:a5000").Find(Repere, LookIn:=xlValues)
x.Offset(0, 0).Value = C.Offset(0, 1).Value
x.Offset(0, 1).Value = C.Offset(0, 2).Value
x.Offset(0, 2).Value = C.Offset(0, 7).Value
x.Offset(0, 3).Value = C.Offset(0, 3).Value
x.Offset(0, 4).Value = C.Offset(0, 4).Value
x.Offset(0, 5).Value = C.Offset(0, 8).Value

bonne soirée
@+

 

[Pierrot93]

Re : Trouver ("Find") une date

Re,

A noter qu'il y a peut être lieu de tester si la valeur cherchée a été trouvée...

Dim Repere As String
Set x = Selection.Offset(0, 14)
Repere = Userform1.Date.Value
Set c = Sheets("Feuil2").Range("a3:a5000").Find(Repere, LookIn:=xlValues)
If Not c Is Nothing Then
    x.Offset(0, 0).Value = c.Offset(0, 1).Value
    x.Offset(0, 1).Value = c.Offset(0, 2).Value
    x.Offset(0, 2).Value = c.Offset(0, 7).Value
    x.Offset(0, 3).Value = c.Offset(0, 3).Value
    x.Offset(0, 4).Value = c.Offset(0, 4).Value
    x.Offset(0, 5).Value = c.Offset(0, 8).Value
End If

 

[BOISGONTIER]

Re : Trouver ("Find") une date

Bonsoir,

Qq pièges sur les dates

Fnd Dates
http://boisgontierjacques.free.fr/fichiers/FindDates.xls

JB

 

[YANN-56]

Re : Trouver ("Find") une date

Bonsoir, Lu K, Pierrot, BOISGONTIER , et à ceux qui passeront par ici,

Peut-être n'ai-je pas tout compris, mais je joins un petit classeur
qui ne s'embrasse pas de trop de choses.

A noter que la limite de recherche d'une date est dans cet exemple
entre le 24/12/2009 au 12/01/2012...

Amicalement.

Yann

En espérant que Lu K repasse par là... Il y en a tant qui disparaissent!

 

[Lu K]

Re : Trouver ("Find") une date

Bonjour à tous et merci pour vos réponse,

Malheureusement, aucune de vos solution ne fontionne ! j'ai essayé plein de truc ! Si je remplace l'ensemble par des lettres, ça va.
En fait, je reprend dans un texbox une date d'une feuille et me sert ensuite de cette date pour faire une recherche sur une autre feuille. Mais il ne veur pas !

Si vous avez encore des solution !

Merci d'avance

 

[pierrejean]

Re : Trouver ("Find") une date

Bonjour à tous

A partir du code de mon ami Pierrot
Tester

Dim Repere As String
Set x = Selection.Offset(0, 14)
Repere = Cdate(Userform1.Date.Value)
Set c = Sheets("Feuil2").Range("a3:a5000").Find(Repere, LookIn:=xlValues)
If Not c Is Nothing Then
x.Offset(0, 0).Value = c.Offset(0, 1).Value
x.Offset(0, 1).Value = c.Offset(0, 2).Value
x.Offset(0, 2).Value = c.Offset(0, 7).Value
x.Offset(0, 3).Value = c.Offset(0, 3).Value
x.Offset(0, 4).Value = c.Offset(0, 4).Value
x.Offset(0, 5).Value = c.Offset(0, 8).Value
End If

 

[Lu K]

Re : Trouver ("Find") une date

Bonjour Pierrejean,

Non désolé, ça ne fonctionne toujours pas !

Merci comme même.

 

[pierrejean]

Re : Trouver ("Find") une date

Re

Peux-tu poster un petit fichier exemple avec quelques lignes sans données confidentielles ?

 

[MJ13]

Re : Trouver ("Find") une date

Bonjour à tous

LUK: Avec un fichier, ce serait plus simple pour t'aider.

 

[Pierrot93]

Re : Trouver ("Find") une date

Bonjour à tous

peut être ceci :

Set c = Sheets("Feuil2").Range("a3:a5000").Find(Repere, LookIn:=xlFormulas)

@+

 

[Lu K]

Re : Trouver ("Find") une date

Re bonjour,

C_ joint fichier.Cijoint.fr - Service gratuit de dépôt de fichiers

Merci.

 

[Pierrot93]

Re : Trouver ("Find") une date

Re,

Aarf, avais pas vu cela moi..

Repere = Userform1.Date.Value

pas top d'utiliser des noms de fonctions (Date) dans les noms des objets ou des variables...

 

[Efgé]

Re : Trouver ("Find") une date

Bonjour à tous,
Juste une idée, un truc tout bète...En utilisant

Dim Repere As Date

Cela donne un résultat sans plantage.
Cordialement

 

[Lu K]

Re : Trouver ("Find") une date

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAH !!!!!!!!!!!!!!!!!!

IL M'ENERVE LUI ! Il arrive comme ça et trouve la solution en 4 mots !!!!!! Ca fait des jours que je cherche !


MERCI A TOUS ET A EFGE.