[XL-2007] blocage sur la fonction si [Résolu]

cess2308 · 22/11/2011, 11h55

bonjour,

voila, je reviens vers vous car je suis bloquer dans ma création de ma base de donnée sur Excel

voila la situation: Dans mon classeur, j'ai :

1 feuille NON PAYE
1 feuille U6/U9
1 feuille U11
1 feuille U13
1 feuille U15
1 feuille U17
1 feuille U19
1 feuille SENIOR
1 feuille DIRIGEANT

Sur chaque feuille, j'ai les colonnes suivantes :
A = NOM
B = PRENOM
C = DATE DE NAISSANCE
D = TELEPHONE FIXE
E = PORTABLE
F = PORTABLE PERE
G = PORTABLE MERE
H = PAYE
I = PRIX

Dans la feuille NON PAYE, c'est une feuille de récapitulatif des licences non payés de toutes les catégories

J'aurai aimé que dès que le mot " NON" est inscrit dans la colonne H de chaque feuille, cela renvoi le NOM / PRENOM et le PRIX dans la catégorie correspondante dans la feuille NON PAYE...

J'ai essayé la fonction SI avec les fonctions RECHERCHE V, RECHERCHE, INDEX+ EQUIV mais rien a marché !!!

Je ne sais pas si je suis clair, je vous envoi mon dossier

BASE DE DONNEE UGA.zip

Merci d'avance

White Mibu · 22/11/2011, 14h09

Bonjour,

avec une macro cela t’intéresse ?

Si oui regarde le fichier si joint, clic sur le logo en haut à droite de l'onglet "NON PAYE". J'ai pris les trois premier exemple, U7 U9, U11 et U13. Dit moi si c'est se que tu recherche je pourrais t’aider à continuer.

Cordialement

cess2308 · 22/11/2011, 14h17

Sa marche super bien !!!

comment tu as fait? j'aimerai bien savoir

Et eske sa serai possible de faire pareil en ajoutant le prix correpondant aux personnes???

Si je copie / colle le logo sur 1 autre fichier sa marchera egalement? c le mm fichier sauf que c pour 1 autre association???

cess2308 · 22/11/2011, 14h22

et sa serai possible de faire pour toute les catégories??? merci de ton aide

White Mibu · 22/11/2011, 14h43

C'est possible je voulais pas tout faire au cas où si tu voulais que ton fichier soit sans macro...

Je te déconseille de copier le logo sur un autre fichier... il faut plutôt que tu copie la macro dans le fichier en question et ensuite du pourra affecter la macro au logo. Mais pour l'autre association on verra plus tard ça sera pas compliqué une fois celui la fini.

Le prix correspondant est pris en compte aussi, seulement les cases sont vide dans ton tableau "U7 U9" colonne prix pour les licence non payées... =S

Pour les autres catégories j'ai pas le temps cette aprèm je regarde ça ce soir, en attendant tu peut regarder la macro... (option ajouter au ruban développeur, aller dans "Visual Basic" puis double clic sur "Module 1")

à bientôt

White Mibu · 22/11/2011, 19h12

Voilà le fichier joint pour toutes les catégorie, avec les prix.

Pour une autre association, ouvre ton fichier puis Alt + F11.
A gauche tu trouve une fenêtre "Projet - VBAProject", dans cette fenêtre clic droit --> Insertion --> Module.

