Séparer le contenu d'une cellule excel en 2 avec une macro
Résolu/Fermé
Jemis1979
Messages postés
7
Date d'inscription
dimanche 14 octobre 2018
Statut
Membre
Dernière intervention
23 octobre 2022
-
3 févr. 2021 à 18:45
Jemis1979 Messages postés 7 Date d'inscription dimanche 14 octobre 2018 Statut Membre Dernière intervention 23 octobre 2022 - 4 févr. 2021 à 17:32
Jemis1979 Messages postés 7 Date d'inscription dimanche 14 octobre 2018 Statut Membre Dernière intervention 23 octobre 2022 - 4 févr. 2021 à 17:32
A voir également:
- Séparer le contenu d'une cellule excel en 2 avec une macro
- Excel cellule couleur si condition texte - Guide
- Aller à la ligne dans une cellule excel - Guide
- Liste déroulante excel - Guide
- Proteger cellule excel - Guide
- Formule excel pour additionner plusieurs cellules - Guide
3 réponses
Utilisateur anonyme
3 févr. 2021 à 23:41
3 févr. 2021 à 23:41
Bonsoir
Pour découper un texte suivant un delimiteur connu, il y a la fonction split https://www.qwant.com/?q=vba+split&client=brz-brave
Par contre en vba, je ne suis pas sûr que le delimiteur puisse être lui même une chaîne de caractères (et là j’ai pas de quoi tester).
Si c’est le cas, une solution est d’abord de remplacer
Pour découper un texte suivant un delimiteur connu, il y a la fonction split https://www.qwant.com/?q=vba+split&client=brz-brave
Par contre en vba, je ne suis pas sûr que le delimiteur puisse être lui même une chaîne de caractères (et là j’ai pas de quoi tester).
Si c’est le cas, une solution est d’abord de remplacer
/par un caractère que tu es certain de ne jamais trouver dans tes cellules.
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 779
4 févr. 2021 à 09:40
4 févr. 2021 à 09:40
Re,
Un autre méthode :
Un autre méthode :
Option Explicit Sub test() Dim rng As Range With Worksheets(1) ' à adapter Set rng = .Range("A1").CurrentRegion rng.Replace " / ", Chr(1), xlPart rng.TextToColumns Destination:=.Range("A1"), DataType:=xlDelimited, Other:=True, OtherChar:=Chr(1) End With End Sub
Jemis1979
Messages postés
7
Date d'inscription
dimanche 14 octobre 2018
Statut
Membre
Dernière intervention
23 octobre 2022
4 févr. 2021 à 17:11
4 févr. 2021 à 17:11
Je vais tenter de spitter " / " avec une macro.
Si ça ne marche pas, j'essaierai cette solution.
Dans tous les cas, merci pour vos idées !!!
Si ça ne marche pas, j'essaierai cette solution.
Dans tous les cas, merci pour vos idées !!!
Jemis1979
Messages postés
7
Date d'inscription
dimanche 14 octobre 2018
Statut
Membre
Dernière intervention
23 octobre 2022
4 févr. 2021 à 17:32
4 févr. 2021 à 17:32
Bon bah, l'option remplacer " / " par "@" puis splitter les cellules en délimité via "@" a parfaitement fonctionnée.
Merci pour tout !
Merci pour tout !
4 févr. 2021 à 09:15
Il n'y a aucun problème, on peut "splitter" sur une chaine comme " / " (avec des espaces)
4 févr. 2021 à 17:07
Merci pour l'idée. c'est couillon mais je n'y avait pas pensé.
Maintenant je vais voir si ça passe dans une macro !