Dernière cellule au format date d'une colonne

bonjour,

je n'arrive pas à adapter cette recherche de la dernière colonne avec un format date , quelque soit la date, de ma 1ère ligne ?!

sachant biensûr que cette date n'est pas la dernière cellule non vide de la ligne

le format des cellules date est dans catégorie Date type 14-mars

dans le code ci-dessous j'ai mis 09 décembre 2020 mais cela pourrait être n'importe quelle date dont je ne connaitrais pas la valeur.

dercol = Rows(1).Find("09-Déc.", , , , xlByRows, xlPrevious).Column

merci par avance pour votre aide

Bonne journée

Bonjour,

Un test avec comme ligne, la ligne 1

Sub test()
  Dim DernCol As Long, i As Long
  DernCol = Cells(1, Columns.Count).End(xlToLeft).Column 'on cherche la dernière cellule non vide de la ligne 1

    For i = DernCol To 1 Step -1 'on part de la dernière cellule et on se déplace vers la gauche
      If Cells(1, i).NumberFormat = "d-mmm" Then
        MsgBox "Le numéro de la dernière colonne contenant une date est " & i 'alors on affiche une message box
        Exit For
      End If
    Next i
End Sub

Bon j'ai trouvé cette façon de faire somme toute fonctionnelle quoique barbare

For G = 100 To 1 Step -1
If IsDate(Cells(1, G)) Then
dercol = G
GoTo suite
End If
Next G

suite:

ou peut-être avec each cell.... aussi

mais y aurait-il malgré tout une solution "autre" plus clean svp ?

merci

merci M12...nos messages se sont croisés