Copie ligne vers autre classeur Exel VB

pgillou Messages postés 49 Date d'inscription Statut Membre Dernière intervention -
pgillou Messages postés 49 Date d'inscription Statut Membre Dernière intervention - 24 août 2010 à 15:57

Bonjour à tous,

Débutant en vb ,j'ai besoin d'aide pour adapter le code ci-dessous.Il permet de copier des lignes répondant à un si vers une autre feuille dans un même classeur exel.Je souhaiterai les envoyé vers un autre classeur.

J'ai essayé avec :

Windows("classeur2.xls").Activate
et
WorkBooks("classeur2.xls").Activate

sans succès.

Merci de votre aide,

Code:

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 = "lol" Then
.Cells(Lig, Col).EntireRow.Copy
NumLig = NumLig + 1
Cells(NumLig, 1).Select
ActiveSheet.Paste
End If
Next
End With

End Sub

A voir également:

Copie ligne vers autre classeur Exel VB
Copie cachée - Guide
Partager photos en ligne - Guide
Copie écran samsung - Guide
Copie disque dur - Guide
Mètre en ligne - Guide

1 réponse

Réponse 1 / 1

pgillou Messages postés 49 Date d'inscription Statut Membre Dernière intervention 1

CI-joint mon auto réponse pour ceux que ça intéresse:

Sub MaMacro()
Dim Lig As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long

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

Col = "C" ' colonne de la donnée non vide à tester
NumLig = 0
With Workbooks("Classeur2.xls").Worksheets("Feuil1") ' feuille source
NbrLig = .Cells(65536, Col).End(xlUp).Row
For Lig = 1 To NbrLig
If .Cells(Lig, Col).Value = "lol" Then
.Cells(Lig, Col).EntireRow.Copy
NumLig = NumLig + 1
Cells(NumLig, 1).Select
ActiveSheet.Paste
End If
Next
End With

End Sub

Discussions similaires

Copier un lien instagram

Que veut dire "correspondant occupé" lors d'un appel ?

Colis en cours de transport vers votre site de livraison ?

Votre réponse

Discussions similaires