"concatener" un tableau

**zorrax** · 14/09/2007, 15h24

bonjour

voila j'ai un autre petit soucis concernant un tableau de données

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
designation          quantité
itemA	                   1
itemA                      1
itemA                      1
itemB                      1
itemB                      1
itemC                      2
itemD                      1
itemD                      1
itemD                      3
itemD                      2

je voudrais trier ce tableau en regroupant les items et additionner les quantités

voici ce que jai pour l'instant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
For i = 0 To 2000
 If Range("C" & i).Text = Range("C" & i - 1).Text Then
 
            Rows(i).Select
            Selection.Delete Shift:=xlShiftUp
            Range("D" & i - 1).Value = Range("D" & i - 1).Value + 1
            End If
    Next

ceci marche a ceci pres que au dela de 2 items identiques ca ne regroupe uniquement par deux et non globalement

voila si qq voit comment faire
merci davance
@++

**ucfoutu** · 14/09/2007, 15h36

Bonjour,

Il vaut mieux commencer par la fin et remonter dans ta boucle (step -1). Cela t'évitera certainbs "croche-pieds" désagréables....

Bonne continuation...

**dam2p** · 14/09/2007, 15h45

Autre idée :
commencer par envoyer une comande de tri, puis une commande de sous-totaux :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'
    'on commence par trier
    Range("A1:B11").Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range( _
        "B2"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _
        :=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
        DataOption2:=xlSortNormal
 
 
    'on regroupe et on ajoute les sous-totaux
    Range("A1").Subtotal GroupBy:=1, Function:=xlSum, _
                                 TotalList:=Array(2, 2), _
                                 Replace:=True, _
                                 PageBreaks:=False, _
                                 SummaryBelowData:=True

@+

Invité · 14/09/2007, 16h01

Regardez ici :

http://www.developpez.net/forums/sho...d.php?t=192445

**ESVBA** · 14/09/2007, 16h19

Enregistre la macro en réalisant le tableau.

Non ?

**LeForestier** · 14/09/2007, 16h34

Envoyé par jacques_jean

Regardez ici :

http://www.developpez.net/forums/sho...d.php?t=192445

Bonjour,
Je ne parvient pas à ouvrir l'URL que tu désigne, est-ce un problème de ma part ?
Cordialement.

Invité · 14/09/2007, 16h44

Bonjour Leforestier,

J'ai dû faire une erreur sur celui-ci car le sujet a été posté sur le Forum Excel puis sur Vba Excel et sur le 1er il fonctionne bien.

Je le remets ci-dessous :

http://www.developpez.net/forums/sho...d.php?t=192445

**LeForestier** · 14/09/2007, 16h54

Excuse moi d'y revenir Jacque_Jean, mais l'URL m'envoie sur un Topic
Supprimer des lignes en double dans une feuille Excel ?
Est-ce le sujet ?
Cordialement.
EDIT:
Hummmmm.

Oui

**Gorfael** · 14/09/2007, 17h15

Envoyé par zorrax

bonjour

voila j'ai un autre petit soucis concernant un tableau de données

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
designation          quantité
itemA                       1
itemA                      1
itemA                      1
itemB                      1
itemB                      1
itemC                      2
itemD                      1
itemD                      1
itemD                      3
itemD                      2

je voudrais trier ce tableau en regroupant les items et additionner les quantités

voici ce que jai pour l'instant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
For i = 0 To 2000
 If Range("C" & i).Text = Range("C" & i - 1).Text Then
 
            Rows(i).Select
            Selection.Delete Shift:=xlShiftUp
            Range("D" & i - 1).Value = Range("D" & i - 1).Value + 1
            End If
    Next

ceci marche a ceci pres que au dela de 2 items identiques ca ne regroupe uniquement par deux et non globalement

voila si qq voit comment faire
merci davance
@++

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
For i = 2000 To 2 step-1
     If Range("C" & i) = Range("C" & i - 1) Then
          Range("D" & i - 1)= Range("D" & i - 1) + Range("D" & i )
          Rows(i).Delete
 End If
Next

2000 peut être remplacé par [C65536].end(xlup).row
Pour i =2000 jusqu'à 2 en décrémentant (enlevant 1)
si C(i)=C(i-1) alors
D(i-1)=D(i-1)+D(i)
on supprime la ligne I

A+
NB si quelqu'un pouvait m'expliquer l'ajout des balises "code" intempestives

Invité · 14/09/2007, 17h23

Re Leforestier,

En effet, mais le sujet concerne bien la suppression de doublons même si Zorrax a indiqué dans le titre "Concaténer ...." qui n'est pas le bon terme en l'occurence. En ce qui concerne l'addition des valeurs il ne s'agit que d'utilser une variable qui cumule les valeurs puis est affectée à la ligne restante puis réinitialisée.

Mais je viens de voir la réponse de Gorfael qui doit bien fonctionner.

**ucfoutu** · 14/09/2007, 18h07

Oui...
Commencer par la fin et remonter est la meilleure manière d'éviter de s'égarer dans un boucle relative à des articles dont on supprime certains au passage, c'est évident ...

Invité · 14/09/2007, 18h20

Bonjour Gorfael,

Zorrax a répondu sur le même sujet mais qui se trouve dans la catégorie "Excel" et non "VBA Excel".

Je lui ai également répondu qu'il vienne voir votre code ici.

En ce qui concerne les balises :

1) vous avez sélectionnez votre 1ère ligne et cliqué sur l'outil "Code" ce qui donne :

