Fin de colonne suivant critère

Magnumspy · 1 Janvier 2004

Bonjour,

Bonne Année pour commencer

J'aimerais que dans 1 colonne , en demarrant de la premiere cellule active de celle-ci, je puisse descendre jusqu'as ce que la dernière cellule dont le contenu finis par 2 chiffres (ex: by62, KPO69) .
Le nombre de ligne variant à chaque importation.

Merci

Michel_M · 1 Janvier 2004

bonjour,

ci joint une proposition pas terrible mais c'est dur en ce jour ci

bonne année
Michel

Roland · 1 Janvier 2004

Bonjour Magnumspy et Michel_M
Je pense que ceci devrait t'aider.
Sub recherche()
Dim li As Long

li = Range("A2").End(xlDown).Row
While li > 1
If IsNumeric(Right(Cells(li, 1), 1)) And IsNumeric(Mid(Cells(li, 1), Len(Cells(li, 1)) - 1, 1)) Then
Cells(li, 1).Select
Exit Sub
End If
li = li - 1
Wend
End Sub

Bonne année à tout deux et aux autres
A+ roland

Fin de colonne suivant critère

Magnumspy

Guest

Michel_M

Guest

Pièces jointes

Roland

Guest

Discussions similaires