problème macro!

[doodle]

Bonjour à tous,

je vous expose mon problème. Je suis débutant en code VBA et je souheterais créer une macro.
Dans un classeur excel, je dispose de deux feuilles excel, une noté "passerelle" et l'autre "feuil4".
Dans la feuil4 j'ai une serie de valeurs (environ 1000) et de textes issus de résultats d'un logiciel de calcul. L'objectif est de copier certaines de ces valeurs dont l'incrément est 12 (par exemple B1, B13, B25, ...) dans un tableau de ma feuille excel noté "passerelle" où l'increment est 1 (par exemple C1, C2, C3...). Etant donné le nombre important de valeurs le copié collé basique me ferait m'arracher les cheveux!
Je me suis donc lancé dans le code VBA et essayé avec boucle for , next mais je n'y arrive pas!!! snif!
Quelqu'un pourrait il me venir en aide??

merci d'avance pour vos réponses

 

[Pierrot93]

Re : problème macro!

Bonjour doodle

regarde le code ci-dessous si cela peut t'aider :

Option Explicit
Sub test()
Dim i As Integer
With Sheets("Feuil4")
    For i = 1 To .Range("B65536").End(xlUp).Row Step 12
        .Cells(i, b).Copy Sheets("Passerelle").Range("C65536").End(xlUp).Offset(1, 0)
    Next i
End With
End Sub

bon après midi.
@+

 

[doodle]

Re : problème macro!

Bonjour doodle

regarde le code ci-dessous si cela peut t'aider :

Option Explicit
Sub test()
Dim i As Integer
With Sheets("Feuil4")
    For i = 1 To .Range("B65536").End(xlUp).Row Step 12
        .Cells(i, b).Copy Sheets("Passerelle").Range("C65536").End(xlUp).Offset(1, 0)
    Next i
End With
End Sub

bon après midi.
@+

Merci pour la rapidité de ta réponse pierrot 93, je m'en vais le tester de ce pas! je vous tiens au courant...