XL 2021 vba fusion lignes et colonnes pour cellules identiques

cbar · 22 Mai 2023

Bonjour à tous,
Pas calé en vba, des jours que je cherche sur le net la solution à mon problème, mais rien !
Voilà mon problème : j'ai un tableau avec des cellules en g,h,i,j 7 à 18
Il se trouve que pour les lignes suivantes il y ai le même résultat (formule). Je voudrais fusionner les lignes identiques centrées en horizontal et verticale.
Même opération pour les colonnes k,l,m et n,o,p
ce que j'ai avant ce que je voudrais après

et le top masquer les lignes vides qui contiennent des formules
Je dois faire cette manipulation manuellement une dizaine de fois par jour !
NB: les revetements changent à chaque dossier
Je vous joind l'extrait de mon fichier
Un grand merci pour votre aide

Regarde la pièce jointe 1170676

cbar · 31 Mai 2023

sylvanu à dit:
Bonjour Cbar,
Effectivement "ya une coquille" ! Sorry.
En fait tout vient encore de DL.
Donc j'ai repris le code initial, et au début je calcule le "vrai" DL c'est à dire 2 lignes avant le chapitre VII, puis ensuite j'applique le code initial, et ça a l'air de marcher.... mais à vérifier.

Bonsoir sylvanu,
J'ai fait des essais un peu dans tous les sens et ça marche impeccable
Trop content que vous m'ayez si bien aidé
Je met la discussion résolue
Merci encore
cbar

sylvanu · 22 Mai 2023

Bonjour Cbar, et bienvenu sur XLD,
Please, pour les vieux, conservez une police plus grande, ce sera plus lisible.
En PJ un essai avec ce que j'ai compris.

Gégé-45550 · 22 Mai 2023

cbar à dit:
Bonjour à tous,
Pas calé en vba, des jours que je cherche sur le net la solution à mon problème, mais rien !
Voilà mon problème : j'ai un tableau avec des cellules en g,h,i,j 7 à 18
Il se trouve que pour les lignes suivantes il y ai le même résultat (formule). Je voudrais fusionner les lignes identiques centrées en horizontal et verticale.
Même opération pour les colonnes k,l,m et n,o,p
ce que j'ai avant ce que je voudrais après
Regarde la pièce jointe 1170680 Regarde la pièce jointe 1170679
et le top masquer les lignes vides qui contiennent des formules
Je dois faire cette manipulation manuellement une dizaine de fois par jour !
NB: les revetements changent à chaque dossier
Je vous joind l'extrait de mon fichier
Un grand merci pour votre aide

Regarde la pièce jointe 1170676

Bonjour,
Vous évoquez un tableau qui contient des champs calculés.
À partir de là, il n'y a, à ma connaissance, aucune solution Excel pour fusionner des cellules contiguës donnant un résultat identique, idem pour le masquage des cellules vides.
Seul un développement VBA complexe peut éventuellement permettre d'obtenir le résultat que vous escomptez.
Je doute que vous trouviez ici quelqu'un qui voudra passer beaucoup plus de temps que le temps que vous consacrez à la dizaine de vos manipulations quotidiennes pour en écrire le code et le tester ... mais qui sait ?
Cordialement,

cbar · 22 Mai 2023

sylvanu à dit:
Bonjour Cbar, et bienvenu sur XLD,
Please, pour les vieux, conservez une police plus grande, ce sera plus lisible.
En PJ un essai avec ce que j'ai compris.

sylvanu bravo t'es champion, exatement ce que je voulais
Ça marche impecable, merci beaucoup pour ta macro
Tu va me faire gagner un temps précieux
Sans vouloir abuser, si tu peux faire la même chose pour la colonne B

sylvanu · 22 Mai 2023

cbar à dit:
Sans vouloir abuser, si tu peux faire la même chose pour la colonne B

En colonne B il n'y a qu'une cellule fusionnée. Vous voulez la fusionner avec elle même ?

cbar · 22 Mai 2023

