Je viens vers vous car je souhaiterai pouvoir trouver la dernière cellule de la ligne 1 contenant une date.
Dans la PJ elle est en T1. Mais elle aurait pu être en L1 ou en AB1.
Si vous avez une solution je suis preneur car je ne vois vraiment pas comment faire.
D'avance merci pour le temps que vous me consacrez.
Bonjour
Mauvaise approche
Il faut un tableau structuré des entrées/sorties de stock (avec 1ère ligne correspondant au stock initial) pas ce type de tableau ingérable...
Sub Test()
Dim i%
For i = Cells(1, Columns.Count).End(xlToLeft).Column To 1 Step -1
If IsDate(Cells(1, i)) Then MsgBox Cells(1, i).Text & " en " & Cells(1, i).Address(0, 0), , "Dernière date": Exit For
Next
End Sub
Xème rappel @Moi69 qui affectionne tant les MAJSUCULES
Vous avez posté votre message avec un formatage incorrect pour un forum :
- Le titre du fil doit être explicite (le plus clair possible) etécrit en minuscules
Merci de respecter cet élément qui contribue à la lisibilité du forum.
Profitez en pour relire la charte dans laquelle il est expliqué que cette pratique n'est pas admise sur XLD.