Formule et limite de 32767 caractères par cellule : macro pour splitter les résultats

Créer une discussion
Répondre

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
B

bool2gom

XLDnaute Junior
Bonjour 😉

Je dispose du fichier suivant (1mo, donc uploadé sur un Wetransfer).


Au sein d'une macro (dont le code est ci-dessous) :
-Je fais un vlookup dans la colonne D
-La formule est copiée jusqu'en cellule D3000 (j'ai besoin d'aller jusqu'à la ligne 30000 et des brouettes)

La limite de 32767 caractères est atteinte en cellule D2710. A partir de la ligne suivante, tous les caractères sont tronqués au delà de 32767 caractères. 🙁

J'aurais donc besoin :
-d'une macro qui "splitte" le résultat obtenu en colonne D en autant de colonnes que nécessaires (D, E, F, etc...), par groupe de ~12000 caractères (pas plus).
-que le premier caractère dans chaque colonne soit la première lettre qui arrive après le "|"
-que le dernier caractère dans chaque colonne soit un "|"

Merci d'avance pour votre aide !

Code :

Code: 
'
' Macro1 Macro
'

'
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "concat"
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "regex"
    Range("E1").Select
    ActiveCell.FormulaR1C1 = "nbchar"
    Range("C2").Select
    ActiveCell.FormulaR1C1 = "=RC[-1]&""|"""
    Range("C2").Select
    Selection.AutoFill Destination:=Range("C2:C31659")
    Range("C2:C31659").Select
    Range("D2").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-3]=R[-1]C[-3],R[-1]C&RC[-1],RC[-1])"
    Range("D2").Select
    Selection.Copy
    Range("D2:D9").Select
    ActiveSheet.Paste
    Range("D9").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("D9:D16").Select
    ActiveSheet.Paste
    
    Range("D9").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("D9:D3000").Select
    ActiveSheet.Paste
    
    



For Each sh In ActiveWorkbook.Sheets
If sh.Name Like "Sheet2" Then
 sh.Name = "skumapping"

End If
Next sh

End Sub
 
Dernière édition:
Trier par date Trier par votes
Re : Formule et limite de 32767 caractères par cellule : macro pour splitter les résu

Bonjour ,

Voulu tester pour voir :
La macro NewC

plantage ici

Sheets("1").Select
Et oui , pas de feuille nommée 1 dans le classeur.

L'on créé bien une nouvelle feuille , mais pas de renommage comme prévu puisque la condition n'est pas respectée.

Il manque un truc non ?
 
Vote positif 0 Vote négatif
Re : Formule et limite de 32767 caractères par cellule : macro pour splitter les résu

Bonjour,

Sorry, j'ai volontairement supprimé les autres feuilles (car info perso).
La macro à prendre en compte est à la fin du code :

Code: 
'
' Macro1 Macro
'

'
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "concat"
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "regex"
    Range("E1").Select
    ActiveCell.FormulaR1C1 = "nbchar"
    Range("C2").Select
    ActiveCell.FormulaR1C1 = "=RC[-1]&""|"""
    Range("C2").Select
    Selection.AutoFill Destination:=Range("C2:C31659")
    Range("C2:C31659").Select
    Range("D2").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-3]=R[-1]C[-3],R[-1]C&RC[-1],RC[-1])"
    Range("D2").Select
    Selection.Copy
    Range("D2:D9").Select
    ActiveSheet.Paste
    Range("D9").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("D9:D16").Select
    ActiveSheet.Paste
    
    Range("D9").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("D9:D3000").Select
    ActiveSheet.Paste
 
Vote positif 0 Vote négatif
Re : Formule et limite de 32767 caractères par cellule : macro pour splitter les résu

Bon ,

Si j'ai tout compris ,

Le calcul étant automatique , il y avait télescopage entre la macro et le calcul interne.

j'ai également compacté un peu le code sans trop me fatiguer .

et là plus d'erreur

Code: 
Sub Test()
'
    Range("C1").FormulaR1C1 = "concat"
    Range("D1").FormulaR1C1 = "regex"
    Range("E1").FormulaR1C1 = "nbchar"
    Range("C2").FormulaR1C1 = "=RC[-1]&""|"""
    Range("C2").AutoFill Destination:=Range("C2:C31659")
    Application.Calculation = xlCalculationManual
      Range("D2").FormulaR1C1 = "=IF(RC[-3]=R[-1]C[-3],R[-1]C&RC[-1],RC[-1])"
      Range("D2").AutoFill Destination:=Range("D2:D31659")
    Application.Calculation = xlCalculationAutomatic
    Application.CutCopyMode = False



For Each sh In ActiveWorkbook.Sheets
If sh.Name Like "Sheet2" Then
 sh.Name = "skumapping"

End If
Next sh

End Sub
 
Vote positif 0 Vote négatif
Re : Formule et limite de 32767 caractères par cellule : macro pour splitter les résu

Merci beaucoup.

Mais ça me donne ça :

image.jpg