sylvanu à dit:
En colonne B il n'y a qu'une cellule fusionnée. Vous voulez la fusionner avec elle même ?

Fusionner colonne B en vertical juste pour les lignes 7 à 18 ou la formule renvoi une réponse

sylvanu · 22 Mai 2023

Dans votre PJ du post #1 c'est déjà fait :

cbar · 22 Mai 2023

sylvanu à dit:
Dans votre PJ du post #1 c'est déjà fait :
Regarde la pièce jointe 1170722

cbar · 22 Mai 2023

Oui manuellement, mais au départ lorsque je commence a travailler sur un dossier toutes les cellules sont défusionnées avec dans chacune d'elles une formule et elles se remplissent avec les infos du nouveau dossier.
Si je me suis bien fait comprendre

sylvanu · 22 Mai 2023

Pouvez vous fournir un fichier réellement représentatif ? On gagnera du temps.

sylvanu · 22 Mai 2023

Testez ça, au pif.

cbar · 22 Mai 2023

sylvanu à dit:
Pouvez vous fournir un fichier réellement représentatif ? On gagnera du temps.

Oui bien sûr, je commence a travailler comme ça

et je doit finir comme ça

sylvanu · 22 Mai 2023

Des images n'ont jamais constitué un fichier réellement représentatif.
Vous avez testé le fichier du post #11 ?

cbar · 22 Mai 2023

sylvanu à dit:
Des images n'ont jamais constitué un fichier réellement représentatif.
Vous avez testé le fichier du post #11 ?

Je ne diras qu'un mot MAGNIFIQUE
Ça marche à la perfection, exactement ce que j'avais besoin
Merci beaucoup

cbar · 30 Mai 2023

sylvanu à dit:
Testez ça, au pif.

Bonjour sylvanu, tout d'abord t'informer que mes problèmes Excel sont résolus (clé de licence et fichiers en lecture seule), il manquait un fichier utilitaire.

Pour revenir à la super macro que vous m'avez envoyé et que j'ai essayé d'adapter au fichier d'origine.
J'ai dû faire une mauvaise saisie. La macro masque les lignes de 88 à 206 alors que j'ai besoin de masquer de la 1ère ligne vide du tableau jusqu'à la ligne 91 si vide.
Vous pouvez m'aider à corriger

Sub AmianteTabRevetements()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
DL = [A65500].End(xlUp).Row
Assemble DL, 8
Assemble DL, 11
Assemble DL, 14
Assemble2 DL
Application.DisplayAlerts = True
For L = 81 To DL + 1
If Cells(L, "A") <> 1 + Cells(L - 1, "A") Then Exit For
Next L
Range("A" & L & ":A" & DL + 1).EntireRow.Hidden = True
End Sub
Sub Assemble(DL, Colonne)
Items = Cells(80, Colonne): L1 = 80
For L = 80 To DL
If Cells(L, Colonne) <> "" And Cells(L, Colonne) = Items Then
L2 = L
Else
With Range(Cells(L1, Colonne), Cells(L2, Colonne + 2))
.MergeCells = True
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
Items = Cells(L, Colonne): L1 = L: L2 = L1
End If
Next L
End Sub
Sub Assemble2(DL)
Items = Cells(80, 2): L1 = 80
For L = 80 To DL
If Cells(L, 2) <> "" And Cells(L, 2) = Items Then
L2 = L
Else
With Range(Cells(L1, 2), Cells(L2, 2))
.MergeCells = True
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
Items = Cells(L, 2): L1 = L: L2 = L1
End If
Next L
End Sub

Un grand merci
cbar

XL 2021 vba fusion lignes et colonnes pour cellules identiques

cbar

XLDnaute Nouveau

Pièces jointes

cbar

sylvanu

XLDnaute Barbatruc

Pièces jointes

Gégé-45550

XLDnaute Accro

cbar

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

cbar

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

cbar

XLDnaute Nouveau

cbar

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Pièces jointes

cbar

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

cbar

XLDnaute Nouveau

cbar

XLDnaute Nouveau

Discussions similaires