[RESOLU] Find sur la colonne E pour éviter les Select d'une boucle Do While

[dancar]

Bonjour à tous,

Dans la colonne 5 d'une feuille j'ai des heures au format hh:mm
Pour simplifier et surtout pour éviter les multiple Select de la boucle, j'ai remplacé cette portion de code :

'On recherche le premier 00:00 de la colonne 5
If Hour([E4]) = 0 And Minute([E4]) = 0 Then GoTo 1
[E4].Select
Do While Hour(ActiveCell) <> 0 Or Minute(ActiveCell) <> 0
ActiveCell.Offset(1).Select
Loop
1

Par celle-ci:

'On recherche premier 00:00
If Hour([E4]) = 0 And Minute([E4]) = 0 Then GoTo 1
Dim Trouve As Date
Trouve = "00:00"
Cible = Columns(5).Find(What:=Trouve, lookat:=xlWhole).Offset(-1, 1).Address
1

Je souhaiterai modifier cette portion de code de la même manière mais pour trouver le dernier 23:50 de la colonne 5

'On recherche le dernier 23:50 de la colonne 5
If Hour([E4].End(xlDown)) = 23 And Minute([E4].End(xlDown)) = 50 Then GoTo 2
[E4].End(xlDown).Select
Do While Hour(ActiveCell) <> 23 Or Minute(ActiveCell) <> 50
ActiveCell.Offset(-1).Select
Loop
2

J'ai donc modifié comme ci-dessous:

'On recherche le dernier 23:50 de la colonne 5
If Hour([E4]) = 23 And Minute([E4]) = 50 Then GoTo 2
Dim Trouve2 As Date
Trouve2 = "23:50"

mais je passe des heures à chercher la syntaxe de cible2 qui doit trouver le dernier 23:50 de la colonne 5 et non le premier comme c'est le cas bien sûr avec :

Cible2 = Columns(5).Find(What:=Trouve2, lookat:=xlWhole).Offset(-1, 1).Address
2

Quelqu'un a-t-il la solution si bien évidement cela est possible avec la fonction Find

Bien à vous
Christian

 

[Dranreb]

Bonsoir
Essayez en ajoutant au Find le paramètre SearchDirection:=xlPrevious

 

[gosselien]

Bonjour,

essaie en envoyant une copie du fichier ici

P.

 

[dancar]

Bonsoir
Essayez en ajoutant au Find le paramètre SearchDirection:=xlPrevious

Bien sur que c'est ça, je suis confus.
Je l'avais enlevé pour la recherche du premier 00:00 et j'étais vraiment persuadé d'avoir fais un essai avec pour la recherche du dernier 23:50
que du coup je suis parti sur d'autres pistes et perdu un temps fou sur le Net à récupérer et essayer d'adapter différents codes.

Que de temps perdu pour rien et en plus tellement j'étais convaincu d'avoir essayé, j'ai failli ne pas faire l'essai avec.
Mais je me suis dis que si on me le propose, c'est pas pour rien surtout que l'on m'a toujours aidé efficacement pour d'autres post.

Un grand merci à toi tu m'as fais voir ce qui était là et que je ne voyais plus.

Bonne soirée et encore merci
Christian

 

[dancar]

Bonjour,

essaie en envoyant une copie du fichier ici

P.

Merci pour ta proposition, Dranreb m'a ouvert les yeux. sur ce qui était là sous mon nez.
Bonne soirée