Encore moi et mon problème très DUR (trop dur pour moi)

[rpialat]

Bonjour,

Merci à tous pour vos réponses !!

Une autre question:

Sub extract()
Sheets("Portefeuille").Range("A1:H" & Sheets("Portefeuille").[A65000].End(xlUp).Row).Name = "base"
Range("base").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"H1:H2"), CopyToRange:=Range("A1:G1"), Unique:=False
End Sub


ça marche parfaitement, mais si je veux que l'on vienne copier la ligne à partir de la colonne B jusqu'à H comment je fais ??

J'ai essayé de changer "CopyToRange:=Range("A1:G1"), Unique:=False" et mettre "B1:H1) mais ça ne marche pas.

Est ce que qulequ'un peut m'aider .

Merci

Rodolphe

[Nad-Dan]

re,

Je t'ai proposé un code dans un fichier qui te fait ce que tu demandes à savoir que dès que tu mets "Won" en colonne H, les données sont placées automatiquement dans la feuille "Won"

Si tu veux faire cela entre B et H, dis moi où dans quelle colonne doit se trouver B dans ta feuille Won. En colonne A ou en colonne B ?

A te relire

Dan

[rpialat]

re,

Je t'ai proposé un code dans un fichier qui te fait ce que tu demandes à savoir que dès que tu mets "Won" en colonne H, les données sont placées automatiquement dans la feuille "Won"

Si tu veux faire cela entre B et H, dis moi où dans quelle colonne doit se trouver B dans ta feuille Won. En colonne A ou en colonne B ?

A te relire

Dan


En fait c'est parfait (dès qu'il y a won en colonne H, les données sont placées automatiquement dans la feuille "Won".

Ce que je voudrais c'est que les données viennent se placer en onglet "won" mais à partir de la colonne B jusqu'à I.

Merci .

Rodolphe

[Nad-Dan]

re,

remplace la macro "Transfert" par celle -ci après :

Code: Tout sélectionner

Sub Transfert()
'Macro par Dan le 16/04/08
Dim ligne As Integer
Dim feuille as string
Application.ScreenUpdating = False
feuille = ThisWorkbook.Sheets("Portefeuille").Name
With ThisWorkbook.Sheets("won")
    ligne = .Range("A65536").End(xlUp).Row + 1
            .Cells(ligne, 2) = Sheets(feuille).Range("A" & i)
            .Cells(ligne, 3) = Sheets(feuille).Range("B" & i)
            .Cells(ligne, 4) = Sheets(feuille).Range("C" & i)
            .Cells(ligne, 5) = Sheets(feuille).Range("D" & i)
            .Cells(ligne, 6) = Sheets(feuille).Range("E" & i)
            .Cells(ligne, 7) = Sheets(feuille).Range("F" & i)
            .Cells(ligne, 8) = Sheets(feuille).Range("G" & i)
End With
End Sub

Amicalement

Dan

[rpialat]

Sub Transfert()
'Macro par Dan le 16/04/08
Dim ligne As Integer
Dim feuille As String
Application.ScreenUpdating = False
feuille = ThisWorkbook.Sheets("Portefeuille").Name
With ThisWorkbook.Sheets("won")
ligne = .Range("A65536").End(xlUp).Row + 1
.Cells(ligne, 2) = Sheets(feuille).Range("A" & i)
.Cells(ligne, 3) = Sheets(feuille).Range("B" & i)
.Cells(ligne, 4) = Sheets(feuille).Range("C" & i)
.Cells(ligne, 5) = Sheets(feuille).Range("D" & i)
.Cells(ligne, 6) = Sheets(feuille).Range("E" & i)
.Cells(ligne, 7) = Sheets(feuille).Range("F" & i)
.Cells(ligne, = Sheets(feuille).Range("G" & i)
End With
End Sub


J'ai en fait un BUG qui survient à ce niveai là :
Cells(ligne, 2) = Sheets(feuille).Range("A" & i)

Si tu peux c'est super sinon t'embete pas, je voudrai pas trop vous déranger

cdlt

[Nad-Dan]

re,

Avant le sub Transfert tu as bien mis ces deux instructions ?

Option Explicit
Public i As Integer

Dan

Edit : n'oublie pas aussi de reprendre la macro que j'ai placée dans la feuille PORTEFEUILLE de mon premier fichier.