XL 2016 [RESOLU] Concatener des lignes si valeurs identiques dans 2 colonnes

Lone-wolf

XLDnaute Barbatruc

• 22 Mai 2018

• #2

Bonsoir ivan et bienvenue sur XLD

Je ne suis pas sous MAC mais, est-tu sûr de ce que tu dit:

je dois identifier les lignes dont les valeurs en colonnes B et L sont identiques

Cliquez pour agrandir...

Parce que moi en B je vois une somme et en L une date.

 

Vote positif 0 Vote négatif

I

ivan27

XLDnaute Occasionnel

• 22 Mai 2018

• #3

Bonsoir Lone-wolf et rebonsoir le forum,
Je me suis mal expliqué, désolé !!!
Je dois regrouper les lignes qui ont le même code en colonne B et la même date en colonne L.

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 22 Mai 2018

• #4

Re

Pourquoi la colonne K est vide? Et dans quelle colonne tu veux avoir la somme des deux colonnes(C-D). De plus J et L on les mêmes dates, 1 est suffisante non??

Est-ce qu'il faut faire C + D ou C x D??

 

Vote positif 0 Vote négatif

I

ivan27

XLDnaute Occasionnel

• 22 Mai 2018

• #5

Il s'agit d'un fichier extrait d'une application métier.
Il peut y avoir des données dans les colonnes que j'ai laissé vides.
De même, il y a des cas ou les dates en colonnes J et L peuvent être différentes. Aussi, il faut prendre en compte la colonne L.

 

Vote positif 0 Vote négatif

I

ivan27

XLDnaute Occasionnel

• 22 Mai 2018

• #6

La somme des colonnes C et D reste en C et D.
Dans mon exemple, la ligne 31 correspond à la somme des lignes 3 à 7

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 22 Mai 2018

• #7

Re

La somme des colonnes C et D reste en C et D.

Cliquez pour agrandir...

Là j'ai du mal à suivre: comment la somme de C et D peux rester en C et D???

 

Vote positif 0 Vote négatif

I

ivan27

XLDnaute Occasionnel

• 22 Mai 2018

• #8

Dans mon fichier exemple :
En B je trouve plusieurs fois le code 85.
Je prends toutes les lignes qui ont ce code 85 et une date identique en colonne L. Les lignes 3 à 7 répondent à ce critère.
Donc, j'additionne les valeurs de la colonne C soit 1748,23
J'additionne les valeurs de la colonne D, soit 6
Comme je concatène les lignes, il doit m'en rester une seule (voir ligne 31 en exemple de ce calcul)
En A je conserve la référence de la première ligne concerné par le regroupement.
En R, je note toutes les autres références séparées par des slashs.
Pour finir, je supprime les lignes 3 à 7 pour conserver uniquement la 31.

Si je ne suis pas suffisamment clair, je transmettrai un autre fichier demain avec des couleurs et des bulles d'aide.
Bonne nuit.
Ivan

 

Dernière édition: 23 Mai 2018

Vote positif 0 Vote négatif

I

ivan27

XLDnaute Occasionnel

• 23 Mai 2018

• #9

Bonjour le forum,
J'espère que mes explications seront plus compréhensibles après une bonne nuit de sommeil.
En pièce jointe un nouveau fichier avec des onglets ''Origine'' et ''Résultat Attendu''.
J'ai mis des commentaires sur l'exemple de couleur jaune.
Merci d'avance pour votre aide.
Ivan

 

Pièces jointes

• test.xls

  55.5 KB · Affichages: 26

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 23 Mai 2018

• #10

Bonjour ivan27, Lone-wolf ,

Un essai dans le fichier joint. Cliquez sur le bouton Hop! Le code est dans Module1.

EDIT : désolé, je n'avais pas vu que vous étiez sur MAC. La structure Dictionary n'est pas disponible sur MacOS. Donc ça ne fonctionnera pas pour vous.

 

Pièces jointes

• ivan27- test- v1.xls

  73 KB · Affichages: 31

Dernière édition: 23 Mai 2018

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 23 Mai 2018

• #11

Re,

mapomme à dit:

EDIT : désolé, je n'avais pas vu que vous étiez sur MAC. La structure Dictionary n'est pas disponible sur MacOS. Donc ça ne fonctionnera pas pour vous.

Cliquez pour agrandir...

Un essai d'une version qui doit être compatible avec MAC (et PC).

 

Pièces jointes

• ivan27- test- v2- mac.xls

  69 KB · Affichages: 40

Dernière édition: 23 Mai 2018

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 23 Mai 2018

• #12

Bonjour mapomme

@ivan27 : il faut juste ajouter Application.ScreenUpdating = False pour ne pas avoir de sursaut de la feuille. Sinon, super travail de mapomme.

Sub Regrouper()
Dim derlig&, tablo, clef, i&, aux, j&, N, ref, iref

Application.ScreenUpdating = False

With Worksheets("Origine")

 

Vote positif 0 Vote négatif

I

ivan27

XLDnaute Occasionnel

• 23 Mai 2018

• #13

Bonsoir le forum, Mapomme, Lone-wolf,
Juste 2 mots : Bravo et Merci.

 

Vote positif 0 Vote négatif