[VBA-Excel] copier plusieurs fois une colonne dans une feuille Excel

Bonjour tt le monde

j'aimerais faire un programme qui demande à l'utilisateur le nombre de fois qu'il veut copier une même colonne (par exemple la colonne a b c) dans la colonne C dans une feuille Excel.

Pour cela, je dois créer une variable colonne qui a les valeur a b c

Code:

---

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

Sub CopierPlusieursFoisUneColonne() Dim i As interger Dim NUM As Integer Dim DernièreLigneNonVide NUM = InputBox("Combien de fois voulez-vous copier la colonne abc ?", "Titre") For i = 1 To NUM Column = a b c DernièreLigneNonVide = Range("C65535").End(xlUp).Row Cells(DernièreLigneNonVide + 1, 3).Paste (la colonne a b c) Next End Sub

---

je n'arrive pas à trouver le bon code

merci de m'aider - Ash

Citation:

---

Envoyé par Ashley

j'aimerais faire un programme qui demande à l'utilisateur le nombre de fois qu'il veut copier une même colonne (par exemple la colonne a b c) dans la colonne C dans une feuille Excel.

---

C'est quoi, la colonne a b c???
Je connais les colonnes a, b et c.

Faudra essayer d'être un peu plus clair si tu veux des réponses.

Ouep comme te le dis alaintech, tu ne peux pas définir a b c comme nom de colonne, d'ailleurs ça ne signifie rien du tt...
De plus

Code:

---

column= a b c

---

a encore moins de signification

Si tu veux définir des variables objets utilise Set
Par exemple si tu veux donner un nom à la colonne "A", utilise :

Code:

---

set rgColonne=worksheets(1).range("A:A")

---

Je ne penses pas qu'il soit très malin de vouloir nommer à la base une colonne entière , donne plutôt un nom à la première cellule genre "Nom1", puis utilise

Code:

---

set rgColonne=worksheets(1).range("nom1").entirecolumn

---

J'espère que ça te guidera un peu

excusez je me suis trop mal expliqué.

en fait, j'aimerais faire un programme qui demande à l'utilisateur le nombre de fois qu'il veut copier les éléments (des nombres entiers) 15 74 954 les un en dessous des autres dans une même colonne (par exemple la colonne C) d'une feuille Excel.

par exemple si l'utilisateur entre 4 on aura en colonne dans la colone C :

15
74
954
15
74
954
15
74
954

je voudrais donc créer une variable qui prenne les éléments 15 74 et 954

pour pouvoir faire tourner ce prog

Code:

---

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

Sub CopierPlusieursFoisUneColonne()   Dim i As interger Dim NUM As Integer Dim DernièreLigneNonVide   NUM = InputBox("Combien de fois voulez-vous copier la colonne abc ?", "Titre")   For i = 1 To NUM     DernièreLigneNonVide = Range("C65535").End(xlUp).Row   Cells(DernièreLigneNonVide + 1, 3).Paste (??? je sais pas quoi)     Next   End Sub

---

oulllla encore excuse :
une faute c pas 4 c 3

excusez je me suis trop mal expliqué.

en fait, j'aimerais faire un programme qui demande à l'utilisateur le nombre de fois qu'il veut copier les éléments (des nombres entiers) 15 74 954 les un en dessous des autres dans une même colonne (par exemple la colonne C) d'une feuille Excel.

par exemple si l'utilisateur entre 3 on aura en colonne dans la colone C :

15
74
954
15
74
954
15
74
954

je voudrais donc créer une variable qui prenne les éléments 15 74 et 954

pour pouvoir faire tourner ce prog

Code:

---

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

Sub CopierPlusieursFoisUneColonne()   Dim i As interger Dim NUM As Integer Dim DernièreLigneNonVide   NUM = InputBox("Combien de fois voulez-vous copier la colonne abc ?", "Titre")   For i = 1 To NUM     DernièreLigneNonVide = Range("C65535").End(xlUp).Row   Cells(DernièreLigneNonVide + 1, 3).Paste (??? je sais pas quoi)     Next   End Sub

---

en fait, c'est un nombre de lignes que tu veux copier, non pas une colonne complète...

dans ce cas utilise Range("<col1><lig1>:<col2><lig2>")
choisis ta colonne sur le paramètre col1 et col2 (le même si tu n'as qu'une colonne) et choisis la plage de lig1 à lig2 pour ne prendre que les lignes voulues.

Je comprend pas :(
:cry:

en gros dynamise le range pour selectionner la plage voulue.

par exemple si on veut déclarer la variable i en tant que entier on écrit :

Code:

---

dim i as integer

---

après on peut lui affecter une valeur, par exemple 7

Code:

---

i=7

---

mais si on veut déclarer une variable en tant que vecteur, par exemple un vecteur prenant les valeur [15 74 954]

comment peut on faire?

en fait c'est ça mon vrai problème

bonjour

tu peux essayer

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub CopierPlusieursFoisUneColonne() Dim i As Integer Dim NUM As Integer Dim DernièreLigneNonVide As Integer   NUM = InputBox("Combien de fois voulez-vous copier ?", "Titre")   For i = 1 To NUM DernièreLigneNonVide = Range("C65535").End(xlUp).Row   Cells(DernièreLigneNonVide + 1, 3) = 15 Cells(DernièreLigneNonVide + 2, 3) = 74 Cells(DernièreLigneNonVide + 3, 3) = 954 Next End Sub

---

bon apres midi
michel

oki c cool
merci à tous de m'avoir aider.

derniere question - si à la place de 15 on met 2B - sa ne marche pas : comment remédier à ce problème?

ash.

Petit complèment pour répondre à une de tes interrogations, si tu veux créer un vecteur ou une matrice, tu dois en fait définir un tableau de la manière suivante :

Code:

---

dim tabTonTableau() as single

---

Permet de déclarer le tableau ainsis que le type de données qu'il va contenir

Code:

---

redim tabTonTableau(1 to max1,1 to max2,1 to ...)

---

Permet de redimensionner ton tableau aux dimensions voulues (ànoter que cela réinitialise les valeurs du tableau, utilise Preserve si tu veux conserver les valeurs précédentes)

Code:

---

1 2 3 4 5

for i=ubound(tabTonTableau,1)to ubound(tabTonTableau,1) for j=ubound(tabTonTableau,2)to ubound(tabTonTableau,2) tabtontableau(i,j, ...)=... next j next i

---

Rentre les valeurs dans ton tableau

A noter que j'ai tout détaillé pour que tu vois différentes commandes s'appliquant aux tableaux (ubound,lbound...)
Il y a d'autres manière de créer des tableaux mais celle-là est pratique

rebonjour

peux tu préciser ce que tu veux dire par

Citation:

---

si à la place de 15 on met 2B - sa ne marche pas

---

en attendant tu peux tester

Code:

---

Cells(DernièreLigneNonVide + 1, 3) = "2B"

---

merci pour les complémens conconbrr

je pense qu'il y a une erreur de syntaxe non

Code:

---

1 2 3 4 5

for i=lbound(tabTonTableau,1)to ubound(tabTonTableau,1) for j=lbound(tabTonTableau,2)to ubound(tabTonTableau,2) tabtontableau(i,j, ...)=... next j next i

---

Effectivement ;) désolé ... La fatigue sûrement :P