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)....
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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"
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"
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"
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"
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de news:
3DFC315B-C3CE-4E9B-8DBF-380C3C7190A1@microsoft.com...
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"
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"
