pb comparaison colonne

Le
Zol
Bonjour à tous,

j'ai regardé ds Excelabo mais je n'ai point trouvé mon bonheur.


voilà j'ai pour une année deux colonnes de 1600 lignes environs qui
contiennent des références (A) et des quantités associés aux références (B )
.

Pour l'années suivante j'ai toujours deux colonnes mais avec des références
en plus ou en moins par rapport a l'année N-1 (et j'ai toujours des
Quantités associés aux références)

Je voulais savoir comment faire la somme des références communes aux deux
années et avoir aussi bien sur les références uniques a une années (N ou
N+1).


Par avance Merci

Olivier
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
FFO
Le #16715711
Salut à toi
Les références pour chaque années doivent être uniques
Soit les onglets Feuil1 et Feuil2 à traiter
Résultat en colonne C
Solution VBA :

For Each c In Worksheets("Feuil1").Range("A2", "A" &
Sheets("Feuil1").Range("A65535").End(xlUp).Row)
Sheets("Feuil2").Activate
Range("A1").Activate
On Error Resume Next
Range("A1", "A" & Range("A65535").End(xlUp).Row).Find(What:=c,
After:=Range("A1"), LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False, SearchFormat:úlse).Activate
If ActiveCell.Address <> Range("A1").Address Then
Range("C" & ActiveCell.Row) = Range("B" & ActiveCell.Row) + c.Offset(0, 1)
Else
c.Offset(0, 2) = "N"
End If
Next
Range("C2", "C" &
Range("A65535").End(xlUp).Row).SpecialCells(xlCellTypeBlanks).Value = "N+1"

Sur ce lien un exemple :

http://www.cijoint.fr/cjlink.php?file=cj200809/cijOEzgOhr.xls

Active la macro "Addition"

Celà devrait convenir

Dis moi !!!!
Zol
Le #16716231
Merci!!! ca marche impeccable!!!!


bonne journée!!!!!!!!!
Olivier


"FFO"
Salut à toi
Les références pour chaque années doivent être uniques
Soit les onglets Feuil1 et Feuil2 à traiter
Résultat en colonne C
Solution VBA :

For Each c In Worksheets("Feuil1").Range("A2", "A" &
Sheets("Feuil1").Range("A65535").End(xlUp).Row)
Sheets("Feuil2").Activate
Range("A1").Activate
On Error Resume Next
Range("A1", "A" & Range("A65535").End(xlUp).Row).Find(What:=c,
After:=Range("A1"), LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False, SearchFormat:úlse).Activate
If ActiveCell.Address <> Range("A1").Address Then
Range("C" & ActiveCell.Row) = Range("B" & ActiveCell.Row) + c.Offset(0,
1)
Else
c.Offset(0, 2) = "N"
End If
Next
Range("C2", "C" &
Range("A65535").End(xlUp).Row).SpecialCells(xlCellTypeBlanks).Value =
"N+1"

Sur ce lien un exemple :

http://www.cijoint.fr/cjlink.php?file=cj200809/cijOEzgOhr.xls

Active la macro "Addition"

Celà devrait convenir

Dis moi !!!!



Publicité
Poster une réponse
Anonyme