Insérer un espace dans une chaîne de texte avec condition [Résolu]
A voir également:
- Janv 2014 ajouté par
- Janv 2014 ajouté - Meilleures réponses
- Espace vba - Meilleures réponses
- Inserer des espaces dans une chaine de caractère ✓ - Forum - C
- Supprimer les espaces d'une chaine de caractere en c ✓ - Forum - C
- Vba excel supprimer espace d'une chaine - Forum - Visual Basic
- Suppression des espaces d'une chaîne - Codes sources - Visual Basic / VB.NET (Texte)
- Recherche de plusieurs arguments dans une chaine de texte - Codes sources - Visual Basic / VB.NET (Texte)
4 réponses
Bonjour,
Sub EspUK()
' EspUK Macro
' ajoute l'espace avant les trois dernières lettres pour les codes en GB
'SI la valeur entre parenthèses (colonne indicateur du pays) est ="GB" si condition vraie alors on
'exécute les instructions placées après THEN
For Each cel In Range("A1:A50")
ValeurdelaCellule = cel.Value
NumeroLigneCellule = cel.Row
'test si GB est présent dans la colonne B
If Cells(NumeroLigneCellule, 2).Value = "GB" Then
'On ajoute un espace à la valeur de la cellule si sa longueur est supérieur à 3!
If Len(ValeurdelaCellule) > 3 Then
cel.Value = Left(ValeurdelaCellule, Len(ValeurdelaCellule) - 3) & " " & Left(ValeurdelaCellule, 3)
End If
End If
Next
End Sub
Bonjour (et un salut à jordane45)
On peut également utiliser la fonction strreverse de vba.
Exemple :
On peut également utiliser la fonction strreverse de vba.
Exemple :
TOTO = "1234567"y ajouter bien évidemment le test de longueur préconisé par jordane45.
titi = "GB"
If titi = "GB" Then
tata = StrReverse(TOTO)
TOTO = StrReverse(Left(tata, 2) & " " & Mid(tata, 3))
End If
MsgBox TOTO