VBA probleme macro

s1nakata · 13 Août 2007

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 · 13 Août 2007

Re : VBA probleme macro

salut

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

Code:

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

Code:

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

s1nakata · 13 Août 2007

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 · 13 Août 2007

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 · 13 Août 2007

Re : VBA probleme macro

s1nakata à dit:
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 · 13 Août 2007

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 :

Code:

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

VBA probleme macro

s1nakata

Guest

Chloulou

XLDnaute Occasionnel

s1nakata

Guest

s1nakata

Guest

Chloulou

XLDnaute Occasionnel

Robert

XLDnaute Barbatruc

Discussions similaires

VBA probleme macro

s1nakata

Guest

Chloulou

XLDnaute Occasionnel

s1nakata

Guest

s1nakata

Guest

Chloulou

XLDnaute Occasionnel

Robert

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency