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

XL 2016 Éclatement de texte sur plusieurs colonnes

Créer une discussion

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
W

Webperegrino

XLDnaute Accro
Supporter XLD
Bonsoir Le Forum,
Je bloque dans les macros du bouton "ÉCLATER" du fichier ci-joint, et je viens vous demander un peu de lumière, notamment pour la colonne AS.
Je voudrais afficher des résultats de macros à partir de la ligne 23 (pour le moment) puis plus tard généraliser à partir de la ligne 9.

- ligne 9 à 22 : les colonnes AR à AT et AZ à BD fonctionnent par mes formules initiales.
- au-delà, le fonctionnement se fait par macros du type tablo(i,1) pour plus de rapidité et sans formules dans les cellules précédentes lignes 9-22.
Les macros actuelles ne respectent malheureusement pas tout à fait les formules des cellules au-dessus (parce que je n'arrive pas à les transcrire
parfaitement par VBA)
- quant à la macro commencée pour la colonne AS, je suis vraiment perdu après plusieurs heures de tatonnements de plus en plus catastrophiques...

Cela me serait agréable que vous puissiez me venir en aide pour corriger les macros.
Je vous en remercie à l'avance,
Portez-vous et protégez-vous bien tous,
Webperegrino
 

Pièces jointes

Trier par date Trier par votes
On va mettre Salle 8.
Merci pour la solution #17
J'essaie avec ceci mais ce n'est pas concluant pour le moment :
VB: 
'colonne AT
'comparer la colonne BB avec Paramètres!D73:E81
'sortir la valeur de Paramètres!colonneE
'et la placer en colonne AT
  With Range("BB8:BB" & dl)
    tablo = .Value
    For i = 1 To UBound(tablo) - 2
        ' si contient ¤ alors Vide
        If tablo(i, 1) Like "*" & "¤" & "*" Then
        tablo(i, 1) = ""
        Else
        tablo(i, 1) = WorksheetFunction.VLookup(tablo(i, 1), Sheets("Paramètres").[D73:E81], 2, False)
                    'Sheets("Paramètres").[D73:E81].Find(What:=tablo(i, 1)) ', LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True)
                    'WorksheetFunction.VLookup(tablo(i, 1).Value, Sheets("Paramètres").Range("D73:E81"), 2, "")
        'autre source de rechercheV du type : Application.WorksheetFunction.VLookup(MyRange, path, 5, False)
        End If
    Next
End With
  With Range("AT8:AT" & dl)
  .Value = tablo
  End With
 
Dernière édition:
Vote positif 0 Vote négatif
Non Sylvanu, ça coince toujours avec ceci :
VB: 
'colonne AT
'comparer la colonne BB avec Paramètres!D73:E81
With Range("BB8:BB" & dl)
  tablo = .Value
  For i = 1 To UBound(tablo)
'[B]message d'erreur à la ligne ci-après[/B]
    tablo(i, 1) = WorksheetFunction.VLookup(tablo(i, 1), Sheets("Paramètres").[D73:E81], 2)
        'autres tentatives de recherchV
        'tablo(i, 1) = WorksheetFunction.VLookup(tablo(i, 1), Sheets("Paramètres").[D73:E81], 2, False)
        'Range("f" & i) = WorksheetFunction.VLookup(Range("f" & i), Range("a2:c10"), 2)
        'Sheets("Paramètres").[D73:E81].Find(What:=tablo(i, 1)) ', LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True)
        'WorksheetFunction.VLookup(tablo(i, 1).Value, Sheets("Paramètres").Range("D73:E81"), 2, "")
        'Application.WorksheetFunction.VLookup(MyRange, path, 5, False)
'  End If
  Next
End With
With Range("AT8:AT" & dl): .Value = tablo: End With
Mais super belle note positive : tout le reste fonctionne parfaitement, grâce à vous, et je vais pouvoir transposer tout cela dans mon application source "Usine à gaz".
 
Vote positif 0 Vote négatif
Wouah ! J'y suis presque avec :
Code: 
'colonne AT
'comparer la colonne BB avec Paramètres!D73:E81
With Range("BB8:BB" & dl)
  tablo = .Value
  For i = 1 To UBound(tablo)
    tablo(i, 1) = Application.VLookup(tablo(i, 1), Sheets("Paramètres").[D73:E81], 2, False)
  Next
