Bonjour à toutes et à tous,
Néophyte en VBA je souhaite faire évoluer un code.
Voici le problème :
J’ai une feuille nommée « BD » avec un tableau (voir ci-dessous)
Nom		Service	Salaire		Qualif			
Cowan		Compta	3400		Q2			
Dang		Compta	5000		Q1			
Dupont		Compta	4500		Q1			
Lebosse		Compta	2300		Q2			
Ceuzin		Etudes	3400		Q2			
Dupond		Etudes	5000		Q2			
Durand		Etudes	4500		Q2		        
Dykiel		Etudes	2300		Q1			
Bailleul	Fabric	3400		Q3			
Garcia		Fabric	5000		Q3			
Martin		Fabric	4500		Q1			
Lucien		AAA	2300		Q1			
Tyndare		AAAA	3400		Q3			
Sylvie	 	AAA36	5000		Q3			
Roger		36AAA	4500		Q1
Je souhaite avec un code VBA créer un onglet pour chaque service.
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
Sub Extrait()
  Set f = Sheets("BD")
  Application.DisplayAlerts = False
  Application.ScreenUpdating = False
 
  '--- Liste des services
  f.[A1:D10000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=f.[G1], Unique:=True
  For Each c In f.Range("G2:G" & f.[G65000].End(xlUp).Row)   ' pour chaque service
     f.[G2] = c.Value
     On Error Resume Next
     Sheets(c.Value).Delete
     On Error GoTo 0
     Sheets.Add After:=Sheets(Sheets.Count)   ' création
     ActiveSheet.Name = c.Value
 
    '-- extraction
     f.[A1:D10000].AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=f.[G1:G2], CopyToRange:=[A1]
   Next c
End Sub
Maintenant un petit PB.

1.Quand je lance la macro « Sub Extrait() » il y a un résultat incorrect dans l’onglet service « AAA » nous trouvons trois services différents pourquoi ?

Nom	Service	Salaire	Qualif
Lucien	AAA	2300	Q1
Tyndare	AAAA	3400	Q3
Sylvie	AAA36	5000	Q3
Un petit plus est il possible de nommer l’onglet avec la couleur du service en plus ?

Voilà j’espère avoir donné une explication claire sur les problèmes à résoudre.
Merci d’avance à celui ou à celle qui souhaitera m’aider et m'instruire car je souhaite comprendre mçeme si F8 m'aide beaucoup à la compréhension.
J’ai emprunté le code sur la page de http://boisgontierj.free.fr/ que je n’arrive pas à joindre pour au moins le remercier de proposer plein de petits codes en libre service. S’il me lit je le remercie bien fort.
CORDIALEMENT
TYNDARE