Ici tu colle le code suivant :

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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
Sub LNonPayees()
 
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
 
    Dim i As Variant, j As Variant
 
    'Catégories U 6 / U 9
    Sheets("NON PAYE").Activate
    Range("B10:D16").Select
    Selection.ClearContents
 
    Range("B10").Select
    'Do While ActiveCell <> ""
    'ActiveCell.Offset(1, 0).Select
    'Loop
    i = ActiveCell.Row
 
    Sheets("U7  U9").Activate
    Range("H8").Select
    Do While ActiveCell <> ""
    j = ActiveCell.Row
    If ActiveCell = "NON" Then
    Sheets("NON PAYE").Cells(i, 2) = Sheets("U7  U9").Cells(j, 1)
    Sheets("NON PAYE").Cells(i, 3) = Sheets("U7  U9").Cells(j, 2)
    Sheets("NON PAYE").Cells(i, 4) = Sheets("U7  U9").Cells(j, 9)
    i = i + 1
    End If
    ActiveCell.Offset(1, 0).Select
    Loop
 
    'Catégorie  U11
    Sheets("NON PAYE").Activate
    Range("F10:H16").Select
    Selection.ClearContents
 
    Range("F10").Select
    i = ActiveCell.Row
 
    Sheets("U11").Activate
    Range("H8").Select
    Do While ActiveCell <> ""
    j = ActiveCell.Row
    If ActiveCell = "NON" Then
    Sheets("NON PAYE").Cells(i, 6) = Sheets("U11").Cells(j, 1)
    Sheets("NON PAYE").Cells(i, 7) = Sheets("U11").Cells(j, 2)
    Sheets("NON PAYE").Cells(i, 8) = Sheets("U11").Cells(j, 9)
    i = i + 1
    End If
    ActiveCell.Offset(1, 0).Select
    Loop
 
    'Catégorie  U13
    Sheets("NON PAYE").Activate
    Range("B21:D27").Select
    Selection.ClearContents
 
    Range("B21").Select
    i = ActiveCell.Row
 
    Sheets("U13").Activate
    Range("H8").Select
    Do While ActiveCell <> ""
    j = ActiveCell.Row
    If ActiveCell = "NON" Then
    Sheets("NON PAYE").Cells(i, 2) = Sheets("U13").Cells(j, 1)
    Sheets("NON PAYE").Cells(i, 3) = Sheets("U13").Cells(j, 2)
    Sheets("NON PAYE").Cells(i, 4) = Sheets("U13").Cells(j, 9)
    i = i + 1
    End If
    ActiveCell.Offset(1, 0).Select
    Loop
 
    'Catégorie U15
    Sheets("NON PAYE").Activate
    Range("F21:H27").Select
    Selection.ClearContents
 
    Range("F21").Select
    i = ActiveCell.Row
 
    Sheets("U15").Activate
    Range("H8").Select
    Do While ActiveCell <> ""
    j = ActiveCell.Row
    If ActiveCell = "NON" Then
    Sheets("NON PAYE").Cells(i, 6) = Sheets("U15").Cells(j, 1)
    Sheets("NON PAYE").Cells(i, 7) = Sheets("U15").Cells(j, 2)
    Sheets("NON PAYE").Cells(i, 8) = Sheets("U15").Cells(j, 9)
    i = i + 1
    End If
    ActiveCell.Offset(1, 0).Select
    Loop
 
    'Catégorie U17
    Sheets("NON PAYE").Activate
    Range("B32:D38").Select
    Selection.ClearContents
 
    Range("B32").Select
    i = ActiveCell.Row
 
    Sheets("U17").Activate
    Range("H8").Select
    Do While ActiveCell <> ""
    j = ActiveCell.Row
    If ActiveCell = "NON" Then
    Sheets("NON PAYE").Cells(i, 2) = Sheets("U17").Cells(j, 1)
    Sheets("NON PAYE").Cells(i, 3) = Sheets("U17").Cells(j, 2)
    Sheets("NON PAYE").Cells(i, 4) = Sheets("U17").Cells(j, 9)
    i = i + 1
    End If
    ActiveCell.Offset(1, 0).Select
    Loop
 
    'Catégorie U19
    Sheets("NON PAYE").Activate
    Range("F32:H38").Select
    Selection.ClearContents
 
    Range("F32").Select
    i = ActiveCell.Row
 
    Sheets("U19").Activate
    Range("H8").Select
    Do While ActiveCell <> ""
    j = ActiveCell.Row
    If ActiveCell = "NON" Then
    Sheets("NON PAYE").Cells(i, 6) = Sheets("U19").Cells(j, 1)
    Sheets("NON PAYE").Cells(i, 7) = Sheets("U19").Cells(j, 2)
    Sheets("NON PAYE").Cells(i, 8) = Sheets("U19").Cells(j, 9)
    i = i + 1
    End If
    ActiveCell.Offset(1, 0).Select
    Loop
 
    'Catégorie SENIOR
    Sheets("NON PAYE").Activate
    Range("B43:D49").Select
    Selection.ClearContents
 
    Range("B43").Select
    i = ActiveCell.Row
 
    Sheets("SENIORS").Activate
    Range("H8").Select
    Do While ActiveCell <> ""
    j = ActiveCell.Row
    If ActiveCell = "NON" Then
    Sheets("NON PAYE").Cells(i, 2) = Sheets("SENIORS").Cells(j, 1)
    Sheets("NON PAYE").Cells(i, 3) = Sheets("SENIORS").Cells(j, 2)
    Sheets("NON PAYE").Cells(i, 4) = Sheets("SENIORS").Cells(j, 9)
    i = i + 1
    End If
    ActiveCell.Offset(1, 0).Select
    Loop
 
    'Catégorie DIRIGEANTS
    Sheets("NON PAYE").Activate
    Range("F43:H49").Select
    Selection.ClearContents
 
    Range("F43").Select
    i = ActiveCell.Row
 
    Sheets("DIRIGEANTS").Activate
    Range("H8").Select
    Do While ActiveCell <> ""
    j = ActiveCell.Row
    If ActiveCell = "NON" Then
    Sheets("NON PAYE").Cells(i, 6) = Sheets("DIRIGEANTS").Cells(j, 1)
    Sheets("NON PAYE").Cells(i, 7) = Sheets("DIRIGEANTS").Cells(j, 2)
    Sheets("NON PAYE").Cells(i, 8) = Sheets("DIRIGEANTS").Cells(j, 9)
    i = i + 1
    End If
    ActiveCell.Offset(1, 0).Select
    Loop
 
    Sheets("NON PAYE").Activate
    Range("B1").Select
 
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
 
End Sub

Ensuite tu revient à ton premier onglet, clic droit sur le logo --> Affecter une macro et tu choisi "LNonPayees".

Tu sais tout ! Pour le code pose moi des questions si tu veux en savoir plus

Cordialement

cess2308 · 23/11/2011, 10h03

des que je rentre des noms en + dans les categories deja rempli, la macro ne marche plus...........

White Mibu · 23/11/2011, 11h19

Il ne doit pas avoir de ligne vide dans la colonne payé, je t'explique le principe de la macro vite fait :

- La macro place le curseur en H8 dans un onglet.
- Si la cellule est égale à "NON" elle copie les données dans ton premier onglet.
- Si elle est égale à "OUI" la macro descend d'une ligne.
- Si la cellule est vide la macro passe à un autre onglet.

Donc si la macro tombe sur une cellule vide elle s'arrête, je pense que ton problème vient d'ici...

Avec cette macro cela ne devrait plus arrivé, voici le principe : (Voir fichier joint)

- La macro compte le nombre de ligne total pour ta colonne "Payé" dans un onglet.
- La macro place le curseur en H8.
- Si la cellule est égale à "NON" elle copie les données dans ton premier onglet.
- Si elle est égale à "OUI" la macro descend d'une ligne.
- Si la cellule est vide la macro descend d'une ligne jusqu'à atteindre la dernière ligne.

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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
Sub LNonPayees()
 
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
 
    Dim i As Variant, j As Variant, k As Variant, l As Variant
 
    'Catégories U 6 / U 9
    Sheets("NON PAYE").Activate
    Range("B10:D16").Select
    Selection.ClearContents
 
    Range("B10").Select
    'Do While ActiveCell <> ""
    'ActiveCell.Offset(1, 0).Select
    'Next
    i = ActiveCell.Row
 
    Sheets("U7  U9").Activate
    k = Range("H65536").End(xlUp).Row
    Range("H8").Select
    For l = 0 To k
    j = ActiveCell.Row
    If ActiveCell = "NON" Then
    Sheets("NON PAYE").Cells(i, 2) = Sheets("U7  U9").Cells(j, 1)
    Sheets("NON PAYE").Cells(i, 3) = Sheets("U7  U9").Cells(j, 2)
    Sheets("NON PAYE").Cells(i, 4) = Sheets("U7  U9").Cells(j, 9)
    i = i + 1
    End If
    ActiveCell.Offset(1, 0).Select
    Next
 
    'Catégorie  U11
    Sheets("NON PAYE").Activate
    Range("F10:H16").Select
    Selection.ClearContents
 
    Range("F10").Select
    i = ActiveCell.Row
 
    Sheets("U11").Activate
    k = Range("H65536").End(xlUp).Row
    Range("H8").Select
    For l = 0 To k
    j = ActiveCell.Row
    If ActiveCell = "NON" Then
    Sheets("NON PAYE").Cells(i, 6) = Sheets("U11").Cells(j, 1)
    Sheets("NON PAYE").Cells(i, 7) = Sheets("U11").Cells(j, 2)
    Sheets("NON PAYE").Cells(i, 8) = Sheets("U11").Cells(j, 9)
    i = i + 1
    End If
    ActiveCell.Offset(1, 0).Select
    Next
 
    'Catégorie  U13
    Sheets("NON PAYE").Activate
    Range("B21:D27").Select
    Selection.ClearContents
 
    Range("B21").Select
    i = ActiveCell.Row
 
    Sheets("U13").Activate
    k = Range("H65536").End(xlUp).Row
    Range("H8").Select
    For l = 0 To k
    j = ActiveCell.Row
    If ActiveCell = "NON" Then
    Sheets("NON PAYE").Cells(i, 2) = Sheets("U13").Cells(j, 1)
    Sheets("NON PAYE").Cells(i, 3) = Sheets("U13").Cells(j, 2)
    Sheets("NON PAYE").Cells(i, 4) = Sheets("U13").Cells(j, 9)
    i = i + 1
    End If
    ActiveCell.Offset(1, 0).Select
    Next
 
    'Catégorie U15
    Sheets("NON PAYE").Activate
    Range("F21:H27").Select
    Selection.ClearContents
 
    Range("F21").Select
    i = ActiveCell.Row
 
    Sheets("U15").Activate
    k = Range("H65536").End(xlUp).Row
    Range("H8").Select
    For l = 0 To k
    j = ActiveCell.Row
    If ActiveCell = "NON" Then
    Sheets("NON PAYE").Cells(i, 6) = Sheets("U15").Cells(j, 1)
    Sheets("NON PAYE").Cells(i, 7) = Sheets("U15").Cells(j, 2)
    Sheets("NON PAYE").Cells(i, 8) = Sheets("U15").Cells(j, 9)
    i = i + 1
    End If
    ActiveCell.Offset(1, 0).Select
    Next
 
    'Catégorie U17
    Sheets("NON PAYE").Activate
    Range("B32:D38").Select
    Selection.ClearContents
 
    Range("B32").Select
    i = ActiveCell.Row
 
    Sheets("U17").Activate
    k = Range("H65536").End(xlUp).Row
    Range("H8").Select
    For l = 0 To k
    j = ActiveCell.Row
    If ActiveCell = "NON" Then
    Sheets("NON PAYE").Cells(i, 2) = Sheets("U17").Cells(j, 1)
    Sheets("NON PAYE").Cells(i, 3) = Sheets("U17").Cells(j, 2)
    Sheets("NON PAYE").Cells(i, 4) = Sheets("U17").Cells(j, 9)
    i = i + 1
    End If
    ActiveCell.Offset(1, 0).Select
    Next
 
    'Catégorie U19
    Sheets("NON PAYE").Activate
    Range("F32:H38").Select
    Selection.ClearContents
 
    Range("F32").Select
    i = ActiveCell.Row
 
    Sheets("U19").Activate
    k = Range("H65536").End(xlUp).Row
    Range("H8").Select
    For l = 0 To k
    j = ActiveCell.Row
    If ActiveCell = "NON" Then
    Sheets("NON PAYE").Cells(i, 6) = Sheets("U19").Cells(j, 1)
    Sheets("NON PAYE").Cells(i, 7) = Sheets("U19").Cells(j, 2)
    Sheets("NON PAYE").Cells(i, 8) = Sheets("U19").Cells(j, 9)
    i = i + 1
    End If
    ActiveCell.Offset(1, 0).Select
    Next
 
    'Catégorie SENIOR
    Sheets("NON PAYE").Activate
    Range("B43:D49").Select
    Selection.ClearContents
 
    Range("B43").Select
    i = ActiveCell.Row
 
    Sheets("SENIORS").Activate
    k = Range("F65536").End(xlUp).Row
    Range("F8").Select
    For l = 0 To k
    j = ActiveCell.Row
    If ActiveCell = "NON" Then
    Sheets("NON PAYE").Cells(i, 2) = Sheets("SENIORS").Cells(j, 1)
    Sheets("NON PAYE").Cells(i, 3) = Sheets("SENIORS").Cells(j, 2)
    Sheets("NON PAYE").Cells(i, 4) = Sheets("SENIORS").Cells(j, 9)
    i = i + 1
    End If
    ActiveCell.Offset(1, 0).Select
    Next
 
    'Catégorie DIRIGEANTS
    Sheets("NON PAYE").Activate
    Range("F43:H49").Select
    Selection.ClearContents
 
    Range("F43").Select
    i = ActiveCell.Row
 
    Sheets("DIRIGEANTS").Activate
    k = Range("F65536").End(xlUp).Row
    Range("F8").Select
    For l = 0 To k
    j = ActiveCell.Row
    If ActiveCell = "NON" Then
    Sheets("NON PAYE").Cells(i, 6) = Sheets("DIRIGEANTS").Cells(j, 1)
    Sheets("NON PAYE").Cells(i, 7) = Sheets("DIRIGEANTS").Cells(j, 2)
    Sheets("NON PAYE").Cells(i, 8) = Sheets("DIRIGEANTS").Cells(j, 9)
    i = i + 1
    End If
    ActiveCell.Offset(1, 0).Select
    Next
 
    Sheets("NON PAYE").Activate
    Range("B1").Select
 
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
 
