Code à modifier [Résolu]

Signaler
-
Messages postés
14332
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
26 février 2021
-
Bonjour

J'ai ce code qui fonctionne bien pour mon fichier dont la source
débute en ligne 2 la ligne 1 étant les entêtes .
Je n'arrive pas à modifier ce code pour un autre fichier .
La ligne 3 étant les entêtes le début les infos a transférer commencent en ligne 408.
Pouvez vous svp me dire ce que je dois modifier pour réussir à faire fonctionner ce code dans mon autre fichier
Je vous remercie

Sub Extrait()
Set f = Sheets("BD")
'--- Liste des élèves
f.[A1:D10000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=f.[K1], Unique:=True
For Each c In f.Range("K2:K" & f.[K65000].End(xlUp).Row) ' pour chaque élève
f.[K2] = c.Value
On Error Resume Next
temp = CStr(c.Value)
Sheets(temp).Select ' la feuille existe t-elle?
If Err <> 0 Then
Sheets("Modèle").Copy After:=Sheets(Sheets.Count) ' création
ActiveSheet.Name = temp
End If
'-- extraction
f.[A1:D10000].AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=f.[K1:K2], CopyToRange:=[A1:D1]
Next c
End Sub

3 réponses

Messages postés
15611
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
25 février 2021
1 460
Bonjour,

Pouvez mettre un fichier exemple avec une feuille qui "marche" avec votre code et une feuille pour modif du code.
Le nouveau fichier doit avoir la meme mise en page pour la creation de feuille?

Pour transmettre un fichier,
Veillez a ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com

Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...

ou
'mon partage
https://mon-partage.fr/
Re bonjour

Pas de solutions à mon problème?
Merci
Messages postés
2231
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
25 février 2021
376
Bonjour

Merci pour votre aide ci-dessous le fichier avec les explications
https://www.cjoint.com/c/KBrqJuMlr4G
Cordialement
Messages postés
15611
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
25 février 2021
1 460
Re,

code modifie: https://mon-partage.fr/f/48Dm5u1u/
A tester avec plus de donnees pour confirmation
Messages postés
2231
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
25 février 2021
376 >
Messages postés
15611
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
25 février 2021

Re
Impeccable cela fonctionne comme j'ai besoin
Merci encore
Bonne soirée
Messages postés
14332
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
26 février 2021
806 >
Messages postés
2231
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
25 février 2021

peux-tu alors marquer la discussion comme résolue?