vba excel copier lignes avec condition Résolu

Question

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

Configuration: excel97 vba6 sous windows

Avez vous la solution?

Armojax · Accepted Answer

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

JF · Answer

ce que je ferai:
'début
-stocker le filtre actuel de la feuille 1 dans une var
-filtrer le feuille 1 pour qu'elle ne contienne que les lignes avec valeur non null dans la colonne C.
-copier la feuille 1 entière dans la feuille 2
-appliquer le filtre sauvegardé auparavant

et c'est terminé (c'est ce qu'il y a de plus simple)

Armojax · Answer

Hmm... bizarre.Tu as bien adapté les 3 paramètres : nom de la feuille source, nom de la feuille de destination, colonne à tester ?

Armojax · Answer

Désolé, j'étais pas là hier...
A distance c'est un peu dur... Analyse toi-même le contexte. Quand ça plante, et que tu as la ligne surlignée en jaune, n'arrête pas tout, et analyse le contexte :

1) Affiche la fenêtre des Variables locales, et regarde les valeurs des variables. Pour que ça plante sur un Select, le NumLig a peut-être une gueule bizarre...

2) Affiche aussi la fenêtre Exécution. Tu peux y taper des commandes. Par exemple, demander quelle est la feuille active, en faisant Print ActiveSheet.Name, etc. (tu peux taper un ? à la place de Print, ça fait pareil).

Un peu bestialement, j'analyse toutes les lignes de la feuille source, y compris les lignes d'entête. Tu peux modifier ça en changeant la ligne de départ dans le For... Et de la même façon, j'écris à partir de la première ligne de la feuille de destination. Si tu as des entêtes, augmente d'autant la valeur initiale de NumLig. Et il faudrait sans doute, avant tout ça, effacer dans la feuille de destination les lignes du résultat précédent. C'est juste un modèle, qu'il faut adapter...

momo · Answer

J'ai 6 feuilles dans un classeur, je souhaiterai copier les lignes des feuilles 1à 5 de la colonne I dans les lignes de la feuille 6 colonneF
              F1: 62 lignes    colonne C
              F2: 47 lignes    colonne C
              F3: 43 lignes    colonne C       vers lignes de la feuille 6 colonne F (feuille 6: 232 lignes).
              F4: 32 lignes    colonne C
              F5: 43 lignes    colonne C

Vba excel copier lignes avec condition

5 réponses

Discussions similaires

Newsletters