Discussion :

[Bpillon]

Bonjour à toutes et à tous,
Je désire copier des données venant d'un fichier et la colonne où se trouvent les infos est variable,ansi que la drn ligne du tableau (fonction du mois d'analyse). Je pensais que celà pouvait fonctionner avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
mois_imp = ActiveCell.Value
col = mois_imp + 2
Range("b3:b150").Select
    Selection.Find(What:="").Activate
    drnligne = ActiveCell.Row - 1
Range(Columns(col) & "3:" & Columns(col) & Rows(drnligne)).Select
Selection.Copy

He bin non !!
Qqun a une solution ?
Merci beaucoup.

[pgz]

Bonsoir.

A mon avis, ce qui est franchement erroné, c'est la ligne qui emploie les Columns(col), ce qui renvoie un range et pas la lettre que tu cherches à écrire.

Perso, je n'aime pas toutes ces sélections, ni l'emploi de Range ou Cells sans préciser l'objet parent.

Mais bon, en restant dans ce style, tu peux essayer (je n'ai pas testé)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
mois_imp = ActiveCell.Value
col = mois_imp + 2
 
derligne = Range("B3").End(xlDown).Row
Range(Cells(3, col), Cells(derligne, col)).Copy

Après je ne sais pas ce que tu veux faire de cette copie dans le presse-papier, mais il y a de fortes chances qu'il y ait une façon de copier plus directe et plus rapide.

Cordialement,

PGZ

[mercatog]

un exemple à adapter (copie entre 2 feuilles d'un même classeur)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim Mois_Imp As Integer
 
With Sheets("Feuil1")
    Mois_Imp = .Range("A1").Value
    .Range(.Cells(3, Mois_Imp + 2), .Cells(.Rows.Count, Mois_Imp + 2).End(xlUp)).Copy Sheets("Feuil2").Range("A1")
End With

[Bpillon]

Cela fonctionne très bien.
Merci à vous deux