Vba excel copier lignes avec condition

Résolu/Fermé
lulu37
Messages postés
76
Date d'inscription
jeudi 24 août 2006
Statut
Membre
Dernière intervention
8 avril 2016
- 4 sept. 2006 à 11:22
 Gpierron - 27 sept. 2017 à 15:38
Bonjour,
J'ai beau chercher, je ne trouve pas ...
J'ai 2 feuilles dans 1 classeur
Je souhaite copier chaque ligne de la feuille 1 qui contient une valeur dans la colonne C, vers la feuille 2
J'ai bien pensé aux filtres..., mais je préfererai un code qui permette de prendre en compte toutes les lignes meme si j'ai des filtres actifs sur la feuille

Avez vous la solution?
A voir également:

5 réponses

Armojax
Messages postés
1852
Date d'inscription
mercredi 19 janvier 2005
Statut
Membre
Dernière intervention
9 mars 2022
1 507
4 sept. 2006 à 14:22
Re, ludivine,

Une petite macro...
Sub FiltreLulu()

  Dim Lig     As Long
  Dim Col     As String
  Dim NbrLig  As Long
  Dim NumLig  As Long
  
  Sheets("Feuil2").Activate ' feuille de destination
  
  Col = "C"                 ' colonne de la donnée non vide à tester
  NumLig = 0
  With Sheets("Feuil1")     ' feuille source
  NbrLig = .Cells(65536, Col).End(xlUp).Row
  For Lig = 1 To NbrLig
    If .Cells(Lig, Col).Value <> "" Then
      .Cells(Lig, Col).EntireRow.Copy
      NumLig = NumLig + 1
      Cells(NumLig, 1).Select
      ActiveSheet.Paste
    End If
  Next
  End With
    
End Sub
24
lulu37
Messages postés
76
Date d'inscription
jeudi 24 août 2006
Statut
Membre
Dernière intervention
8 avril 2016
13
4 sept. 2006 à 15:25
Coucou

Ca échoue en fin de procédure :
Cells(NumLig, 1).Select
erreur exe 1004
Ca n'a apparemment rien à voir avec mes lignes d entete, j'ai testé sans (au cas où...j'ai 2 lignes d'entete sur chaque feuille)
0
Merci mille fois !
0