macro avec boucle copier/collagespecial

[LaKro64]

Bonjour à tous,

Je suis débutant sur VBA et je souhaiterai faire une macro qui :
- copie la ligne (I3:BC3) de la feuille ORDA
- fait un collage spécial en valeur et transposé en colonne i de la feuille TCD.
- répéte l'opération en fonction de l'index soit 137 fois

ci-joint un fichier pour que ce soit plus clair pour vous,

merci d'avance si vous avez une idée,

Cdlt

LaKro64

 

[Grand Chaman Excel]

Re : macro avec boucle copier/collagespecial

Bonjour,
Voici un code à essayer, en supposant qu'il y a un valeur dans la cellule I2 de la feuille TCD et rien d'autres en dessous.

Sub Copie()
   Dim rg As Range, c As Range
   Dim wsORDA As Worksheet, wsTCD As Worksheet
   
   Set wsORDA = Sheets("ORDA")
   Set wsTCD = Sheets("TCD")
   
   Set rg = wsORDA.Range("A7:A" & wsORDA.Range("A" & wsORDA.Rows.Count).End(xlUp).Row)
   For Each c In rg
      If IsNumeric(c) Then
         c.Offset(0, 8).Resize(1, 47).Copy
         wsTCD.Range("I" & wsTCD.Range("I" & wsTCD.Rows.Count).End(xlUp).Row + 1).PasteSpecial xlPasteValues, , , True
      End If
   Next c
End Sub

 

[LaKro64]

Re : macro avec boucle copier/collagespecial

Bonjour,

Merci beaucoup pour votre aide.

Cependant, votre code me copie tous les lignes à partir de (I3:BC3) alors que je ne veux récupérer que les lignes où il y a un chiffre dans la colonne Index.

Ci-joint le fichier pour illustrer mon propos.

Merci d'avance

LaKro64

 

[Grand Chaman Excel]

Re : macro avec boucle copier/collagespecial

Oups...mon erreur.
Voici le code modifié.

Sub Copie()
    Dim rg As Range, c As Range
    Dim wsORDA As Worksheet, wsTCD As Worksheet
    
    Set wsORDA = Sheets("ORDA")
    Set wsTCD = Sheets("TCD")
    
    Set rg = wsORDA.Range("A7:A" & wsORDA.Range("A" & wsORDA.Rows.Count).End(xlUp).Row)
    For Each c In rg
       If IsNumeric(c) And c.Value <> "" Then
          c.Offset(0, 8).Resize(1, 47).Copy
          wsTCD.Range("I" & wsTCD.Range("I" & wsTCD.Rows.Count).End(xlUp).Row + 1).PasteSpecial xlPasteValues, , , True
       End If
    Next c
End Sub

 

[LaKro64]

Re : macro avec boucle copier/collagespecial

Super génial merci beaucoup Grand Chaman Excel