Bonjour,
J'ai une feuille fichier client avec 1 colonne N° salon et d'autres colonnes
d'information.
Je voudrais crééer une feuille avec la liste de mes clients par numéro de
salon.
Par ex :
1 dupont
1 martin
2 dupond
2 marty
Il faut qu'il me crééer 2 feuilles. La première contien
1 dupont
1 martin
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
JB
Bonjour,
http://cjoint.com/?dnfvQPI7jL
A B C D E F G 1 NoSalon Nom NoSalon NoSalon 2 1 dupond 3 1 martin
4 2 dupont 5 2 marty
Sub extrait() sup For Each c In Range([G2], [G65000].End(xlUp)) Sheets(1).[E2] = c Sheets.Add after:=Sheets(Sheets.Count) Sheets(1).[A1:B1000].AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets(1).[E1:E2], CopyToRange:=[A1:B1] ActiveSheet.Name = c Next c End Sub
Sub sup() Application.DisplayAlerts = False If Sheets.Count > 1 Then Sheets(2).Select For i = 1 To Sheets.Count - 1 ActiveSheet.Delete Next i End If End Sub
Cordialement JB
Bonjour,
http://cjoint.com/?dnfvQPI7jL
A B C D E
F G
1 NoSalon Nom NoSalon
NoSalon
2 1 dupond
3 1 martin
4 2 dupont
5 2 marty
Sub extrait()
sup
For Each c In Range([G2], [G65000].End(xlUp))
Sheets(1).[E2] = c
Sheets.Add after:=Sheets(Sheets.Count)
Sheets(1).[A1:B1000].AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=Sheets(1).[E1:E2], CopyToRange:=[A1:B1]
ActiveSheet.Name = c
Next c
End Sub
Sub sup()
Application.DisplayAlerts = False
If Sheets.Count > 1 Then
Sheets(2).Select
For i = 1 To Sheets.Count - 1
ActiveSheet.Delete
Next i
End If
End Sub
A B C D E F G 1 NoSalon Nom NoSalon NoSalon 2 1 dupond 3 1 martin
4 2 dupont 5 2 marty
Sub extrait() sup For Each c In Range([G2], [G65000].End(xlUp)) Sheets(1).[E2] = c Sheets.Add after:=Sheets(Sheets.Count) Sheets(1).[A1:B1000].AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets(1).[E1:E2], CopyToRange:=[A1:B1] ActiveSheet.Name = c Next c End Sub
Sub sup() Application.DisplayAlerts = False If Sheets.Count > 1 Then Sheets(2).Select For i = 1 To Sheets.Count - 1 ActiveSheet.Delete Next i End If End Sub
Merci pour ton aide cela fonctionne à merveille !! Par contre, saurais-tu comment faire pour qu'il me créé un feuille à chaque nouveau n° de salon dans un nouveau classeur excel? Par exemple, il me créé le classeur "Extraction" avec les onglets "1" et "2". (Autant de feuille que de n° de salon diférent) Merci d'avance.
Merci pour ton aide cela fonctionne à merveille !!
Par contre, saurais-tu comment faire pour qu'il me créé un feuille à chaque
nouveau n° de salon dans un nouveau classeur excel?
Par exemple, il me créé le classeur "Extraction" avec les onglets "1" et "2".
(Autant de feuille que de n° de salon diférent)
Merci d'avance.
Merci pour ton aide cela fonctionne à merveille !! Par contre, saurais-tu comment faire pour qu'il me créé un feuille à chaque nouveau n° de salon dans un nouveau classeur excel? Par exemple, il me créé le classeur "Extraction" avec les onglets "1" et "2". (Autant de feuille que de n° de salon diférent) Merci d'avance.
