Macro - recherche de date

Slt William, et les autres

Contente que tu prennes goût au forum..

Je te propose une boucle sur toutes les cellules de la colonne B s'arrêtant lorsque ta cellule est trouvée

Dim cellule As Range
For Each cellule In Columns("B:B").Cells

If cellule > Range("C2") Then Exit For

Next

cellule.Select

@+
Valérie

Bonjour Valérie,

Merci d'avoir répondu à mon s.o.s.

Cependant, je ne parviens pas à obtenir de résultat avec cette méthode, pour une raison m'échappant complétement...

Quelle autre solution est-il possible d'utiliser ?

Slt William et forumeurs (euses)

Comprend pas bien ce qui ne fonctionne pas. Peux-tu me décrire ce qui ne va pas !!

@+
Valérie

Re-bonjour à Tous,

Après quelques (longs) tâtonnements, je suis parvenu à faire tourner la boucle, mais il faut pour cela que je supprime le texte se trouvant dans les
cellules "B1" et "B2"....

As-tu un moyen pour ne pas prendre ces données en considération ?

Merci d'avance

William

Ah la la, ça se complique...

Il a fallu que je bidouille légèrement la macro, pour aller chercher la date sur une autre feuille, et maintenant, la macro bug et affiche :

"Variable objet ou variable de bloc With non définie"

Vous trouverez ci-dessous le code complet de la macro :



Sub ClotureDOSSIER()
'
' ClotureDOSSIER Macro
' Macro enregistrée le 12/02/03 par test
'

'
'Copie de la date dans feuille 1

Sheets("FICHE AZUR").Select
Range("U4").Select
jourch = Selection.Rows.Text

'Collage de la date dans feuille 2 ("FU112")

Sheets("C 02-03").Select
Range("FU112").Select
Selection.Value = jourch

'Recherche de la date

Dim cellule As Range

For Each cellule In Columns("B:B").Cells
If cellule > Range("FU112") Then Exit For
Next
cellule.Select

End Sub




Merci de bien vouloir m'aider, suis complètement perdu...

A bientôt

William

Bonjour Tout le monde,

Je viens de trouver l'origine de mon problème, la date inscrite en FU 112 était au format dd/mm/yy et non dd/mm/yyyy,

D'où un problème lorsque l'on cherchait à comparer les dates....

S'agissant d'un autre point d'excell, j'ouvre un autre fil...


Merci à tous pour votre aide, et un spécial thank pour valérie...

William