A voir également:
- Encadrer le mot après un caractère spécifique macro VBA
- Caractère ascii - Guide
- Caractère spéciaux - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Caractere speciaux - Guide
- Trousseau mot de passe iphone - Guide
1 réponse
Bonjour,
un essai avec le fonction Split
https://silkyroad.developpez.com/VBA/ManipulerChainesCaracteres/#LI-I
Le texte se trouve en colonne A ( a adapter)
Le résultat en colonne B(a adapter)
Faire Alt F11 pour accéder à l'éditeur, coller ce code dans le module de la feuille. Il se déclenchera a chaque changement de sélection
Avec une formule c'est peut-être plus performant. Car la macro ne s'adapte qu'a ce cas de figure!
un essai avec le fonction Split
https://silkyroad.developpez.com/VBA/ManipulerChainesCaracteres/#LI-I
Le texte se trouve en colonne A ( a adapter)
Le résultat en colonne B(a adapter)
Faire Alt F11 pour accéder à l'éditeur, coller ce code dans le module de la feuille. Il se déclenchera a chaque changement de sélection
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ligne As Long
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
ligne = Target.Row
Range("B" & ligne).Value = Split(Range("A" & ligne).Value, "à")(0) & "("
Range("B" & ligne).Value = Range("B" & ligne).Value & Split(Range("A" & ligne).Value, "à")(1) & ") "
Range("B" & ligne).Value = Range("B" & ligne).Value & "("
Range("B" & ligne).Value = Range("B" & ligne).Value & Split(Range("A" & ligne).Value, "à")(2) & ")"
End If
End Sub
Avec une formule c'est peut-être plus performant. Car la macro ne s'adapte qu'a ce cas de figure!
Merci beaucoup.
Car la macro ne s'adapte qu'a ce cas de figure!
Peut-être un spécialiste des Formules!