Discussion :

[n0vocaine]

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 :

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

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

[Gorfael]

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

Code :

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

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+

[n0vocaine]

#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

[DeaD78]

Salut,

Code :

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

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 !