fusion rapport mensuels
Le
olivier
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
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
Poser une question
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" news:459d23c5$0$289$
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" news:VFunh.274572$