XL 2013 transfert de ligne vers autre feuille

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

  • essaie ligne x.xlsm
    436.7 KB · Affichages: 30
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
Staple1600

Staple1600

XLDnaute Barbatruc
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
O

Optimal

XLDnaute Junior
@Staple1600

Pouuuuaaaahhhh ! Suis malade pour le restant de la semaine ! :)

Tiens donc ..

wir.skyrock.net.jpg
 
Vote positif 0 Vote négatif

Discussions similaires

chaelie2015
  • Résolu(e)
XL 2013 (RESOLU) Copier Colonne vers ligne
Réponses
6
Affichages
133
chaelie2015
chaelie2015
G
  • Résolu(e)
Microsoft 365 Copie d'une ligne vers une autre feuille VBA
Réponses
4
Affichages
484
Dranreb
Dranreb
O
  • Résolu(e)
XL 2016 Transfert de données sous conditions
Réponses
4
Affichages
199
sylvanu
sylvanu
G
  • Question
Microsoft 365 Saut de ligne dans une cellule
Réponses
3
Affichages
158
GClaire
G
chaelie2015
  • Résolu(e)
XL 2013 (RESOLU) Automatisation Copie Lignes Feuilles selon leurs nom
Réponses
10
Affichages
247
chaelie2015
chaelie2015
M
  • Question
Microsoft 365 Impression et transfert de donné.
Réponses
5
Affichages
211
manga419
M
F
  • Résolu(e)
Microsoft 365 Copier juste couleur cellule.
Réponses
7
Affichages
311
Francky79
F
N
  • Résolu(e)
Microsoft 365 Copie de données d'une feuille à une autre
Réponses
4
Affichages
190
Cousinhub
Cousinhub
J
  • Résolu(e)
XL 2016 Validation d'une ligne et transfert de la ligne vers un autre classeur
Réponses
8
Affichages
220
job75
job75
misteryann
  • Question
XL 2016 Transfert lignes non vides d'une feuille vers une autre
Réponses
8
Affichages
542
sylvanu
sylvanu

Membres actuellement en ligne

11 membres et 82 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 279
Messages
2 086 722
Membres
103 378
dernier inscrit
phdrouart