Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim i As Long, car As String For i = 1 To Len(Text1.Text) car = Mid(Text1.Text, i, 1) If IsNumeric(car) Then Text3.SelStart = Len(Text3.Text) Text3.SelText = car Else Text2.SelStart = Len(Text2.Text) Text2.SelText = car End If Next