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:

Vba excel copier ligne vers autre feuille sous condition
Excel copier ligne vers autre feuille sous condition - Meilleures réponses
Copier ligne excel sous condition sans macro - Meilleures réponses
Aller à la ligne excel - Guide
Liste déroulante excel - Guide
Excel cellule couleur si condition texte - Guide
Dessin sms copier coller zizi ✓ - Forum Réseaux sociaux
Feuille de pointage excel - Télécharger - Tableur

5 réponses

Réponse 1 / 5

Armojax Messages postés 1858 Date d'inscription mercredi 19 janvier 2005 Statut Membre Dernière intervention 22 mars 2024 1 528
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

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)

Gpierron
27 sept. 2017 à 15:38

Merci mille fois !

Réponse 2 / 5

Armojax Messages postés 1858 Date d'inscription mercredi 19 janvier 2005 Statut Membre Dernière intervention 22 mars 2024 1 528
4 sept. 2006 à 15:46

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

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 à 16:53

et voui...

lulu37 Messages postés 76 Date d'inscription jeudi 24 août 2006 Statut Membre Dernière intervention 8 avril 2016 13
5 sept. 2006 à 16:03

et la procédure est arrêtée sur la sélection de la 2eme ligne de la feuille 1 (source données)

Réponse 3 / 5

Armojax Messages postés 1858 Date d'inscription mercredi 19 janvier 2005 Statut Membre Dernière intervention 22 mars 2024 1 528
6 sept. 2006 à 08:26

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...

lulu37 Messages postés 76 Date d'inscription jeudi 24 août 2006 Statut Membre Dernière intervention 8 avril 2016 13
11 sept. 2006 à 16:49

Salut,
Finalement ça marche bien, je n'avais pas du adapter les paramètres comme il fallait... en tout cas merci Armojax

pour ceux que ca interesse , le code final :

  
  Dim Lig     As Long
  Dim Col     As String
  Dim NbrLig  As Long
  Dim NumLig  As Long
  
  Sheets("feuil2").Activate ' feuille de destination
  
  Col = "i"                 ' colonne données non vides à tester'
  NumLig = 2          'alors là ca doit etre le N° de la 1er ligne de données en comptant la ligne 1 = 0 .... ? '
  With Sheets("feuil1")     ' feuille source'
  NbrLig = .Cells(65536, Col).End(xlUp).Row
  For Lig = 3 To NbrLig             'n° de la 1ere ligne de données'
    If .Cells(Lig, Col).Value <> "" Then
      .Cells(Lig, Col).EntireRow.Copy
      NumLig = NumLig + 1
      Sheets("feuil2").Cells(NumLig, 1).Insert Shift:=xlDown
            'ici pour insérer ou  .Paste pour coller' 
    End If
  Next
  End With

kifsyl > lulu37 Messages postés 76 Date d'inscription jeudi 24 août 2006 Statut Membre Dernière intervention 8 avril 2016
4 avril 2008 à 00:42

bonsoir je suis novice en vba et si tu pouvait m 'eclairer sur ton code ca marrangerait bien.

Voila les modification que j'ai essaiyé de faire sur ton code mais ca ne marche pas.

Dim Lig As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long

Sheets("feuil15").Activate ' feuille de destination

""""" Col = "g" ' colonne données non vides à tester'
NumLig = 0 'alors là ca doit etre le N° de la 1er ligne de données en comptant la ligne 1 = 0 .... ? '
""""" With Sheets("feuil11") ' feuille source'
NbrLig = .Cells(65536, Col).End(xlUp).Row
"""""" For Lig = 1 To NbrLig 'n° de la 1ere ligne de données'
If .Cells(Lig, Col).Value <> "" Then
.Cells(Lig, Col).EntireRow.Copy
NumLig = NumLig + 1
""""" Sheets("feuil15").Cells(NumLig, 1).Insert Shift:=xlDown
'ici pour insérer ou .Paste pour coller'
End If
Next
End With

Ca me donne " proprieté ou methode non gereé par cette objet"
Je nai que 415 ligne a verifier ,et ne pas copier la ligne entire jusqu'a la col. H .
Voila j'espere que tu va s t'en sortir et merci d'avance..

lulu37 Messages postés 76 Date d'inscription jeudi 24 août 2006 Statut Membre Dernière intervention 8 avril 2016 13
11 sept. 2006 à 17:01

au fait, j suis qd meme obligée d enlever mes filtres, mais ca tourne qd meme
ciao

Discussions similaires

boucle copier coller ligne vers une feuille si condition valeur

Copier ligne(s) sous condition dans une autre feuille

Boucle copie-colle ligne avec condition de valeur d'une cellule

macro copier ligne dans autre onglet si condition

Extraction de ligne dans nouvelle feuille selon critère

Formule pour copier une ligne sous condition??

Discussions similaires

Newsletters