End Sub

Tiens moi au courant

tetardapatte · 25/11/2011, 09h18

bonjour,
Je ne suis pas du tout pro sur excel et je ne sais pas du tout utiliser une macro alors j'ai regardé ta demande par curiosité
J'ai repris ton fichier et quelque chose de simple me parait faisable même si cela ne correspond pas exactement à tes attentes
Avec un filtre sur Payé OUi/NON, tu peux obtenir très rapidement pour chaque tableau les lignes correspondantes aux licenciés qui n'ont pas payé

22/11/2011, 11h55	#1
cess2308 Invité de passage Inscription : octobre 2011 Messages : 19 Détails du profil Informations personnelles : Sexe : Informations forums : Inscription : octobre 2011 Messages : 19 Points : 4 Points : 4	blocage sur la fonction si bonjour, voila, je reviens vers vous car je suis bloquer dans ma création de ma base de donnée sur Excel voila la situation: Dans mon classeur, j'ai : 1 feuille NON PAYE 1 feuille U6/U9 1 feuille U11 1 feuille U13 1 feuille U15 1 feuille U17 1 feuille U19 1 feuille SENIOR 1 feuille DIRIGEANT Sur chaque feuille, j'ai les colonnes suivantes : A = NOM B = PRENOM C = DATE DE NAISSANCE D = TELEPHONE FIXE E = PORTABLE F = PORTABLE PERE G = PORTABLE MERE H = PAYE I = PRIX Dans la feuille NON PAYE, c'est une feuille de récapitulatif des licences non payés de toutes les catégories J'aurai aimé que dès que le mot " NON" est inscrit dans la colonne H de chaque feuille, cela renvoi le NOM / PRENOM et le PRIX dans la catégorie correspondante dans la feuille NON PAYE... J'ai essayé la fonction SI avec les fonctions RECHERCHE V, RECHERCHE, INDEX+ EQUIV mais rien a marché !!! Je ne sais pas si je suis clair, je vous envoi mon dossier BASE DE DONNEE UGA.zip Merci d'avance
	00

22/11/2011, 14h17	#3
cess2308 Invité de passage Inscription : octobre 2011 Messages : 19 Détails du profil Informations personnelles : Sexe : Informations forums : Inscription : octobre 2011 Messages : 19 Points : 4 Points : 4	Sa marche super bien !!! comment tu as fait? j'aimerai bien savoir Et eske sa serai possible de faire pareil en ajoutant le prix correpondant aux personnes??? Si je copie / colle le logo sur 1 autre fichier sa marchera egalement? c le mm fichier sauf que c pour 1 autre association???
	00

22/11/2011, 14h22	#4
cess2308 Invité de passage Inscription : octobre 2011 Messages : 19 Détails du profil Informations personnelles : Sexe : Informations forums : Inscription : octobre 2011 Messages : 19 Points : 4 Points : 4	et sa serai possible de faire pour toute les catégories??? merci de ton aide
	00

22/11/2011, 14h43	#5
White Mibu Membre confirmé Denis Morena Technicien qualité et métrologie industrielle Inscription : avril 2011 Messages : 115 Détails du profil Informations personnelles : Nom : Denis Morena Localisation : France, Gironde (Aquitaine) Informations professionnelles : Activité : Technicien qualité et métrologie industrielle Secteur : Industrie Informations forums : Inscription : avril 2011 Messages : 115 Points : 221 Points : 221	C'est possible je voulais pas tout faire au cas où si tu voulais que ton fichier soit sans macro... Je te déconseille de copier le logo sur un autre fichier... il faut plutôt que tu copie la macro dans le fichier en question et ensuite du pourra affecter la macro au logo. Mais pour l'autre association on verra plus tard ça sera pas compliqué une fois celui la fini. Le prix correspondant est pris en compte aussi, seulement les cases sont vide dans ton tableau "U7 U9" colonne prix pour les licence non payées... =S Pour les autres catégories j'ai pas le temps cette aprèm je regarde ça ce soir, en attendant tu peut regarder la macro... (option ajouter au ruban développeur, aller dans "Visual Basic" puis double clic sur "Module 1") à bientôt
	00

23/11/2011, 10h03	#7
cess2308 Invité de passage Inscription : octobre 2011 Messages : 19 Détails du profil Informations personnelles : Sexe : Informations forums : Inscription : octobre 2011 Messages : 19 Points : 4 Points : 4	des que je rentre des noms en + dans les categories deja rempli, la macro ne marche plus...........
	00

25/11/2011, 09h18	#9
tetardapatte Invité régulier Inscription : novembre 2011 Messages : 8 Détails du profil Informations forums : Inscription : novembre 2011 Messages : 8 Points : 5 Points : 5	bonjour, Je ne suis pas du tout pro sur excel et je ne sais pas du tout utiliser une macro alors j'ai regardé ta demande par curiosité J'ai repris ton fichier et quelque chose de simple me parait faisable même si cela ne correspond pas exactement à tes attentes Avec un filtre sur Payé OUi/NON, tu peux obtenir très rapidement pour chaque tableau les lignes correspondantes aux licenciés qui n'ont pas payé
	00

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email