Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Découper chaine de caractères

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion mateo22
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

mateo22

Guest
Bonjour a vous Bonjour à vous,

J'ai un fichier de requêtes sur la colonne A

Je voudrais une macro qui découpe cette chaine des caractère sous une autre feuille
sans dépasser 70 caractères par nouvelle ligne créée et que chaque ligne finisse par une virgule.

Pour votre compréhension, un fichier est joint


Merci beaucoup de votre aide

Cordialement.
 

Pièces jointes

Trier par date Trier par votes
Re : Découper chaine de caractères

Bonjour mateo22,

mateo22 à dit:
Je voudrais une macro qui découpe cette chaine des caractère sous une autre feuille
sans dépasser 70 caractères par nouvelle ligne créée (...)
Cliquez pour agrandir...

Si l'on entre en B1 de la feuille souhait =NBCAR(A1) on trouve 73 caractères. Idem pour A5 (75) et A6 (72).

Que voulez-vous donc exactement 😕

A+
 
Vote positif 0 Vote négatif
Re : Découper chaine de caractères

Bonjour mateo, Job

Vu avec Henry (et \Données \convertir):

Pour 1 cellule, à adapter aux autres par recopie:


Code: 
Sub Macro1()
'
' Macro1 Macro
'

'
    Selection.TextToColumns Destination:=ActiveCell.Offset(0, 1), DataType:=xlFixedWidth, _
        OtherChar:="'", FieldInfo:=Array(Array(0, 1), Array(70, 1), Array(140, 1), Array( _
        210, 1)) ', TrailingMinusNumbers:=True
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Découper chaine de caractères

Re, bonsoir Michel,

Voyez cette macro :

Code: 
Sub DecoupeLigne()
Dim max%, lig&, cel As Range, txt$, c As Range, gauche%
With Sheets("découpe") 'à adapter
  max = 70 'modifiable
  lig = 1
  .[A:B].ClearContents
  For Each cel In Range("A1", [A65536].End(xlUp))
    txt = cel
1   Set c = .Cells(lig, 1)
    c = txt
    .Cells(lig, 2).FormulaR1C1 = "=LEN(RC1)" 'NBCAR facultatif
    If Len(c) > max Then
      gauche = InStrRev(Left(c, max), ",")
      txt = Right(c, Len(c) - gauche)
      c = Left(c, gauche)
      lig = lig + 1
      GoTo 1
    End If
    lig = lig + 1
  Next
  .Activate 'facultatif
End With
End Sub

Fichier joint.

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Découper chaine de caractères

Re

Job, en ce moment, on se croise 🙂.

Sinon mais cela est diffcile car cetains ont 69 et d'autres 70:

2 macros:

1 pour convertir en colonne (il faudra transformere de colonnes en lignes) et 1 pour convertir d'une selection vers la feuille 2.

Code: 
Sub Converti_Texte_Colonne_70()
        For Each cell In Selection
        Selection.TextToColumns Destination:=ActiveCell.Offset(0, 1), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(70, 1), Array(140, 1), Array(Len(ActiveCell), 1))
        Next
End Sub

ou (plus abouti)​

Code: 
Sub Converti_70_Selection_vers_Feuille2()
For Each cell In Selection
nbcar = Len(cell)
For i = 1 To Int(nbcar / 70) + 1
'Stop
derl = Sheets(2).Cells(65536, 1).End(xlUp).Row
If i = 1 Then Sheets(2).Cells(derl + 1, 1).Value = Mid(cell, 1, 70) Else Sheets(2).Cells(derl + 1, 1).Value = Mid(cell, (i - 1) * 70, 70)
Next
Next
End Sub
 
Vote positif 0 Vote négatif
Re : Découper chaine de caractères

Bonjour à tous
Sous réserve d'avoir tout deviné (Que doit-il advenir d'une chaîne comportant une section de plus de 69 caractères sans virgule ? Dans les exemples donnés, le découpage donne toujours trois chaînes pour une.: doit-il en être de même, avec éventuellement une ou deux lignes vides pour les chaînes courtes ?), voici une proposition :
VB: 
Private Sub DECOUPE_Click()
  découpe_en_lignes_de_C_caractères C:=70
End Sub

