IsNumeric condition toujours fausse

bonjour,

Alors j'ai un probleme pour ma condition dans une boucle. Je voudrais que si le caractère est un nombre il rentre dans ma boucle. j'utilise un Is numeric() comme ci dessous mais elle ne rentre jamais dans ma boucle alors que dans ma variable "a" elle contient parfois un nombre.

c=connector
If variable Like "* *" Then
 a = Left(Right(variable, 3), 1)
                If IsNumeric(a) = True Then

                    c = a + c
                  End If
End If
 

exemple i=1 variable = 2UA3 A ( dans ce cas on auras 3 dans la boucle condition devrais etre vrai)

i=2 variable =867VCC ( dans ce cas on auras V dans a on ne rentre pas dans la boucle)

si vous avez une idée du pourquoi ca ne rentre pas dans la boucle ou une autre méthode pour y parvenir je prend !

merci par avance !

Bonjour,

Merci de joindre un fichier à ta demande avec des précisions.

Cdlt.

Voici un fichier exemple pour mieux comprendre mon probleme .

je veux donc afficher sur la ligne i et colonne B le numero et la derniere lettre de ma variable , j'espere que c'est plus clair

Bonjour,

et si tu expliquais exactement le but de la manœuvre ?

P.

hello à Jean-Eric

Bonjour,

tu as 4 blancs dans tes cellules et non 2

proposition de correction

Sub test()
    Dim variable As String, a As String, c As String
    With Sheets("Feuil1")
        For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
            variable = .Cells(i, 1)
            c = Right(variable, 1)
            If variable Like "* *" Then
                a = Left(Right(variable, 6), 1)
                If IsNumeric(a) = True Then
                    c = a & c
                End If
            End If
            .Cells(i, 2).Value = c
        Next
    End With
End Sub

J'ai meme pas fait attention a ca

merci beaucoup