Sub extraction_esp() Dim Tableau(),chaine_sans_espace As String = "" Dim i As Integer 'découpe la chaine en fonction des espaces " " 'le résultat de la fonction Split est stocké dans un tableau Tableau = Split("Salut voila ma proposition pour ton probleme", " ") 'boucle sur le tableau pour visualiser le résultat For i = 0 To UBound(Tableau) chaine_sans_espace += tableau(i) Next i End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question