macro rechercher et copier

[gerardd3617]

bonsoir
j'ai récupéré une formule qui marche tres bien ,mais, au lieu de copier la ligne tout entière j'aimerais copier les lignes de A à AO
merci a vous tous

Sub Octo()
'
' Octo Macro
' Macro enregistrée le 30/08/2009 par gege
'
Dim Lig As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long

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

Col = "G" ' colonne à tester
NumLig = 15 'laisse x ligne vide en haut
With Sheets("OCT") ' feuille source
NbrLig = .Cells(315, Col).End(xlUp).Row 'DERNIERE lignes à verifier
For Lig = 4 To NbrLig 'premiere ligne à chercher
If .Cells(Lig, Col).Value > 0 Then 'CRITERE
.Cells(Lig, Col).EntireRow.Copy
NumLig = NumLig + 1
Cells(NumLig, 1).Select
ActiveSheet.

 

[bertrand1202]

Re : macro rechercher et copier

Bonsoir


If .Cells(Lig, Col).Value > 0 Then 'CRITERE
.Cells(Lig, Col).EntireRow.Copy


Je mettrais

.cells(Lig,41)entire.row.copy

car de AàZ =26
de AA à AO=15

Bonne soirée

 

[gerardd3617]

Re : macro rechercher et copier

merci bertrand, mais aucun changement😎

 

[bertrand1202]

Re : macro rechercher et copier

Rebonsoir

et si au lieu de entire.row ;ol s'agissait de .row

ou cells(Lig,41).copy

@+

 

[gerardd3617]

Re : macro rechercher et copier

avec
cells(Lig,41).copy
je n'ai que la colonne 41 de copié

 

[bertrand1202]

Re : macro rechercher et copier

Désolé

je n'avais pas pensé à mettre un compteur pour Col

i=1 to 45

Cells(Lig,Col(i))

@+

 

[gerardd3617]

Re : macro rechercher et copier

desolé Bertrand,
mais peux tu m'ecrire la ligne exacte car je suis debutant et j'ai une erreur
merci

 

[bertrand1202]

Re : macro rechercher et copier

Re


Au debut

Dim i as integer

For i =1 to 45

procedure et tu mets les cells5Lig, Col(i)

 

[gerardd3617]

Re : macro rechercher et copier

super
merci Bernard