[VBA] Selection/copie colonne en fct de X

Bonjour

Débutant en VBA je souhaiterais savoir comment selectionner la colonne numéro "X" sachant que ce numéro "X" sera contenu dans la cellule A1 de ma feuille numéro ( nomé "feuil1")

J'ai essayé quelque chose (voir le code plus bas) mais s'en grand succés.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub copiecolonne() Dim NumVar As Integer   'Saisie au clavier du numero de la colonne à copier 'Enregistrement du numero de la colonne dans la variable "NumVAr"   NumVAr = Workbooks("Classeur2").Sheets("Feuil1").Range("A1").Value   'Copie de la colonne NumVar Workbooks("Classeur2").Sheets("Feuil2").Numvar.colonn.Copy Worksheets("Feuil1").Range("A2") EndSub

---

Voila merci pour vos futur réponses
Amicalement Henri

Salut n0vocaine et le forum
Pas sûr de tout comprendre :

Code:

---

1 2 3 4 5

Sub copiecolonne()   With Workbooks("Classeur2").Sheets("Feuil1") .Columns(.range("A1"))Copy Worksheets("Feuil1").Range("A1") End Sub

---

Copier la colonne de Classeur2/Feuille1 sur la colonne A du classeur actif/feuille1.

Mais si tu expliquais ce que tu veux réellement faire, ce serait, sans doute, plus facile.
A+

#1 Désolé pour le temps de réponse

Alors voila j'ai fais un tuto en image pour expliquer:
image 1
image 2
image 3
image 4

Salut,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub test()   Dim temp As Long Dim temp2 As Long   temp = 0 temp2 = 0   temp = Worksheets("Feuil1").Range("A1").Value Worksheets("Feuil2").Activate Range(Cells(1, temp), Cells(Cells(65536, temp).End(xlUp).Row, temp)).Copy temp2 = Cells(65536, temp).End(xlUp).Row Worksheets("Feuil1").Activate Range("A2", "A" & temp2 + 1).Activate ActiveSheet.Paste   Application.CutCopyMode = False   End Sub

---

Voici un petit bidouillage fonctionnel.

Bonne chance pour la suite !

Je viens de tester ton code mais celui-ci ne marche pas et pire il me fait "frizze" la fenetre macro.

Bizarre, cela marche correctement chez moi.

Combien de lignes as-tu dans ta colonne à copier ?

Essaie de mettre un

Code:

---

Application.ScreenUpdating = False

---

au début de ton code et un

Code:

---

Application.ScreenUpdating = True

---

à la fin.

Merci Dead46 #4

Autant pour moi le plantage vient du fait que j'avais renomé ma feuille de calcul mais c'est bon ton code marche.

Il y jsute quelque chose c'est que la mise a jour ne se fait pas automatiquement je voudrais que des que ej tape un nouveau chiffre dans la cellule A il me copie la colonne s'en que j'ai besoin de relancer la macro.

En tout cas merci beaucoup pour ta reponse.

Bonjour,

Il te suffit de mettre la macro dans

Code:

---

1 2 3

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)   End Sub

---

avec peut-être une condition sur la cellule en question.

A+