vba sommes en fonction de deux colonnes
Bonjour,
Je débute en vba aussi voici ma fonction :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62
| Sub fonction()
Dim c As Range, Plage As Range, Ctr As Long, Plagee As Range
Dim t As Integer
Sheets("Feuil1").Cells.Clear
t = 1000
Worksheets("Feuil1").Cells(1, 1).Value = "NOM"
Worksheets("Feuil1").Range("A1:A2").Merge
Worksheets("Feuil1").Cells(1, 2).Value = "NOM DE JEUNE FILLE"
Worksheets("Feuil1").Range("B1:B2").Merge
Worksheets("Feuil1").Cells(1, 3).Value = "PRENOM"
Worksheets("Feuil1").Range("C1:C2").Merge
Worksheets("Feuil1").Cells(1, 4).Value = "SUPERFICIE"
Worksheets("Feuil1").Range("D1:E1").Merge
Worksheets("Feuil1").Cells(2, 4).Value = "BOISEE"
Worksheets("Feuil1").Cells(2, 5).Value = "NON BOISEE"
Sheets("Feuil1").Range("A1:G1").HorizontalAlignment = xlCenter
Sheets("Feuil1").Range("A2:G2").HorizontalAlignment = xlCenter
Worksheets("Feuil1").Range("A1:A2").Borders.Weight = xlThin
Worksheets("Feuil1").Range("B1:B2").Borders.Weight = xlThin
Worksheets("Feuil1").Range("C1:C2").Borders.Weight = xlThin
Worksheets("Feuil1").Range("D1:E1").Borders.Weight = xlThin
Worksheets("Feuil1").Cells(2, 4).Borders.Weight = xlThin
Worksheets("Feuil1").Cells(2, 5).Borders.Weight = xlThin
Worksheets("Feuil2").Activate
Set Plage = Range("A3", Range("A65536").End(xlUp))
Set Plagee = Range("B3", Range("B65536").End(xlUp))
Ctr = 1
For Each c In Plage
If Not IsNumeric(Application.Match(c.Value, Sheets("Feuil1").Range("A:A"), 0)) And _
Not IsNumeric(Application.Match(Sheets("Feuil1").Range("C:C"), 0)) _
Or Ctr = 1 Then
Worksheets("Feuil1").Range("A" & Ctr + 2).Value = c.Value
p = 0
For i = 1 To t
If Cells(i, 1) = c.Value Then
p = p + Cells(i, 7)
End If
Next i
Worksheets("Feuil1").Range("D" & Ctr + 2).Value = p
p = 0
For i = 1 To t
If Cells(i, 1) = c.Value Then
p = p + Cells(i, 8)
End If
Next i
Worksheets("Feuil1").Range("E" & Ctr + 2).Value = p
Ctr = Ctr + 1
End If
Next c
End Sub |
pour l"instant ce code me permet de selectionner dans la colonne A(Nom) de la feuille 2, les noms en eliminant les doublons et en fesant la somme des colonnes G et H correspondantes et de rafficher tous ceci dans la feuille 1.
Aussi dans la colonne C de la feuille 2 je possède les prénoms et j'ai donc plusieurs noms avec différents prénoms, il faut donc que je fasse une selection sur le nom et le prenom pour faire les sommes. Mais je sais faire la selection que sur une colonne (Nom) pouvez vous m'aider....
Merci pour vos réponses....