SOMME.SI (Macro ???)

Re : SOMME.SI (Macro ???)

Salut,

Si j'ai bien compris ce que tu veux faire :


A+
Horatio

Re : SOMME.SI (Macro ???)

bonjour LocSta

vois si cette macro te convient (recap a executer a partir de la feuille Archive)

edit

salut Lord Nelson
avais pas rafraichi

Re : SOMME.SI (Macro ???)

Salut Lord Nelson, j'ai essayer t'as macro, mais il doit y avoir une erreur de calcul quelque par, les sommes ne sont pas bonne. Sinon t'as bien compri le principe de ce que j'veux faire.
L'idéal serait que les lignes soit créees a chaque fois dans l'onglet Archive (une ligne à chaque archive y compris pour les doublons) et que dans la feuille Archive Finale il ne reste qu'une ligne pour chaque Client/Affaire/Machine avec la somme dans les différentes catégories, j'espére que jme suis exprimé de maniére compréhensible.

L'idéal seré simplement de créer une macro qui permette de passer de Archive à Archive Finale.


Voici le code que j'utilise pour l'archivage:
Option Explicit
Sub Archiver()
Dim lig As Long, Tablo As Variant, i As Byte, N As Byte
' Mise en tableau
Calculate
With Sheets("Saisie")
If .Range("C3") = "" Then MsgBox "Pas de données à archiver ?": Exit Sub
Tablo = .Range("A3:T3")
' Report des données
With Sheets("Archives")
lig = .Range("B65536").End(xlUp).Row + 1
' Première données
For i = 1 To 5
.Cells(lig, i + 1) = Tablo(1, i)
Next i
' Secondes données
For i = 6 To 20
.Cells(lig, i + 1 + N) = Tablo(1, i)
N = N + 1
Next i
End With
.Range("F3:T3").ClearContents
End With
End Sub

Re : SOMME.SI (Macro ???)

Bonjour,

Un essai par formules

Une formule renvoyant le n° de la dernière ligne où les critères sont respectés
Formule matricielle, à valider par ctrl, maj et entrée

Report des valeurs trouvées dans la dernière feuille
Formule matricielle aussi

Index Equiv pour récupérer les valeurs des 1ères colonnes

SommeProd pour les autres valeurs
(Somme.Si n’accepte pas plusieurs critères)

Re : SOMME.SI (Macro ???)

bonjour à tous,
voici une proposition avec macro
(un peu tardive car je n'avais pas prêté attention à la remarque sur la feuille Archivefinale : conserver les lignes les plus récentes)
à tester ...

Re : SOMME.SI (Macro ???)

Merci PierreJean le tiens est tout simplement magique!! lol
Ca marche nikel aucun souci.
Il serait possible que la macro envoi les lignes dans la feuille archivage finale?

Merci en tous cas PierreJean, t'es un boss.

Re : SOMME.SI (Macro ???)

Merci pour ta réponse Monique, gros travail!!
Merci aussi dixit, ton fichier ressemble à celui de pierrejean, j'vais garder un des deux. 😉

Re : SOMME.SI (Macro ???)

re

je croyais que la feuille Archivage Final etait l'exemple a obtenir

voila une macro qui peut etre lancée n'importe ou

eventuellement en fin de macro saisie par

call recap

Re : SOMME.SI (Macro ???)

Sur mon ordi la macro ne marche pas:"Erreur d'execution 1004 - la méthode Select de la classe Range à échoué"

Re : SOMME.SI (Macro ???)

re

je ne comprends pas !!

le debugger souligne bien en jaune la ligne

Range("A3").select ??

ta cellule A3 nest pas fusionnée ??

Re : SOMME.SI (Macro ???)

Re PierreJean
Est t'il possible d'adapter ton ancien code (voir ci-dessous) pour qu'il s'execute aprés ma macro (tout en bas) et donc qu'il remplace les lignes dans "Archive Finale" comme il le fesait trés bien dans ton 1er fichier, comme ça en saisissant une ligne à archiver elle sera copier dans "Archive" et dans "Archive Finale" puis les doublons seront modifier à l'aide de ton code dans la feuille "Archive Finale. Merci

Code pour le remplacement des lignes:
Dim lignes As Collection
Set lignes = New Collection
MsgBox (Range("A65536").End(xlUp).Row)
For n = 3 To Range("A65536").End(xlUp).Row
For m = n + 1 To Range("A65536").End(xlUp).Row
If Range("D" & n) & Range("E" & n) & Range("F" & n) = Range("D" & m) & Range("E" & m) & Range("F" & m) Then
Range("G" & n) = Range("G" & n) + Range("G" & m)
Range("I" & n) = Range("I" & n) + Range("I" & m)
Range("K" & n) = Range("K" & n) + Range("K" & m)
lignes.Add m
End If



Mon Code D'archivage:

Option Explicit
Sub Archiver()
Dim lig As Long, Tablo As Variant, i As Byte, N As Byte
' Mise en tableau
Calculate
With Sheets("Saisie")
If .Range("C3") = "" Then MsgBox "Pas de données à archiver ?": Exit Sub
Tablo = .Range("A3:T3")
' Report des données
With Sheets("Archives")
lig = .Range("B65536").End(xlUp).Row + 1
' Première données
For i = 1 To 5
.Cells(lig, i + 1) = Tablo(1, i)
Next i
' Secondes données
For i = 6 To 20
.Cells(lig, i + 1 + N) = Tablo(1, i)
N = N + 1
Next i
End With
With Sheets("Archives Finale")
lig = .Range("B65536").End(xlUp).Row + 1
' Première données
For i = 1 To 5
.Cells(lig, i + 1) = Tablo(1, i)
Next i
' Secondes données
For i = 6 To 20
.Cells(lig, i + 1 + N) = Tablo(1, i)
N = N + 1
Next i
End With
.Range("F3:T3").ClearContents
End With
End Sub
Next m
Next n
For n = lignes.Count To 1 Step -1
Rows(lignes(n)).Delete
Next n

Re : SOMME.SI (Macro ???)

J'ai simplement ouvert ton fichier joint auquel j'ai ajouter une macro et affecté ton code, j'ai eu le message que j'ai cité précédemment et le débogeur me surligne
Range("A3").select
La cellule A3 n'est pas fusionné
ça marche sur ton ordi?

Re : SOMME.SI (Macro ???)

re
le (re)lisant les posts, je m'aperçois que la feuille Archive est à conserver intacte, alors que ma macro travaille uniquement sur cette feuille ...
avec Pierrejean le problème est dans de bonnes mains.

Re : SOMME.SI (Macro ???)

re

a la lecture rapide de ton code je m'apercois que les archives y sont plurielles
dans le fichier sur lequel j'ais travaillé elles étaient au singulier !!
y-a-t-il lien de cause a effet ???
je n'ais plus le temps d'aller plus loin aujourd'hui, je continuerais demain