Sub découpe_en_lignes_de_C_caractères(C%)
Dim i&, j&, o(), sDat$(), Tmp
  With Sheets("original") 'feuille de données
    o = .Range(.Cells(1, 1), .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)).Value
  End With
  ReDim sDat(1 To 1)
  For i = 1 To UBound(o, 1) - 1
    If o(i, 1) <> "" Then '***
      Tmp = CL_C(CStr(o(i, 1)), C)
      For j = 0 To UBound(Tmp, 2)
        sDat(UBound(sDat)) = Tmp(0, j)
        ReDim Preserve sDat(1 To 1 + UBound(sDat))
      Next
    End If '***
  Next
  With Sheets("souhait") 'feuille de résultats
    .Range(.Cells(1, 1), .Cells(Rows.Count, 1).End(xlUp)).ClearContents
    .Cells(1, 1).Resize(UBound(sDat), 1).Value = WorksheetFunction.Transpose(sDat)
  End With
End Sub

Private Function CL_C(rChn$, nCar%)
Dim i&, j%, k%, s$, t$(), x
  ReDim t(1, 0)
  If rChn <> "" Then
    s = Replace(rChn, ",", ",#")
    x = Split(s, "#")
    Do While i < UBound(x)
      ReDim Preserve t(1, j)
      Do While Len(t(0, j)) + Len(x(i)) <= WorksheetFunction.Max(nCar - 0, Len(x(i))) And i < UBound(x)
        t(0, j) = t(0, j) & x(i)
        i = i + 1
        k = j
      Loop
      j = j + 1
    Loop
    If Len(t(0, k)) + Len(x(UBound(x))) > nCar Then k = k + 1
    If i = UBound(x) Then ReDim Preserve t(1, k): t(0, k) = t(0, k) & x(UBound(x))
  End If
  CL_C = t
End Function
​
ROGER2327
#4906

Samedi 28 Décervelage 138 (Repopulation, V)
6 Pluviôse An CCXIX
2011-W04-2T00:25:22Z
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Découper chaine de caractères

Merci a vous tous

Vous êtes vraiment très fort !!!!!

La solution de ROGER2327 me convient parfaitement

Probleme résolu
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

P
  • Question Question
XL 2021 Macro de découpage suivant une clé
Réponses
14
Affichages
520
job75
F
  • Résolu(e)
Power Query Etude chaine de caractères
Réponses
3
Affichages
517
Flx1er
F
F
  • Question Question
XL 2016 copie de valeurs dans d'autres cellules
Réponses
14
Affichages
368
finarobert
F
  • Résolu(e)
XL 2021 Découper une ligne en plusieurs lignes en fonction d'un caractère
Réponses
14
Affichages
532
job75
F
  • Question Question
XL 2016 travail sur tableau
2 3 4
Réponses
55
Affichages
2 K
finarobert
F
B
  • Question Question
Microsoft 365 Cadrillage automatique
Réponses
13
Affichages
437
bsalv
B
L
  • Question Question
Microsoft 365 Excel graphique
Réponses
3
Affichages
352
AL 22
  • Question Question
XL 2019 Extraire les valeurs de plusieurs plages identiques de plusieurs feuilles différentes
Réponses
12
Affichages
394
mapomme
P
  • Résolu(e)
Microsoft 365 Grouper des données en fonction d'un mapping
Réponses
4
Affichages
155
patricko-13
P
S
  • Question Question
XL 2021 Retrouver une chaine de caractère dans une colonne
Réponses
3
Affichages
436
Lolote83
L
Analyse chaine de caractères
Réponses
0
Affichages
411
sylvanu
C
  • Résolu(e)
XL 2021 Filtrer sur la ligne active
Réponses
11
Affichages
212
Constantin
C
U
  • Résolu(e)
Microsoft 365 Créer un graphique avec segment chronologique
Réponses
2
Affichages
532
Utilisateur_X
U
A
  • Question Question
Microsoft 365 Vérifier si un texte existe dans une cellule contenant une liste
Réponses
9
Affichages
598
arzac
A
O
  • Résolu(e)
XL 2013 Formule ou une programmation VBA qui permette de répartir des numéros de factures par ligne
Réponses
3
Affichages
308
JHA
J
P
  • Question Question
Microsoft 365 Extraire la totalité du contenu d'une cellule si une cellule commence par un nombre
2
Réponses
16
Affichages
917
PR.
P
F
  • Question Question
Conditions SI ET OU
Réponses
3
Affichages
180
Dranreb
A
  • Résolu(e)
Microsoft 365 Fusion de 2 tables
Réponses
6
Affichages
331
Amilo
A
A
  • Question Question
Microsoft 365 Extraire chaine qui se répète
Réponses
10
Affichages
535
danielco
D
D
  • Question Question
Microsoft 365 TCD et onglets spécifiques selon les filtres à définir
Réponses
2
Affichages
186
Daniel200666
D
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…