Dim maChaine As String maChaine = " Espace au début et espace à la fin " maChaine = Trim(maChaine) Debug.Print ">"; maChaine; "<"
maChaine = Trim$(maChaine) ' avec un $
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionFor I = 1 To Len(Cellule) If Asc(UCase(Mid(Cellule, I, 1))) < 48 Or Asc(UCase(Mid(Cellule, I, 1))) > 57 And Asc(UCase(Mid(Cellule, I, 1))) < 65 Or Asc(UCase(Mid(Cellule, I, 1))) > 90 And Asc(UCase(Mid(Cellule, I, 1))) < 192 Or Asc(UCase(Mid(Cellule, I, 1))) > 221 Then
Dim monChar As Byte For I = 1 To Len(Cellule) monChar = Asc(UCase(Mid(Cellule, I, 1))) If (monChar < 48 Or monChar > 57) And _ (monChar < 65 Or monChar > 90) And _ (monChar < 192 Or monChar > 221) Thenqui peut donc aussi s'écrire comme ça :
Select Case Asc(UCase(Mid(Cellule, I, 1))) Case 48 To 57, 65 To 90, 192 To 221 Case Else End Select