Discussion :

[jfcjfc]

Bonjour,
fichier joint pour plus d'explication.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim a, b, c, d, e, f As Integer
a = 1
b = 1
c = 14
d = 20
e = 3
f = 2
Sheets("Feuil1").Select
Range(Cells(a, b), Cells(c, d)).Copy
Sheets("Feuil2").Select
Cells(e, f).Select
SELECTION.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Serait-il possible que le "coller" se fasse sous la forme d'un autre tableau,
je précise que la longueur du tableau à copier peut varier.
En résumé, je voudrai copier la ("Feuil1") ou les N° occupent des lignes continues de 20N° sur la ("Feuil2") ou les N° occupent un tableau avec des lignes de 70N°.
Dans la ("Feuil2") chaque N° doit être mis dans sa ligne et colonne respective.

Fichier joint pour plus de compréhension.
Dans l'attente un grand merci !
cordialement

Ps: étant donné mon niveau assez faible en VBA, je souhaiterai que la forme d'écriture du code que vous m'enverrez, soit le plus ressemblant aux lignes plus haut.

[a_diard]

Bonjour

ci dessous un code qui donne le résultat demande

Sub copiecoller()

Code :

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

1
2
3
4
5
6
7
8
 
Sheets("Feuil2").Range(Cells(3, 2), Cells(16, 71)).ClearContents
For ligne = 1 To 14
For colonne = 1 To 20
Sheets("Feuil2").Cells(ligne + 2, Sheets("Feuil1").Cells(ligne, colonne).Value + 1).Value = Sheets("Feuil1").Cells(ligne, colonne).Value
Next
Next
End Sub

Si les tableaux evoluent, il faudrait le modifier avec des variables.

[a_diard]

Petite variante en utilisant une variable tableau

ceci permet de copier les valeurs en une seule fois dans la feuille excel.

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
20
21
 
Option Explicit
Option Base 1
 
 
Sub copiecollertableau()
 
Dim tableau(14, 70)
Dim ligne As Integer
Dim colonne As Integer
Dim colonnedestination As Integer
 
For ligne = 1 To 14
 
For colonne = 1 To 20
colonnedestination = Sheets("Feuil1").Cells(ligne, colonne).Value
tableau(ligne, colonnedestination) = Sheets("Feuil1").Cells(ligne, colonne).Value
Next
Next
Sheets("Feuil2").Range("B3:BS16") = tableau
End Sub

[jfcjfc]

Bonjour

ci dessous un code qui donne le résultat demande

Sub copiecoller()

Code :

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

1
2
3
4
5
6
7
8
 
Sheets("Feuil2").Range(Cells(3, 2), Cells(16, 71)).ClearContents
For ligne = 1 To 14
For colonne = 1 To 20
Sheets("Feuil2").Cells(ligne + 2, Sheets("Feuil1").Cells(ligne, colonne).Value + 1).Value = Sheets("Feuil1").Cells(ligne, colonne).Value
Next
Next
End Sub

Si les tableaux evoluent, il faudrait le modifier avec des variables.

[jfcjfc]

Petite variante en utilisant une variable tableau

ceci permet de copier les valeurs en une seule fois dans la feuille excel.

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
20
21
 
Option Explicit
Option Base 1
 
 
Sub copiecollertableau()
 
Dim tableau(14, 70)
Dim ligne As Integer
Dim colonne As Integer
Dim colonnedestination As Integer
 
For ligne = 1 To 14
 
For colonne = 1 To 20
colonnedestination = Sheets("Feuil1").Cells(ligne, colonne).Value
tableau(ligne, colonnedestination) = Sheets("Feuil1").Cells(ligne, colonne).Value
Next
Next
Sheets("Feuil2").Range("B3:BS16") = tableau
End Sub

[jfcjfc]

RE, bonjour

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
20
Option Explicit
Option Base 1
 
 
Sub copiecollertableau()
 
Dim tableau(14, 70)
Dim ligne As Integer
Dim colonne As Integer
Dim colonnedestination As Integer
 
For ligne = 1 To 14
 
For colonne = 1 To 20
colonnedestination = Sheets("Feuil1").Cells(ligne, colonne).Value
tableau(ligne, colonnedestination) = Sheets("Feuil1").Cells(ligne, colonne).Value
Next
Next
Sheets("Feuil2").Range("B3:BS16") = tableau
End Sub

je joins votre code,
j'ai besoin de valeurs "tableau" que que je peux changer.
le tableau peut avoir des lignes ou colonne différente.
Ex: DIm tableau(28, 70),
comment faire pour avoir un tableau que je peut régler avec des Variables
il me semble qu'on appelle ça "un tableau dynamique"
--------------
j'ai utilise votre code avec une boucle copier coller du tableau de "feuil1" sur "Feuil2" c'est OK, et ensuite je change les N° du Tableau de "Feuil1" et coller sur une "feuil3" que j'ai créé ,
le problème le code garde en mémoire le tableau de "feuil2" et le rajoute sur "feuil3" avec le nouveau tableau de "Feuil1".
Comment vider la mémoire du tableau.
Sans vouloir abusé, merci !
cordialement

[a_diard]

Bonjour

Pour vider la variable tableau

Code :

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

1
2
 
Erase tableau

Pour créer une variable dynamique il ne faut pas la dimensionner au départ
et utiliser redim pour définir sa taille.

Exemple

Code :

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

1
2
3
4
5
6
7
Dim a As Integer, b As Integer
a = 14
b = 70
 
 
Dim tableau
ReDim tableau(a, b)

[jfcjfc]

Bonjour

Pour vider la variable tableau

Code :

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

1
2
 
Erase tableau

Encore merci et bonne fin d'aprés midi .