Pb de macro de recherche de date

[Tiobi]

Bonjour,

J'ai un problème de macro de recherche de date en interaction avec une autre macro qui sert à ajuster les lignes après avoir employé la méthode find (pour trouver vraiment la dernière ligne utilisée sur la feuille)r

La macro Today fonctionne si je la lance avant celle qui sert à ajuster les lignes.
Mais si je lance d'abord la macro pour ajuster les lignes
La macro today ne fonctionne plus et je suis obligé de quitter
la session excel pour pouvoir faire re-fonctionner la macro today.

Est-ce que quelqu'un a une idée ? (Je souhaiterais conserver la macro "Ajuster les lignes en l'état..)

Ci-joint un classeur exemple

Merci.

 

[JCGL]

Re : Pb de macro de recherche de date

Bonjour à tous,

Peux-tu essayer ceci dans un module :

Option Explicit

Sub aller_today()
Cells(Application.Match(Date * 1, [D1:D25], 1), 4).Select
End Sub

Sub Ajuste_Hauteur_ligne()
Dim DerL As Integer
Dim i As Integer

DerL = Range("D65536").End(xlUp).Row
ActiveSheet.Rows("03:" & DerL).AutoFit
    For i = 3 To DerL
        ActiveSheet.Rows(i).RowHeight = ActiveSheet.Rows(i).RowHeight + 8
    Next
End Sub

A+ à tous

 

[Tiobi]

Re : Pb de macro de recherche de date

Bonsoir JCGL,

Merci pour ta proposition qui fonctionne correctement.

Malgré tout je n'ai toujours pas compris ces problèmes avec les FIND ...

 

[Bebere]

Re : Pb de macro de recherche de date

bonjour Tiobi
format date pas bon,tenir compte paramètres régionnaux
à bientôt