A voir également:
- Ajouter signe moins devant un chiffre par VBA
- Excel trier par ordre croissant chiffre - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Mettre 0 devant chiffre excel - Guide
- Ajouter un compte gmail - Guide
- Clavier iphone chiffre et lettre - Guide
1 réponse
si j'ai bien compris tu veux rajouter un signe "-" devant chaque chiffre de ta chaine de caractere. si c'est bien cela voici le code :
a = "1ABC12XYF3ECD"
For i = 1 To Len(a)
If Mid(a, i, 1) = "0" Or Mid(a, i, 1) = "1" Or Mid(a, i, 1) = "2" Or Mid(a, i, 1) = "3" Or Mid(a, i, 1) = "4" Or Mid(a, i, 1) = "5" Or Mid(a, i, 1) = "6" Or Mid(a, i, 1) = "7" Or Mid(a, i, 1) = "8" Or Mid(a, i, 1) = "9" Then
b = b & "-"
End If
b = b & Mid(a, i, 1)
Next i
MsgBox (b)
a = "1ABC12XYF3ECD"
For i = 1 To Len(a)
If Mid(a, i, 1) = "0" Or Mid(a, i, 1) = "1" Or Mid(a, i, 1) = "2" Or Mid(a, i, 1) = "3" Or Mid(a, i, 1) = "4" Or Mid(a, i, 1) = "5" Or Mid(a, i, 1) = "6" Or Mid(a, i, 1) = "7" Or Mid(a, i, 1) = "8" Or Mid(a, i, 1) = "9" Then
b = b & "-"
End If
b = b & Mid(a, i, 1)
Next i
MsgBox (b)