J'ai une colonne ou dans chaque cellule il y a une série de chiffres puis de lettre.
Serait il possible de m indiquer comment mettre les chiffres dans une cellule et les lettres dans la cellule d'a coté.
Re : séparation lettre et chiffre d une meme celule
Voici une image de mon fichier Dans la colonne D je souhaiterais y laisser les chiffre et la colonne E le texte
Tout ce-ci par une macro si possible
Merci
Re : séparation lettre et chiffre d une meme celule
Bonsour®
voici une image de ma macro,
on sélectionne des données en colonne
puis on lance la macro
les chiffres restent dans la colonne initiale
les lettres sont transposées dans la colonne de droite
Re : séparation lettre et chiffre d une meme celule
Re, bonjour Modeste GD,
Les nombres (quand il y en a) sont-ils toujours placés avant les lettres ? Sont-ils toujours regroupés ou trouve-t-on des chiffres puis des lettres puis des chiffres (ou l'inverse) ?
A+
Re, bonjour Modeste GD,
Les nombres (quand il y en a) sont-ils toujours placés avant les lettres ? Sont-ils toujours regroupés ou trouve-t-on des chiffres puis des lettres puis des chiffres (ou l'inverse) ?
A+
Re : séparation lettre et chiffre d une meme celule
Ma proposition correspond à cette hypothèse :
dans chaque cellule il y a une série de chiffres puis de lettre.
dans chaque cellule il y a
une
série de chiffres
puis
(une série ?) de lettres.
J'ai donc compris comme toi.
Si c'est le cas pas besoin de boucler sur chaque chaîne pour voir si c'est une lettre ou pas, l'utilisation de Val devrait suffire, quelque chose du genre (à tester plus avant mais c'est l'idée) :
Code:
Sub test()
Dim c As Range, Num As String
For Each c In Selection
Num = Val(c.Value)
If CLng(Num) > 0 Then
If Len(Num) < Len(c) Then
c.Offset(, 1) = Mid(c, Len(Num) + 1, Len(c.Value))
c = Val(c.Value)
End If
End If
Next c
End Sub