Discussion :

[argaz01]

[QUOTE=argaz01] Bonjour,

Concernant un tableau, j'arrive à le trier avec excel en fonction d'une cellule, seul bémol j'aimerais que le tableau supprime les doublons et envoie la somme des lignes de la colonnes correspondante à chaque doublons; Je m'explique:

J'arrive à avoir un tableau du genre:
<SGP> <type> <ratio>
A 1 x%
A 1 y%
A 1 z%

et j'aimerais avoir un tableau du genre:

<SGP> <type> <ratio>
A 1 somme(x%,y%,z%)


En vous remerciant d'avance

[zyhack]

Bonjour

essaye ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim ligne As Integer
ligne = 2
Do
 
  If Cells(ligne, 1) = Cells(ligne + 1, 1) And Cells(ligne, 2) = Cells(ligne + 1, 2) Then
    Cells(ligne, 3) = Cells(ligne, 3) + Cells(ligne + 1, 3)
    Cells(ligne + 1, 3).EntireRow.Delete Shift:=xlUp
  Else
    ligne = ligne + 1
  End If
Loop While Cells(ligne, 1) <> ""

[argaz01]

Merci, ça marche très bien, sauf que je perd la ligne des titres (elle se trouvait sur la ligne 1). J'aimerais aussi intégrer un variable pour trier en fonction des ratios dans l'ordre croissant.

Encore merci

[zyhack]

je perd la ligne des titres (elle se trouvait sur la ligne 1)

je ne vois pas comment c'est possible car je supprime toujours la ligne + 1 donc même si ligne = 1 je supprimerais la 2 eme.
Dans une autre partie du code peut-être ?

J'aimerais aussi intégrer un variable pour trier en fonction des ratios dans l'ordre croissant

pourrais-tu être plus clair

[argaz01]

Je voulais dire comment modifier la macro pour qu'elle trie aussi le tableau en fonction de la colonne ratio (colonne 3) dans l'ordre croissant.

Sinon j'ai bel et bien perdu la lignes des titres!!! Comment faire pour revenir en arrière?

Merci

[zyhack]

Je voulais dire comment modifier la macro pour qu'elle trie aussi le tableau en fonction de la colonne ratio (colonne 3) dans l'ordre croissant.

Ne sachant pas ce que tu as utilisé, ce code fait un tri sur les trois colonnes

Code :

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

1
2
3
4
5
6
    Columns("A:C").Select
    Selection.Sort _
      Key1:=Range("A2"), Order1:=xlAscending, _
      Key2:=Range("B2"), Order2:=xlAscending, _
      Key3:=Range("C2"), Order3:=xlAscending, _
      Header:=xlYes

pour la ligne de tritre j'ai refais un essais et tout c'est bien passé, a mon avis il faut la refaire et avant de refaire un essai met la de coté dans une feuille temporaire pour la sauvegarder car il n'y a pas de undo pour les modifications par macro.

bon courage