index de colonne variable en vba

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:

---

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.

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:

---

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

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

Code:

---

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

---

Cela fonctionne très bien.
Merci à vous deux