Jusqu'a ce que ma cellule soit du texte

bonjour à tous,

j'aimerai sortir une valeur texte d'une liste par exemple

1

2

3

TEXTE

ou alors

1

2

3

4

5

TEXTE

le nombre de cellule avant le texte peut varier en général pas plus que 6 ou 7

tous ca sous forme de vba

Cordialement

Salut Naubin, Salut le forum,

Dans le cas où ta liste est en colonne A et que tu souhaite extraire les cellules texte en colonne B alors :

Sub ExtractText()
Dim x As Long, y As Long, z As Long
x = Range("A" & Rows.Count).End(xlUp).Row
For y = 2 To x
    If Not (IsNumeric(Cells(y, 1))) Then
        z = Range("B" & Rows.Count).End(xlUp).Row
        Cells(z, 2) = Cells(y, 1)
    End If
Next
End Sub

Restant à dispo

je te remercie !

dans la même logique ca serais possible de partir du bas de la liste ?

dans mon cas je suis de B8 au plus haut a B17 au plus bas

ex

Texte 0

1

2

Texte

3

4

5

en partant du bas de la liste trouver Texte

Naubin,

En partant du bas pour aller vers le haut :

Sub ExtractText()
Dim x As Long, z As Long
x = Range("B8").End(xlDown).Row
While x <> 8
    Cells(x, 2).Select
    If Not (IsNumeric(Cells(x, 2))) Then
        z = Range("C" & Rows.Count).End(xlUp).Row
        Cells(z + 1, 3) = Cells(x, 2)
    End If
x = x - 1
Wend
End Sub

Les textes extrait ce mettent en colonne C

Restant à dispo

Merci !