Remplacer des lettres par des chiffres dans une colonne

Bonjour à tous,

J'ai un petit souci que je n'arrive pas à fixer.

J'ai une colonne contenant le numéro des pylônes (colonne A) dans une feuille (Données d'entrée Support) du classeur actif. Cette colonne contient normalement que des numéros mais il s'avère que quand ils mettent un nouveau pylône, il porte une dénomination avec une lettre. J'aimerais donc remplacer les lettres qu'ils rencontrent par un point suivi d'un chiffre.

Par exemple, si dans la colonne A, en parcourant les cellules, on a un pylône 13N alors on le remplace par 13.1...

J'espère que j'ai étais assez claire et précise....

Merci par avance pour votre aide,

Cordialement,

Eva

Bonjour,

une proposition. (fait l'hypothèse que la lettre s'il y en a une est toujours le dernier symbole du numéro)

Sub aargh()
    With Sheets("feuil1")
        dl = .Cells(Rows.Count, 1).End(xlUp).Row
        For i = 1 To dl
            q = .Cells(i, 1)
            If IsNumeric(Right(q, 1)) Then
            Else
                q = Left(q, Len(q) - 1) & ".1"
                .Cells(i, 1) = q
            End If
        Next i
    End With
End Sub
Rechercher des sujets similaires à "remplacer lettres chiffres colonne"