XL 2013 transfert de ligne vers autre feuille

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion gena
  • 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
G

gena

XLDnaute Occasionnel
BONJOUR LE FORUM

je recherche par un macro comment copier des lignes qui aurais un X en colonne O et qui serais copier dans la feuille résultats

mais sans effacer celle de la base de données global

avec tout mes remerciements
 

Pièces jointes

Solution
O
Bonsoir gena

Code à copier dans un module.

VB: 
Sub Copie_Ligne()
  Dim Lig     As Long
  Dim Col     As String
  Dim NbrLig  As Long
  Dim NumLig  As Long
 
  Sheets("BaseDeDonnéesGlobal").Activate
 
  Col = "o"
  NumLig = 2
  With Sheets("BaseDeDonnéesGlobal")
  NbrLig = .Cells(65536, Col).End(xlUp).Row
  For Lig = 3 To NbrLig
    If .Cells(Lig, Col).Value = "X" Then
      .Cells(Lig, Col).EntireRow.Copy
      NumLig = NumLig + 1
      Sheets("resultats").Cells(NumLig, 1).Insert Shift:=xlDown
          
    End If
  Next
  End With
End Sub
Trier par date Trier par votes
Bonjour job75 😉

[aparté]
Mea culpa
J'aurai du télécharger le fichier exemple du message#1
Ce qui m'aurait permis de voir qu'il y avait un ListObject.
[/aparté]
Heureusement, job75 est passé par là.
Donc pour une solution avec filtre automatique et ListObject, c'est sa syntaxe qu'il faut prendre.
 
Vote positif 0 Vote négatif
@Staple1600

Pouuuuaaaahhhh ! Suis malade pour le restant de la semaine ! 🙂

Tiens donc ..

wir.skyrock.net.jpg
 
Vote positif 0 Vote négatif
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

DAVID-44-
  • Question Question
Microsoft 365 Effacer (et non supprimer) une ligne suivant texte.
Réponses
6
Affichages
299
DAVID-44-
DAVID-44-
Z
  • Question Question
XL 2016 Automatisation transfert données dans un autre fichier
Réponses
1
Affichages
169
C'est papy Mougeot !
C'est papy Mougeot !
ExcelDow
  • Résolu(e)
Microsoft 365 Modifier un code copie donnée chaque feuil séparément
Réponses
11
Affichages
311
ExcelDow
ExcelDow
flc13090
  • Résolu(e)
XL 2019 Problème de copie de plages non contiguës vers une autre feuille en VBA
Réponses
9
Affichages
294
flc13090
flc13090
M
  • Question Question
XL 2016 pb création de tableau par macro
Réponses
10
Affichages
272
ChTi160
ChTi160
S
  • Question Question
XL 2013 Copier automatiquement des données dans plusieurs onglets
Réponses
4
Affichages
476
Phil69970
Phil69970
J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
617
Piment
P
F
  • Question Question
Autres Déplacer la ligne vers la zone de liste et la feuille
Réponses
6
Affichages
227
job75
job75
D
  • Résolu(e)
Microsoft 365 récupérer des données d'une feuille excel d'un classeur A pour les incrémenter automatiquement sur le classeur B
Réponses
10
Affichages
291
TooFatBoy
TooFatBoy
fenec
  • Résolu(e)
XL 2021 Copier une plage de données d'après un critère en VBA
2
Réponses
26
Affichages
816
oguruma
oguruma
richardlion
  • Question Question
XL 2016 copie de donnees horizontale en verticale
2
Réponses
25
Affichages
693
job75
job75
lcouaci
  • Résolu(e)
Microsoft 365 Recherche sur plusieurs Feuilles
2
Réponses
18
Affichages
497
lcouaci
lcouaci
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
317
Yogean
Y
C
  • Question Question
XL 2016 récupérer la mise en forme d'une cellule vers une autre cellule
Réponses
1
Affichages
419
TooFatBoy
TooFatBoy
N
  • Résolu(e)
XL 2019 Macro pour copier ligne avec case à cocher liée
Réponses
12
Affichages
397
Phil69970
Phil69970
Titof06
  • Résolu(e)
XL 2019 Erreur de Type à la ligne 5581
Réponses
5
Affichages
206
Titof06
Titof06
F
  • Question Question
Autres Récupération de données d'une feuille X en fonction de la valeur de cellule dans une collone d'une feuille Y
2
Réponses
27
Affichages
1 K
fanfan38
fanfan38
pascal21
  • Question Question
Microsoft 365 ajouter une formule dans une ligne de code
Réponses
5
Affichages
230
Dranreb
Dranreb
D
  • Résolu(e)
Microsoft 365 Assistance pour optimisation d'un code VBA qui ne fonctionne pas comme souhaité
2
Réponses
21
Affichages
708
desto
D
Jiheme
  • Question Question
XL 2019 Macro bloque en court de travail
Réponses
4
Affichages
257
fanch55
fanch55
Retour