A voir également:
- Ajouter signe moins devant un chiffre par VBA
- Ajouter un profil netflix payant - Guide
- Ajouter un compte gmail - Guide
- Ajouter un compte whatsapp - Guide
- Signe différent - Forum Bureautique
- Numéro signe ✓ - Forum Word
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)
