fusion rapport mensuels

bonsoir

voici une macro qui permet de faire ce que tu souhaites faire (si j'ai bien
compris)
a essayer sur une copie de ton tableau excel !!!!


Sub fusion()
' paramètres
'nom de la feuille contenant le recapitulatif semestriel à changer en
fonction
' des noms se trouvant dans ton tableau excel
frecap = "recap"
'nom de la feuille contenant les données mensuelles
fmois = "mois"



On Error Resume Next
' supprimer recap du mois précédent si existe
Sheets(frecap & "-1").Delete
On Error GoTo 0
' renommer recap en recap-1
Sheets(frecap).Name = frecap & "-1"
' ajouter une nouvelle feuille recap
Sheets.Add
ActiveSheet.Name = frecap

For i = 1 To 65536
'pour chaque produit dans la feuille mois
If Sheets(fmois).Cells(i, 1) = "" Then Exit For
For j = 1 To 65536
'rechercher produit dans la feuille recap-1
If Sheets(frecap & "-1").Cells(j, 1) = "" Then
'nouveau produit car non trouvé dans la feuille recap
'copier ref du produit et prix dans la colonne dernier mois de la période

Sheets(frecap).Cells(i, 1).Value = Sheets(fmois).Cells(i, 1).Value
Sheets(frecap).Cells(i, 7).Value = Sheets(fmois).Cells(i, 2).Value
Exit For
End If

If Sheets(frecap & "-1").Cells(j, 1) = Sheets(fmois).Cells(i, 1) Then
'produit existant
' copier les valeurs se trouvant dans la feuille recap-1 sauf le prix du
premier mois

Sheets(frecap).Cells(i, 1).Value = Sheets(frecap & "-1").Cells(j, 1).Value
For x = 3 To 7
Sheets(frecap).Cells(i, x - 1).Value = Sheets(frecap & "-1").Cells(j,
x).Value
Next x
'copier le prix de la feuille mois dans la colonne du dernier mois de la
période
Sheets(frecap).Cells(i, 7).Value = Sheets(fmois).Cells(i, 2).Value
Exit For
End If
Next j
Next i
End Sub

"olivier" <contact@evoluscence.fr> wrote in message
news:459d23c5$0$289$426a74cc@news.free.fr...

Bonjour
Je réalises des relevés de prix mensuellement sur dans un tableau A et
suit leurs evolution mois par mois
J effectue donc mensuellement mes relevés dans des tableau specifiques qui
comportent dans la permiere colone la référence produit, la seconde etant
le prix
Le tableau ou je consolide mes données doit etre purgé mensuellement des
produit ne figurants plus dans mon relevé,je garde les ligne des produit
en vente c est a dire du mois en cours
Mon soucis est que je dédoublonnais manuellement ce fichier en retirant
les références périmés et maintenant le nombre de référence est tel que ca
deviens quasi impossible.

Pourriez vous m aider

MErci d avance
Donc mensuellement j ai un tableau de type avec de nouveau pdt et de
nouveau prix
Ref : mois:
pdt1 Prix-x
pdt 4 Prix-y
pdt 9 Prix-z

et un tableau semestriel recapitulatif, les lignes ainsi que les valeurs
des produits ne figurant plus dans le dernier rapport devant etre
supprimés
Ref : mois-3 : mois-2 mois-1 mois
pdt11 Prix-1 Prix
pdt 5 Prix-3 Prix-2 Prix-1 Prix
pdt 4 Prix-3 Prix-2 Prix-1 Prix
pdt 9 Prix-2 Prix-1 Prix
pdt 10 Prix-3 Prix-2 Prix-1 Prix

Merci de votre aide
Olivier

nouvelle mise en page qui permet de faire un copier coller sans devoir
ajuster les coupures dues au système de mail.

Sub fusion()
' paramètres
' nom de la feuille contenant le recapitulatif semestriel à changer
' en fonction des noms se trouvant dans ton tableau excel
frecap = "recap" : 'changer la valeur entre ""
'nom de la feuille contenant les données mensuelles
fmois = "mois" : 'changer la valeur entre ""



On Error Resume Next
' supprimer recap du mois précédent si existe
Sheets(frecap & "-1").Delete
On Error GoTo 0
' renommer recap en recap-1
Sheets(frecap).Name = frecap & "-1"
' ajouter une nouvelle feuille recap
Sheets.Add
ActiveSheet.Name = frecap

For i = 1 To 65536
'pour chaque produit dans la feuille mois
If Sheets(fmois).Cells(i, 1) = "" Then Exit For
For j = 1 To 65536
'rechercher produit dans la feuille recap-1
If Sheets(frecap & "-1").Cells(j, 1) = "" Then
'nouveau produit car non trouvé dans la feuille recap
'copier ref du produit et prix dans la colonne dernier mois de la période

Sheets(frecap).Cells(i, 1).Value = Sheets(fmois).Cells(i, 1).Value
Sheets(frecap).Cells(i, 7).Value = Sheets(fmois).Cells(i, 2).Value
Exit For
End If

If Sheets(frecap & "-1").Cells(j, 1) = Sheets(fmois).Cells(i, 1) Then
'produit existant
' copier les valeurs se trouvant dans la feuille recap-1 sauf le prix
' du premier mois

Sheets(frecap).Cells(i, 1).Value = Sheets(frecap & "-1").Cells(j, 1).Value
For x = 3 To 7
Sheets(frecap).Cells(i, x - 1).Value = _
Sheets(frecap & "-1").Cells(j, x).Value
Next x
'copier le prix de la feuille mois dans la colonne du dernier
'mois de la période
Sheets(frecap).Cells(i, 7).Value = Sheets(fmois).Cells(i, 2).Value
Exit For
End If
Next j
Next i
End Sub


"h2so4" <h2so4@pandora.be> wrote in message
news:VFunh.274572$0F5.5794908@phobos.telenet-ops.be...

bonsoir

voici une macro qui permet de faire ce que tu souhaites faire (si j'ai
bien compris)
a essayer sur une copie de ton tableau excel !!!!

Pourriez vous m aider

MErci d avance
Donc mensuellement j ai un tableau de type avec de nouveau pdt et de
nouveau prix
Ref : mois:
pdt1 Prix-x
pdt 4 Prix-y
pdt 9 Prix-z

et un tableau semestriel recapitulatif, les lignes ainsi que les valeurs
des produits ne figurant plus dans le dernier rapport devant etre
supprimés
Ref : mois-3 : mois-2 mois-1 mois
pdt11 Prix-1 Prix
pdt 5 Prix-3 Prix-2 Prix-1 Prix
pdt 4 Prix-3 Prix-2 Prix-1 Prix
pdt 9 Prix-2 Prix-1 Prix
pdt 10 Prix-3 Prix-2 Prix-1 Prix

Merci de votre aide
Olivier