+ quand je refais tourner la macro entière avec ton code modifié, j'ai encore l'erreur de manque de mémoire (car je dépasse 32767 caractères).

2ywyhw3.jpg


En fait il faut que la macro continue à copier les données dans la cellule / colonne adjacente, pour éviter l'erreur des 32767 caacatères.
 

Pièces jointes

  • image.jpg
    image.jpg
    47.9 KB · Affichages: 57
  • image.jpg
    image.jpg
    47.9 KB · Affichages: 56
Dernière édition:
Vote positif 0 Vote négatif
Re : Formule et limite de 32767 caractères par cellule : macro pour splitter les résu

Modifié le 1er post en plus simple pour une meilleure compréhension.

OK pour passer le calcul d'automatique à manuel pendant la copie de la formule.
Je remarque qu'en fait la macro ne plante pas, mais ne copie que les 32767 premiers caractères dans la cellule (les autres sont tronqués).
Peut-être que l'erreur ne vient que de la quantité de données à calculer, finalement ?

Merci.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Formule et limite de 32767 caractères par cellule : macro pour splitter les résu

Bonsoir bool2gom,

bool2gom à dit:
hoppppp. 🙁
Cliquez pour agrandir...

Et Hop! Un essai dans le fichier joint. Quelques valeurs on été supprimées pour alléger le fichier. Le code est dans module1.

nota: le tableau source doit être trié par catégorie.

nota: voir fichier dans le message #15.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Formule et limite de 32767 caractères par cellule : macro pour splitter les résu

Il me faudrait juste une dernière chose : que dans chaque colonne, les données :
-commencent par "([lettre]..."
-finissent par "...[lettre])" (=enlever le "|")

Merci 1000 FOIS pour ton aide !!!
Merci le forum !
 
Vote positif 0 Vote négatif
Re : Formule et limite de 32767 caractères par cellule : macro pour splitter les résu

Bonjour bool2gom,

bool2gom à dit:
[...] Voici : (blablabla|blablabla2|... ...blablabla15|blablabla16) [...]
Cliquez pour agrandir...

Voir le fichier joint v1.d

Edit : idem mais avec données anonymes.
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
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

Discussions similaires

S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
3 K
AtTheOne
AtTheOne
B
  • Résolu(e)
XL 2016 macro avec boucle
2
Réponses
16
Affichages
2 K
benbella1991
B
L
  • Question Question
XL 2016 Macro et suppressions de lignes
Réponses
9
Affichages
956
fanfan38
fanfan38
A
  • Résolu(e)
XL 2013 Utilisation de plusieurs conditions
Réponses
7
Affichages
1 K
AnjyD
A
B
  • Question Question
Microsoft 365 Colorer les Lignes coller
Réponses
4
Affichages
914
bd.afaf
B
Syracoti
  • Résolu(e)
XL 2016 Changer de feuille dans une macro
2
Réponses
28
Affichages
3 K
Staple1600
Staple1600
J
  • Question Question
XL 2019 Borné une extraction par date
2
Réponses
22
Affichages
3 K
jui42
J
T
  • Résolu(e)
Microsoft 365 Répétition macro sur nombre de lignes X
2
Réponses
28
Affichages
3 K
Phil69970
Phil69970
Usine à gaz
  • Résolu(e)
Microsoft 365 Liaisons externes par macro
2 3
Réponses
33
Affichages
3 K
Usine à gaz
Usine à gaz
C
  • Résolu(e)
XL 2016 Remplir automatiquement un tableau d'après des conditions et des valeurs
Réponses
11
Affichages
2 K
ERIC S
ERIC S
bambi
  • Question Question
XL 2019 "Améliorer" un code VBA
Réponses
13
Affichages
2 K
bambi
bambi
Usine à gaz
  • Résolu(e)
Microsoft 365 Compter les Appels du mois en cours par catégorie
Réponses
7
Affichages
897
Usine à gaz
Usine à gaz
A
  • Question Question
Microsoft 365 Problème, ma macro change la plage de cellule dans une autre feuille
Réponses
6
Affichages
2 K
akira21
A
G
  • Question Question
XL 2013 Figer les valeurs après macro
Réponses
3
Affichages
2 K
danielco
D
B
  • Question Question
XL 2013 Code VBA pour copier une plage de celulle avec formule sans changer de cellule
Réponses
4
Affichages
3 K
benc
B
D
  • Question Question
XL 2013 Macro VBA conversion fichier tsv en csv
2
Réponses
22
Affichages
3 K
Robert
Robert
C
  • Question Question
XL 2019 VBA - Arrêter une macro synthèse si les lignes générées se répètent X nombre de fois
Réponses
1
Affichages
925
FlamXYZ
F
V
  • Question Question
Microsoft 365 Actualisation formule écrite via macro en liaison avec une BBD
Réponses
2
Affichages
2 K
vynmarius
V
F
  • Question Question
suppréssion de ligne
Réponses
13
Affichages
2 K
faguer
F
A
  • Question Question
Appliquer une macro à partir de la cellule sélectionner
Réponses
6
Affichages
2 K
Dan
Dan
Retour