|
'13) Couper une chaine de caractère (26.08.2019 08:00:00)
'A) Les fonctions Left, Right, Mid
'Définir les variables
Dimtextex As String
Dim coupex As String
'Assigner une valeur
textex = Range("B4") 26.08.2019 08:00:00
'a) sélectionner les 6 premier caractères de gauche
coupex = Left.(textex, 6) 26.08.
'b) sélectionner les 9 premier caractères de droite
coupex = Right.(textex, 6) 08:00:00
'c) sélectionner les 4 premier caractères à partir du 7 caractère
coupex = Mid.(textex, 7,4) 2019
'd) sélectionner les tous les caractères à partir du 7 caractère
coupex = Mid.(textex, 7) 2019 08:00:00
'implanter la valeur dans une cellule
Range("B3") = coupex
'B) La fonction Split
'Définir les variables
Dimtextez As String
Dim motsz As String
Dim i As String
'Assigner une valeur
textez = "chien,chat,sourie,oiseau"
'Séparer les mots et les enregistrer dans un Array
motsz = Split(textez, ","
'Afficher les mots un par un dans une MsgBox
Fori = 0 To UBound(motsz)
MsgBox motsz(i)
Next i
|