Vba excel copier lignes avec condition
Résolu
lulu37
Messages postés
76
Date d'inscription
Statut
Membre
Dernière intervention
-
Gpierron -
Gpierron -
A voir également:
- Vba excel copier ligne vers autre feuille sous condition
- Copier ligne excel sous condition sans macro - Meilleures réponses
- Excel copier ligne vers autre feuille sous condition - Meilleures réponses
- Excel cellule couleur si condition texte - Guide
- Aller à la ligne excel - Guide
- Liste déroulante excel - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Partager photos en ligne - Guide
5 réponses
Re, ludivine,
Une petite macro...
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
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)