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

  • Initiateur de la discussion Initiateur de la discussion dancar
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

dancar

XLDnaute Junior
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour