Encadrer le mot après un caractère spécifique macro VBA
Fermé
baarar97
Messages postés
4
Date d'inscription
mercredi 27 mai 2020
Statut
Membre
Dernière intervention
28 mai 2020
-
27 mai 2020 à 17:03
baarar97 Messages postés 4 Date d'inscription mercredi 27 mai 2020 Statut Membre Dernière intervention 28 mai 2020 - 27 mai 2020 à 18:36
baarar97 Messages postés 4 Date d'inscription mercredi 27 mai 2020 Statut Membre Dernière intervention 28 mai 2020 - 27 mai 2020 à 18:36
A voir également:
- Encadrer le mot après un caractère spécifique macro VBA
- Caractère ascii - Guide
- Caractere speciaux - Guide
- Caractère spéciaux - Guide
- Piratage facebook changer mot de passe - Guide
- Mettre un mot de passe sur un dossier - Guide
1 réponse
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
27 mai 2020 à 17:43
27 mai 2020 à 17:43
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!
27 mai 2020 à 18:27
Merci beaucoup.
27 mai 2020 à 18:34
Car la macro ne s'adapte qu'a ce cas de figure!
Peut-être un spécialiste des Formules!
27 mai 2020 à 18:36