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

Copier des lignes sur une autre feuille sous conditions

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion laurent21700
  • 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
L

laurent21700

Guest
Bonjours à tous,

J'ai un fichier excel de plusieurs milliers de références et certaines d'entres elles comportent une cellule à la fin de la ligne avec un message d'erreur. Je souhaiterai copier l'intégralité de la ligne de toutes celles qui comportent ce message d'erreur sur une feuille 2.

Si quelqu'un a une idée de code je suis preneur,

Merci beaucoup d'avance pour votre aide,

(ps : niveau en code pas très bon)
 
Trier par date Trier par votes
Re : Copier des lignes sur une autre feuille sous conditions

Re Bonjour laurent21700, Bonjour 00 🙂


Suite à doublon, je réponds ici :

Comme il y a une grande quantité de lignes, il faut passer par un tableau VBA.
D'autre part tu demandes à coller le résultat en feuil2 alors que l'utilise déja pour ta rechercheV. J'ai donc mis le résultat sur la feuille 3
Tu parles de critères 4H et 4D, mais dans ton exemple il faut aussi prendre les valeurs vides en colonne K (ce que j'ai compris et fait).
Le code est dans le module1, tu peux le lancer avec Alt+F8 (Ventilation)
VB: 
Sub ventilation()
Dim i&, J&, k&
Dim T As Variant

With Sheets("Feuil1")
    T = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(3)(1, 14))
End With

For i = LBound(T, 1) To UBound(T, 1)
    If T(i, 10) = "4H" Or T(i, 10) = "4D" Or T(i, 11) = "" Then
        k = k + 1
        For J = LBound(T, 2) To UBound(T, 2)
            T(k, J) = T(i, J)
        Next J
    End If
Next i

Sheets("Feuil3").Cells(1, 1).Resize(k, UBound(T, 2)) = T
    
End Sub
Cordialement
 

Pièces jointes

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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

C
  • Question Question
XL 2021 Exporter des données vers une autre feuille...
Réponses
7
Affichages
207
sylvanu
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
619
laurent950
D
  • Résolu(e)
XL 2016 Alimenter une combobox sur une feuille de calcul
Réponses
11
Affichages
395
dgil37
D
C
  • Résolu(e)
XL 2021 Afficher une page d'un UserForm à partir des données collectées dans une autre feuille
Réponses
2
Affichages
210
Dan
C
  • Résolu(e)
XL 2021 UserForm en guise de MsgBox qui ne fonctionne pas...
Réponses
11
Affichages
239
Constantin
C
M
  • Résolu(e)
XL 2021 Copier/Coller des valeurs d’une feuille à une autre à partir d’une cellule
Réponses
11
Affichages
706
MANU64360
M
  • Question Question
XL 2021 Copier coller qui ajoute une référence absolu Toute seule
2
Réponses
24
Affichages
1 K
TooFatBoy
  • Résolu(e)
Microsoft 365 Cohabitation des listbox avec des lignes "gelées"
Réponses
8
Affichages
345
fanch55
  • Résolu(e)
XL 2019 Problème de copie de plages non contiguës vers une autre feuille en VBA
Réponses
9
Affichages
453
flc13090
R
  • Question Question
Microsoft 365 Interrompre synchronisation OneDrive d'un dossier ou sous-dossie
Réponses
5
Affichages
706
wDog66
W
S
  • Question Question
XL 2013 Copier automatiquement des données dans plusieurs onglets
Réponses
4
Affichages
685
Phil69970
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
564
Yogean
Y
M
  • Question Question
XL 2019 Copier des lignes les unes a la suite des autres dans une autre feuille sous conditions et seulement certaines colonnes
Réponses
7
Affichages
920
MGH
M
P
  • Question Question
XL 2021 Ajout/adaptation de code VBA sur feuille qui en contient déjà
Réponses
3
Affichages
427
Pierreavecunp
P
V
  • Question Question
Autres Exporter les données vers un autre onglet sans laisser d'espaces entre les lignes
Réponses
13
Affichages
608
Vakarm31
V
S
  • Résolu(e)
XL 2019 VBA automatiser hauteur de lignes
Réponses
7
Affichages
562
sofmat
S
  • Question Question
XL 2021 Détecter un changement dans un des contrôles de formulaire et mettre à jour un TS correspondant.
2
Réponses
15
Affichages
714
jeff1494
J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
512
job75
N
  • Résolu(e)
XL 2010 A partir d’un Shape, ouvrir un fichier dont l'adresse est sur une autre feuille dans une cellule
Réponses
4
Affichages
505
Nounours_59
N
S
  • Résolu(e)
XL 2016 copier des données d'une feuille à une autre selon critères et protection de la feuille 1
Réponses
6
Affichages
959
steph_29120
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…