Problème Do While Loop

[mgrelou]

Bonjour bonjour le forum

Je demande (à nouveau) votre aide 🙂 cette fois ci c'est concernant l'utilisation de la structure do while loop.
Je mets un fichier en pièce jointe où vous trouverez plus d'explications mais en gros je veux effectuer une somme de plusieurs colonnes tant que le nom de la colonne A est le même.

J'espere, qu'une fois de plus, vous saurez résoudre mon problème ou du moins me donner une piste ! 🙂

Merci d'avance

Maxime

 

[Dranreb]

Re : Problème Do While Loop

Bonjour.
Comme ça dans le module de Feuil1:

Option Explicit

Private Sub Worksheet_Activate()
Dim Te(), Ts(), LeMax As Long, CMax As Long, Le As Long, Ls As Long, C As Long
Te = Me.[A1].CurrentRegion.Value: LeMax = UBound(Te, 1): CMax = UBound(Te, 2)
ReDim Ts(1 To LeMax, 1 To CMax)
Ls = 1: Ts(Ls, 1) = Te(2, 1)
For Le = 2 To LeMax
   If Te(Le, 1) <> Ts(Ls, 1) Then Ls = Ls + 1: Ts(Ls, 1) = Te(Le, 1)
   For C = 2 To CMax: Ts(Ls, C) = Ts(Ls, C) + Te(Le, C): Next C
   Next Le
Me.[21:65536].ClearContents
Me.[A21].Resize(Ls, CMax).Value = Ts
End Sub

 

[_Thierry]

Re : Problème Do While Loop

Bonsoir Maxime, Dranreb, le Forum

Vu que j'avais encore mon algo sous les yeux pour un autre post du Forum aujourd'hui, voici une autre approche qui pourra aussi servir de réponse à l'autre Post

Bien à vous
@+Thierry

PS l'aute post "cousin" :
http://www.excel-downloads.com/forum/203687-fusion-de-ligne-si-doublon-par-macro.html

 

[_Thierry]

Re : Problème Do While Loop

Re Bonsoir

Très bien ton code Dranreb, c'est parfait aussi je viens de le tester, bravo.
Par contre je ne crains que ce soit un peu hard à lire/comprendre pour un novice.

Bonne Soirée
@+Thierry

 

[mgrelou]

Re : Problème Do While Loop

Merci à tous les deux pour vos rapides réponses ! Elles fonctionnent très bien ! c'est vrai que je ne saisis pas tout au code de Dranreb 🙄