Macro - recherche de date

[William]

Bonjour le Forum


Je fais de nouveau appel à vous (ben vouis, j'y prend goût depuis hier...)


Cette fois, c'est un problème avec les dates....

Dans une colonne ("B"), j'ai enregistré une série de date sous format dd/mm/yy.

J'aimerais bien qu'une macro me permette de sélectionner une cellule de cette colonne, comportant une date immédiatement supérieure à celle enregistré dans une cellule ("C2")...

Par exemple, si ("C2") contient "30/12/02", il faudrait que la cellule de la colonne ("B") contienne "31/12/02" ou "01/01/03", ou "02/01/03"...

Et ainsi de suite... Sachant cependant que ("B") contient plusieurs dates identiques, et qu'il n'y a pas toutes les dates du calendrier.

J'espère avoir été compréhensible....

En tous cas, Merci d'avance à toutes celles (et ceux) qui essaierons de me sortir cette épine du pied...

@+

William

 

[Valérie]

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

 

[William]

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 ?

 

[Valérie]

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

 

[William]

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

 

[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

 

[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