Effacement de données ds 1 cellule
BINIOULDH
Messages postés
7
Statut
Membre
-
BINIOULDH -
BINIOULDH -
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.
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 -
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
