Nouvelle création VBA

porcinet82

XLDnaute Barbatruc

• 29 Janvier 2008

• #2

Re : Nouvelle création VBA

Salut,

Mets nous un fichier exemple avec quelques data non confidentielles (fichier <50ko), je pense que ce n'est pas sorcier a traiter.
En attendant ton fichier,

@+

PS : T'aurais pas joué au tennis ce matin par harsard ?

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 29 Janvier 2008

• #3

Re : Nouvelle création VBA

re,

Bon a tout hasard, voivi un code qui devrait fonctionner. Cela suppose que tes codes clients sont dans la colonne A a parir de la ligne 1 et que les sommes soient en colonne B. Le résultat est fournis en colonne C :

Code:

Sub test()
Dim i&, somme&
For i = 1 To Range("A65536").End(xlUp).Row
    Do While Cells(i, 1).Value = Cells(i + 1, 1).Value
        somme = somme + Cells(i, 2).Value
        i = i + 1
    Loop
    somme = somme + Cells(i, 2).Value
    Cells(i, 3).Value = somme
    somme = 0
Next i
End Sub

Si tu ne veux garder que les lignes remplis, tu peux utiliser ceci :

Code:

Sub test2()
Dim i&
For i = Range("A65536").End(xlUp).Row To 1 Step -1
    If Cells(i, 3).Value = "" Then Rows(i).Delete
Next i
End Sub

@+

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 29 Janvier 2008

• #4

Re : Nouvelle création VBA

bonjour fabou

et bienvenue sur XLD

vois si cela te convient

Edit:
Salut romain
avais pas rafraichi

 

Pièces jointes

• fabou.zip

  11.1 KB · Affichages: 37

Vote positif 0 Vote négatif

B

Bichon 94

Guest

• 29 Janvier 2008

• #5

Re : Nouvelle création VBA

Bonjour à tous,
Un tableau croisé dynamique conviendrai surement.

 

Vote positif 0 Vote négatif

F

fabou75017

Guest

• 29 Janvier 2008

• #6

Re : Nouvelle création VBA

LooOOOOLLL pour le tennis!! Effectivement...

Je te joints un fichier en exemple. L'idée comme je l'ai expliqué précédement est de savoir pour chaque référence client la somme du montant qui lui est associé.

Merci pour ton aide (et ta réactivité!!!)

Fab

 

Pièces jointes

• exemple.xls

  31 KB · Affichages: 67
• exemple.xls

  31 KB · Affichages: 64
• exemple.xls

  31 KB · Affichages: 67

Vote positif 0 Vote négatif

F

fabou75017

Guest

• 29 Janvier 2008

• #7

Re : Nouvelle création VBA

en tout cas le forum à l'air très convivial.

Bonne journée à tous!

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 29 Janvier 2008

• #8

Re : Nouvelle création VBA

Bonjour fabou, Romain, PierreJean, Bichon,

Avec, en B136 sur ton exemple : =SOUS.TOTAL(9;B2:B135), et à chaque filtre sur tel ou tel client, tu auras son total.

Bonne journée.

Jean-Pierre

 

Vote positif 0 Vote négatif

B

Bichon 94

Guest

• 29 Janvier 2008

• #9

Re : Nouvelle création VBA

Re bonjour,
Le fichier avec un TCD.
Excusez moi si je fait interference.
@+

 

Pièces jointes

• exemple(1).zip

  23.3 KB · Affichages: 25
• exemple(1).zip

  23.3 KB · Affichages: 26
• exemple(1).zip

  23.3 KB · Affichages: 28

Vote positif 0 Vote négatif

F

fabou75017

Guest

• 29 Janvier 2008

• #10

Re : Nouvelle création VBA

Bon et bien un grand coup de chapeau à Porcinet!! Merci beaucoup c'est exactement ce que je recherchais. En effet j'ai besoin ensuite d'exploiter les données dsur une autre feuille donc c'est vraiment parfait.

Désolé pour Jean Pierre et Bichon, je n'ai pas pu ouvrir votre fichier à cause du pare feu de ma boite qui est assez coriace!

Une dernière question: il ya une erreur de compilation quand je veux regrouper tes 2 ^programmes porcinet


Sub test()
Dim i&, sum&
For i = 1 To Range("A65536").End(xlUp).Row
Do While Cells(i, 1).Value = Cells(i + 1, 1).Value
sum = sum + Cells(i, 2).Value
i = i + 1
Loop
sum = sum + Cells(i, 2).Value
Cells(i, 3).Value = sum
sum = 0
Next i

Dim i&
For i = Range("A65536").End(xlUp).Row To 1 Step -1
If Cells(i, 3).Value = "" Then Rows(i).Delete
Next i
End Sub

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 29 Janvier 2008

• #11

Re : Nouvelle création VBA

Bonjour le fil,

comme porcinet n'est pas connecté, je me permet:

enlève la ligne en rouge:

Code:

Sub test()
Dim i&, sum&
For i = 1 To Range("A65536").End(xlUp).Row
Do While Cells(i, 1).Value = Cells(i + 1, 1).Value
sum = sum + Cells(i, 2).Value
i = i + 1
Loop
sum = sum + Cells(i, 2).Value
Cells(i, 3).Value = sum
sum = 0
Next i

[B][COLOR=red]Dim i&[/COLOR][/B]
For i = Range("A65536").End(xlUp).Row To 1 Step -1
If Cells(i, 3).Value = "" Then Rows(i).Delete
Next i
End Sub

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 29 Janvier 2008

• #12

Re : Nouvelle création VBA

re, Salut,

Merci a Skoobi d'etre passé corriger cette erreur de jeunesse 😉

@+

 

Vote positif 0 Vote négatif