Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Copie lignes sous condition

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion patoq
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
P

patoq

XLDnaute Occasionnel
Bonjour tout le monde

Je dois copier des lignes dans des onglets crées justement avec des conditions.

Je m'explique :

J'ai une feuille data et je dois créer des onglets avec un filtre sur une colonne (M).
Exemple créer un onglet STJ qui regroupera toutes les lignes STJ de cette colonne ,de meme avec STR.

En un mot, copier toutes les lignes dans des onglets crées garace à ce filtre.
J'ai une macro qui ne marche pas;peut être est ce du au format de cellules, je ne sais pas.

Si je ne suis pas clair ,dites le et j'éclaircirait

Merci d'avance ,je pense que les experts vont trouver.

Cordialement
 

Pièces jointes

Trier par date Trier par votes
Re : Copie lignes sous condition

Bonjour patoq, le forum,

pour réaliser cela j'utilise la fonction filtre élaboré, qui est très puissante.
Voilà comment je procède pour réaliser ma macro:
1/ filtre élaboré sans critère et sans doublon qui crée tous les filtres possibles
2/ boucle 1 pour créer les onglets par filtre
3/ application du filtre sur l'onglet avec critères

Le filtre élaboré sans critère et sans doublon s'écrit pour une base de données de A1 à S1000:
VB: 
Range("a1:s1000").AdvancedFilter xlFilterCopy, , Range("q1"), True

le critère viendra s'insérer entre les 2 virgules consécutives!

En espérant t'avoir aidé!

Bon courage

Edit:

Voici le code complet, testé et qui marche chez moi (il faut juste que tu mettes un titre en AC1 sinon ça ne marchera pas!):
VB: 
Sub titiborregan()
With Sheets(1)
.Range("af1") = .Range("ac1")
.Range("a1").CurrentRegion.AdvancedFilter xlFilterCopy, , .Range("af1"), True

For i = 2 To .Range("af1").End(xlDown).Row
filtre = .Cells(i, 32)
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = filtre
.Rows(1).Copy Sheets(filtre).Range("a1")
Sheets(filtre).Range("af2") = filtre
.Range("a1").CurrentRegion.AdvancedFilter xlFilterCopy, Sheets(filtre).Range("af1:af2"), Sheets(filtre).Range("a1:ac1"), False

Next

End With
End Sub

Cela à l'avantage d'être dynamique si tu venais à créer de nouveaux filtres qui deviendraient de nouveaux onglets...
Par contre, si tu le fais plusieurs fois de suite, ça bug car les feuilles auront le même nom...
Insère en début de macro de quoi supprimer les feuilles après la feuille 1
VB: 
for n= sheets.count to 2 step-1
application.displayalerts=false
sheets(n).delete
application.displayalerts=true
next
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2019 excel vba coloriser une ligne sur deux sur lignes filtrées
Réponses
11
Affichages
253
TooFatBoy
N
  • Question Question
XL 2021 Affecter automatiquement une valeur dans une cellule en fonction d'une saisie dans une autre cellule
Réponses
9
Affichages
323
Nico Gre
N
B
  • Question Question
XL 2021 Base de données
Réponses
5
Affichages
701
Cousinhub
R
  • Question Question
Microsoft 365 Formule qui sélectionne un ligne et qui récupère la ligne en-dessous
2
Réponses
29
Affichages
851
roro67200
R
H
  • Question Question
XL 2019 Masquer des lignes sous condition en vba
Réponses
8
Affichages
297
job75
R
  • Question Question
XL 2021 Recherche formule pour compléter une cellule a partir des données d'une autre feuille du classeur (16/03/2026)
2
Réponses
18
Affichages
601
laurent950
P
  • Question Question
Autres moyenne de plusieurs lignes et colonnes sous deux conditions
Réponses
8
Affichages
419
podarck
P
N
  • Question Question
XL 2021 Décompter des valeurs qui se répètent sur deux feuilles
Réponses
3
Affichages
255
Hecatonchire
H
S
  • Résolu(e)
XL 2016 Récupération valeurs cellules lignes autre onglet
Réponses
11
Affichages
430
safranien
S
G
  • Question Question
Microsoft 365 Créer somme sous condition
Réponses
7
Affichages
281
gary34
G
J
  • Question Question
XL 2019 index equiv avec fonction ou sur plusieurs feuilles
Réponses
11
Affichages
909
job75
J
  • Question Question
XL 2016 Formule de recherche de valeurs sur deux onglets en entête et en ligne
2
Réponses
22
Affichages
682
Jaykerz
J
  • Question Question
XL 2016 copie de donnees horizontale en verticale
2
Réponses
25
Affichages
986
job75
J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
511
job75
C
  • Résolu(e)
XL 2019 User Form qui renvoi dans un tableau avec celulle fusionnée
2
Réponses
16
Affichages
366
Piment
P
  • Résolu(e)
XL 2019 Augmenter la vitesse de traitement
2 3
Réponses
37
Affichages
1 K
dysorthographie
D
  • Résolu(e)
XL 2019 Formule qui suit le total général d'un TCD ( galère ! )
Réponses
4
Affichages
325
AtTheOne
C
  • Question Question
XL 2021 Exporter des données vers une autre feuille...
Réponses
7
Affichages
202
sylvanu
G
  • Question Question
Microsoft 365 Formule sous condition
Réponses
2
Affichages
285
sylvanu
H
  • Question Question
XL 2019 masquer des colonne sous condition d'une cellule en vba
Réponses
5
Affichages
259
sylvanu
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…