JerSingap
03-15-2013, 12:43 AM
Bonjour a tous,
Je suis debutant en matiere de VBA et je lutte un peu pour arriver a faire ce que je veux:
Voici la situation:
Une Feuille "Resultat": J'ai un nom d’équipement et le reste des info a remplir avec d'autres onglets.
Les infos sont du type « ancien» , « actuel « date de changement, « ...
Exemple d’onglet « Source» :
Je veux copier les informations dans les case correspondante a l'equipement dans la feuille resultat
-La 1ere ligne d'info va dans une ligne et la suivante doit se positionner 18 lignes plus bas puis recommencer l’action jusqu'a la ligne 329 de la feuille « Source»
J'ai reussi a faire l'action de copie:
Sub COPIERPLAGE()
Dim Maplage As Range
With ThisWorkbook.Worksheets("Source")
Set Maplage = .Range("C4:G4")
End With
Maplage.copy
ActiveSheet.Paste Destination:=Worksheets("Resultat").Range("D26")
Application.CutCopyMode = False
End Sub
Maintenant je souhaite répéter cette action jusqu'a la ligne 329 de l'onglet source et en sautant 18 lignes a chaque fois (dans l'onglet resultat).
Est ce que quelqu'un pourrai me depanner?
Merci d'avance,
Cordialement,
Jerome
Je suis debutant en matiere de VBA et je lutte un peu pour arriver a faire ce que je veux:
Voici la situation:
Une Feuille "Resultat": J'ai un nom d’équipement et le reste des info a remplir avec d'autres onglets.
Les infos sont du type « ancien» , « actuel « date de changement, « ...
Exemple d’onglet « Source» :
Je veux copier les informations dans les case correspondante a l'equipement dans la feuille resultat
-La 1ere ligne d'info va dans une ligne et la suivante doit se positionner 18 lignes plus bas puis recommencer l’action jusqu'a la ligne 329 de la feuille « Source»
J'ai reussi a faire l'action de copie:
Sub COPIERPLAGE()
Dim Maplage As Range
With ThisWorkbook.Worksheets("Source")
Set Maplage = .Range("C4:G4")
End With
Maplage.copy
ActiveSheet.Paste Destination:=Worksheets("Resultat").Range("D26")
Application.CutCopyMode = False
End Sub
Maintenant je souhaite répéter cette action jusqu'a la ligne 329 de l'onglet source et en sautant 18 lignes a chaque fois (dans l'onglet resultat).
Est ce que quelqu'un pourrai me depanner?
Merci d'avance,
Cordialement,
Jerome