Export données différentes colonnes dans une autre feuille

Bonjour le forum,

Et merci d'avance à l'attention que vous voudrez bien accorder à ma demande.

Je voudrais exporter les données de trois colonnes contigües - F à H - dans une autre feuille.

Pour me donner un embryon de code, j'ai utilisé l'enregistreur de macro :

• Sheets("Liste").Select
  Range("F3:H65536").Select

(oui, oui, j'ai sélectionné TOUTES les lignes jusqu'en bas de la colonne)

Est-ce que je dois utiliser le code de type

Range("F3").End(xlDown).Row

Mais dans ce cas, comment puis-je lui indiquer que je veux obtenir les données des trois colonnes ?

Ah ? vous aviez remarqué que j'étais débutante ?

Merci d'avance.

Gwen

Bonjour et bienvenue,

voici un exemple

Sub copie()
Set wss = Worksheets("liste") ' source
Set wsc = Worksheets("copie")' cible
' dls dernière ligne de la colonne F contenant des données
dls = wss.Range("F3" & wss.Rows.Count).End(xlUp).Row
' on copie F3 à H xx vers A1
wss.Range("F3:H" & dls).Copy wsc.Range("A1")

End Sub

Merci h2s04 pour ta réponse

Quand j'ai testé la macro, j'ai eu un message d'erreur et le code suivant

dls = wss.Range("F3" & wss.Rows.Count).End(xlUp).Row

était surligné. Comment puis-je y remédier ?

Merci de ton implication.

Gwen

Bonjour,

Essaies:

dls = wss.Range("F3" & Rows.Count).End(xlUp).Row

Cdlt

Re,

Ou:

Sub copie()
Set wss = Worksheets("liste") ' source
Set wsc = Worksheets("copie")' cible
' dls dernière ligne de la colonne F contenant des données
With wss
dls =.Range("F3" &Rows.Count).End(xlUp).Row
' on copie F3 à H xx vers A1
.Range("F3:H" & dls).Copy wsc.Range("A1")
End with

End Sub

Bonjour Jean-Eric

Merci de ta réponse. Mais malheureusement j'ai le même problème. Toujours l'erreur sur la partie de code, même avec ta correction.

dls = wss.Range("F3" & Rows.Count).End(xlUp).Row

Si la solution n'est pas trouvée, ce n'est pas grave. Je me contenterais de sélectionner toutes les lignes

Gwen

Re,

Option Explicit
Sub copie()
Dim Wss As Worksheet, Wsc As Worksheet
Dim dls As Long
    Application.ScreenUpdating = False
    Set Wss = Worksheets("liste") ' source
    Set Wsc = Worksheets("copie") ' cible
    ' dls dernière ligne de la colonne F contenant des données
    With Wss
        dls = .Range("F" & Rows.Count).End(xlUp).Row
        ' on copie F3 à H xx vers A1
        .Range("F3:H" & dls).Copy Destination:=Wsc.Range("A1")
    End With
Set Wss = Nothing: Set Wsc = Nothing
End Sub

tsikoudia91 a écrit :

Merci h2s04 pour ta réponse

Quand j'ai testé la macro, j'ai eu un message d'erreur et le code suivant

dls = wss.Range("F3" & wss.Rows.Count).End(xlUp).Row

était surligné. Comment puis-je y remédier ?

Merci de ton implication.

Gwen

bonjour

effectivement il y a un 3 qui est resté collé, là où il ne devait pas, tu as la correction via jean-Eric

Sub copie()
Set wss = Worksheets("liste") ' source
Set wsc = Worksheets("copie")' cible
' dls dernière ligne de la colonne F contenant des données
dls = wss.Range("F" & wss.Rows.Count).End(xlUp).Row
' on copie F3 à H xx vers A1
wss.Range("F3:H" & dls).Copy wsc.Range("A1")

End Sub

merci à vous deux,

(désolée pour la réponse tardive)

De mon côté, j'avais trouvé un code, mais beaucoup -beaucoup trop?- simple.

Sheets("Sheet1").Select 'sélection dans la feuille 1 des colonnes F à H à partir de la 3ème ligne
Range("F3:H3").Select
Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy

Sheets("Sheet2"). Select 'Copie dans la feuille 2 à partir de la 2ème ligne des colonnes de A à C
    Range("A2:C2").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

... et j'ai cliqué trop rapidement ! (mode blonde)....

Merci à vous.

Gwen