Discussion :

[batbat52]

Bonjour,
Je débute en vba aussi voici ma fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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....

[Daniel.C]

Bonjour,

Si je résume : ton code fonctionne. Sur Feuil2, tu as des noms et des prénoms. Tu veux faire les sommes pour chaque couple nom - prénom en éliminant les doublons ?

[batbat52]

Oui c'est très bien résumé... je suis pas très forte pour m'exprimer.. dsl..

[mercatog]

Pourquoi tu n'opte pas pour un tableau croisé dynamique?

[batbat52]

Très bonne idée le TCD cela marche très bien!

Par contre j'ai une dernière petite question :
- au dessus de chaque colonne de mon tableau une liste déroulante s'affiche permettant de filtrer les données est-il possible de masquer cette liste?