End With
With Range("AT8:AT" & dl): .Value = tablo: End With
J'ai mis SALLE 8 aux bons endroits.
Il me reste des #N/A pour ligne 8, 138 et 139.
Je suis proche du résultat parfait !
 
Vote positif 0 Vote négatif
Comme dit au post #13, on peut optimiser car vous avez 4 With Range("D8😀" & dl) , on peut surement optimiser.
Cependant, n'oubliez pas la maintenance. Optimiser c'est bien, mais il faut s'en souvenir dans 6 mois.
Si ça marche et que la vitesse vous va, améliorez juste les commentaires pour ... demain quand il faudra remanier ou faire évoluer le code.
😉 en attendant, bravo.
 
Vote positif 0 Vote négatif
Bonjour Le Forum,
Toute la programmation est achevée et tout fonctionne à merveille comme je le désirais et je peux transposer les codes dans ma vraie application (une usine à gaz).
Le fichier final, corrigé, est placé en #28 et a remplacé la précédente mouture.
Vous y trouverez les colonnes AW et AX traitées en supplément, grâce à des solutions apportées par Staple 1600 et Marcel32, remerciés pour cela dans une autre discussion.
Bon usage pour ceux qui veulent s'en inspirer.
Webperegrino
 
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

Discussions similaires

J
  • Résolu(e)
XL 2021 Répartition volume d'heures sur plusieurs colonnes en fonction de l'entête de la colonne
Réponses
4
Affichages
332
JLE
J
W
  • Question Question
XL 2019 Transformer des lignes de codes pour pratiquer Tablo à 4 colonnes et 40 lignes
2 3
Réponses
40
Affichages
1 K
Webperegrino
W
S
  • Résolu(e)
Microsoft 365 Formule qui me permet de regrouper les résultats de plusieurs lignes en fonction d'une recherche par nom
Réponses
9
Affichages
308
Sylvia57
S
W
  • Résolu(e)
XL 2019 Signaler les chevauchements complets ou partiels de plages horaires
Réponses
7
Affichages
282
Webperegrino
W
S
  • Question Question
Autres Recette de pâtisserie
Réponses
4
Affichages
341
Slavko.R
S
N
  • Résolu(e)
XL pour MAC Erreur à l'enregistrement de plusieurs fichiers Excel
Réponses
5
Affichages
344
Noymie
N
P
  • Question Question
XL 2021 Ajout/adaptation de code VBA sur feuille qui en contient déjà
Réponses
3
Affichages
283
Pierreavecunp
P
M
  • Question Question
Microsoft 365 Analyse de données, copie conditionnée
Réponses
7
Affichages
706
Max
M
X
  • Question Question
XL 2021 Transformation de données sur une ligne en plusieurs lignes
Réponses
9
Affichages
345
xavieralvaro
X
  • Résolu(e)
XL 2013 recherche de données sur plusieurs fichiers
Réponses
13
Affichages
680
dysorthographie
  • Résolu(e)
XL 2010 tableau de comptage sans doublon
2 3
Réponses
44
Affichages
2 K
cathodique
M
  • Question Question
Microsoft 365 Comptabilité : Création d'un fichier automatique d'analyse de comptes
Réponses
2
Affichages
753
Max
M
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
1 K
Pac41240
P
L
  • Question Question
Microsoft 365 Comparer le texte de deux colonnes (plusieurs mots/cellule) pour trouver 1 mot en commun
2 3
Réponses
37
Affichages
4 K
Staple1600
W
  • Résolu(e)
XL 2016 Gestion de liste transposée dans une autre feuille avec décalage d'une colonne et exclusion de certains éléments
Réponses
9
Affichages
514
Webperegrino
W
Z
  • Question Question
Microsoft 365 Reporter sur chaque ligne un code en fonction du numéro de département (INDEX_Eqiv ???)
Réponses
4
Affichages
466
Zougoulou
Z
F
  • Question Question
Microsoft 365 Remplissage automatique d'un tableau d'après des tableaux de plusieurs feuilles différentes.
Réponses
8
Affichages
1 K
Fëa
F
C
  • Résolu(e)
Copier/Masquer des lignes de couleur pour alimenter un tableau
Réponses
9
Affichages
763
vgendron
  • Question Question
XL 2010 Code de l'IA à corriger
2 3
Réponses
33
Affichages
3 K
cathodique
  • Question Question
XL 2019 Insertion de plusieurs lignes au dessus de la dernière
Réponses
2
Affichages
540
Sellig
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…