Effacement de données ds 1 cellule

Question

Bonjour, 
J'ai un texte dans une cellule du genre 8a7m4a2m4b5m.Quelle est la solution via VisualBasic 
pour arriver à ceci: 8a 7m 4a  (3 paires chiffre-lettre ,avec un espace entre chaque paire. Les chiffres et lettres peuvent varier).merci d'avance.


Configuration: Windows XP / Internet Explorer 7.0

Larbin · Answer

Voici une solution, si ta cellule concernée est celle de la premère ligne et de la première colonne de ton classeur.

Private Sub CommandButton1_Click()

'création d'une variable de stockage
Dim S As String

S = ActiveSheet.Cells(1, 1).Value 'valeure égale à 8a7m4a2m4b5m
Cells(1, 1) = Left(S, 2) & " " & Mid(S, 3, 2) & " " & Mid(S, 5, 2) 
'résultat 8a 7m 4a

End Sub

Cordialement,
Larbin

Salm · Answer

Voici une solution testée :

Private Sub Form_Load()
Dim ZoneDeTexte
Dim ZoneResultat
ZoneDeTexte = "8a7m4a2m4b5m"
ZoneResultat = Left(ZoneDeTexte, 2) _
               + " " + Mid(ZoneDeTexte, 3, 2) _
               + " " + Mid(ZoneDeTexte, 5, 2)
End Sub

Effacement de données ds 1 cellule

2 réponses

Votre réponse

Discussions similaires

Newsletters