"[CODE]For i = 2000 To 2 step-1[/CODE]"

ensuite vous avez fait la même chose avec :

"[CODE] If Range("C" & i) = Range("C" & i - 1) Then
Range("D" & i - 1)= Range("D" & i - 1) + Range("D" & i )
Rows(i).Delete
End If
Next [/CODE]"

lorsque vous vous en apercevez soit avant d'envoyer la réponse soit après mais en cliquant sur éditer, vous supprimez le 1er "[/CODE]" (balise de fin) après "step-1" puis le 2ème "[CODE]" (balise de début) avant "If Range".

**zorrax** · 17/09/2007, 09h24

effectivement concatener nest pas le bon terme mais je voyais pas koi mettre dautre lol

merci a vous pour le coup de main

**Gorfael** · 17/09/2007, 10h00

Salut à tous
Merci jacques_jean

En ce qui concerne les balises :

1) vous avez sélectionnez votre 1ère ligne et cliqué sur l'outil "Code" ce qui donne :

"[code]For i = 2000 To 2 step-1[/code]"

ensuite vous avez fait la même chose avec :

"[code] If Range("C" & i) = Range("C" & i - 1) Then
Range("D" & i - 1)= Range("D" & i - 1) + Range("D" & i )
Rows(i).Delete
End If
Next [/code]"

lorsque vous vous en apercevez soit avant d'envoyer la réponse soit après mais en cliquant sur éditer, vous supprimez le 1er "[/code]" (balise de fin) après "step-1" puis le 2ème "[code]" (balise de début) avant "If Range".

Si j'ai posé ma question, c'est après la 4me réapparition d'une séquence [/code][code] intempestive.
Les balises, je les tapes directement (bien fait, na !), et je ne comprends pas pourquoi, quelques fois, de nouvelle apparraissent pour séparer une liste en 2 ou 3.

Je pense que ce doit être du à un caractère masqué, ou à une séquence qui est assimilée à une commande de début, mais ....
Et comme ça ne se fait que de temps en temps, je n'ai pas la moindre idée du problème.
Merci quand même, ne serait-ce que pour le "noparse" que je ne connaissai pas et qui devrait me permettre des A1:D1 plus lisibles que A1

1
A+

"concatener" un tableau

Macros et VBA Excel

Vue hybride

Partager

Partager