VBA problme macros :s
s2nakata
Messages postés
18
Statut
Membre
-
s2nakata Messages postés 18 Statut Membre -
s2nakata Messages postés 18 Statut Membre -
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
Selection.Copy
Sheets("Feuil1").Select
Cells(2, b).Select
ActiveSheet.Paste
Next j
Next k
Next i
End Sub
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
Selection.Copy
Sheets("Feuil1").Select
Cells(2, b).Select
ActiveSheet.Paste
Next j
Next k
Next i
End Sub
Configuration: Windows XP Internet Explorer 6.0 Excel 2003
1 réponse
-
voila ma macro remis a 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
