VBA problme macros :s Fermé

Question

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

s2nakata · Answer

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

VBA problme macros :s

1 réponse

Discussions similaires

Newsletters