VBA probleme macro

[s1nakata]

Bonjour je debute en vba et je bute sur une macro :s

Cela est censé copier 1 tableau verticale de la feuille 1 dans un tableau horizontale de la feuille 2
cela fonctionne au rang 1 mais je n'arrive pas a incrementer les variables :s

Au rang 1 il copie la selection D5: D12 de la feuille 2 pour la copier a B2:B9 de la feuille 1
la selection de la feuille 2 change de ligne et la selection de la feuille 1 se deplace de une colonne
J espere que c'est comprehensible 🙂

voila la macro concerné


Dim adrdepvert, adrarrvert As Variant
adrdepvert = 4
adrarrvert = 5
Dim finrangevert As Integer
finrangevert = 12
Dim a, b As Integer
a = 2
b = 2

For i = finrangevert To 39 Step 9
For k = adrarrvert To 32 Step 9
For j = b To 5

Sheets("Feuil2").Select
Range(Cells(adrarrvert, adrdepvert), Cells(finrangevert, adrdepvert)).Select


' Range(Cells(5, 4), Cells(12, 4)).Select

Selection.Copy

Sheets("Feuil1").Select


Cells(2, b).Select

ActiveSheet.Paste
Next j
Next k
Next i


End Sub

 

[Chloulou]

Re : VBA probleme macro

salut

dans tes boucles tu n'utilises jamais tes compteurs, c'est normal?
au final

For i = finrangevert To 39 Step 9
For k = adrarrvert To 32 Step 9
For j = b To 5

Sheets("Feuil2").Select
Range(Cells(adrarrvert, adrdepvert), Cells(finrangevert, adrdepvert)).Select


[B]' Range(Cells(5, 4), Cells(12, 4)).Select

Selection.Copy

Sheets("Feuil1").Select[/B]


Cells(2, b).Select

ActiveSheet.Paste
Next j
Next k
Next i

au final tu ne fais que copier coller

 Range(Cells(5, 4), Cells(12, 4)).[\code]
@+

 

[s1nakata]

Re : VBA probleme macro

adrdepvert = 4
adrarrvert = 5
Dim finrangevert As Integer
finrangevert = 12
Dim a, b As Integer
a = 2
b = 2

For i = finrangevert To 39 Step 9
For k = adrarrvert To 32 Step 9

For j = b To 5

Sheets("Feuil2").Select
Range(Cells(adrarrvert, adrdepvert), Cells(finrangevert, adrdepvert)).Select

Selection.Copy

Sheets("Feuil1").Select


Cells(2, b).Select

ActiveSheet.Paste
Next j
Next k
Next i


End Sub



en fait ' Range(Cells(5, 4), Cells(12, 4)).Select
était écris en vert donc ne compter pas

 

[s1nakata]

Re : VBA probleme macro

voila mon code remis à jour ^^


Sub importbcle()


Dim adrdepvert, adrarrvert, adrdephoriz, adrarrhoriz As Variant


adrarrvert = 5
Dim finrangevert As Integer
finrangevert = 12
Dim b As Integer
b = 2

For k = adrarrvert To 32 Step 9

Sheets("Feuil2").Select
Range(Cells(k, 4), Cells(k + 7, 4)).Select
Selection.Copy



For j = b To 5

Sheets("Feuil1").Select


Cells(2, j).Select

ActiveSheet.Paste
Next j
Next k


End Sub

 

[Chloulou]

Re : VBA probleme macro

en fait ' Range(Cells(5, 4), Cells(12, 4)).Select
était écris en vert donc ne compter pas

Autant pour moi, maintenant tu utilises tes compteurs, ca donne quoi?

 

[Robert]

Re : VBA probleme macro

Bonjour le fil, bonjour le forum,

S1nakata tu te compliques la vie avec des variables qui ne te servent à rien (apparemment car je n'ai pas tous tes codes). Regarde ta dernière proposition épurée :

Sub importbcle()
Dim k As Byte, j As Byte
For k = 5 To 32 Step 9
    Sheets("Feuil2").Select
    Range(Cells(k, 4), Cells(k + 7, 4)).Copy
    For j = 2 To 5
        Sheets("Feuil1").Select
        Cells(2, j).Select
        ActiveSheet.Paste
    Next j
Next k
End Sub