Effacement de données ds 1 cellule

Fermé
BINIOULDH Messages postés 4 Date d'inscription lundi 19 juillet 2010 Statut Membre Dernière intervention 7 juin 2020 - 27 juil. 2010 à 19:58
 BINIOULDH - 29 juil. 2010 à 20:07
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.


2 réponses

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
0
Bonjour,
Cela marche impeccable.Merci pour la solution pour la solution.
0
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
0