XL 2010 Copier cellule d'un onglet vers un autre suivant un template

[Profane]

Bonjour à tous,

j'ai une demande un peu particulière
je m'explique:

j'ai des cellules dans un onglet répondant à une condition à copier vers un autre onglet
MAIS en suivant un Template bien définit:

a savoir la copie doit commencer à un point d'origine bien précis et après se faire sur
- 3 colonnes espacés d'une colonne entre elles
- et descendre au max de 5 lignes espacés d'une ligne entre elles

voila j'ai joint un exemple plus parlant....🙂

merci à tous d'avance, du temps que vous voudriez bien m'accorder.

 

[Modeste]

Bonjour Profane,

Pas tout à fait certain d'avoir compris, mais peut-être quelque chose comme:

Private Sub CommandButtonGenerer_Click()
tabloCells = Array("F13", "F15", "F17", "F19", "F21", "F23", "F25", "I13", "I15", "I17", "I19", "I21", "I23", "I25", "L13", "L15", "L17", "L19", "L21", "L23", "L25")
For Each c In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    If c = "Prins" Then
        Sheets("Template_Prins").Range(tabloCells(x)) = c.Offset(0, 1)
        x = x + 1
    End If
Next c
End Sub

 

[Profane]

Bonjour Profane,

Pas tout à fait certain d'avoir compris, mais peut-être quelque chose comme:

Private Sub CommandButtonGenerer_Click()
tabloCells = Array("F13", "F15", "F17", "F19", "F21", "F23", "F25", "I13", "I15", "I17", "I19", "I21", "I23", "I25", "L13", "L15", "L17", "L19", "L21", "L23", "L25")
For Each c In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    If c = "Prins" Then
        Sheets("Template_Prins").Range(tabloCells(x)) = c.Offset(0, 1)
        x = x + 1
    End If
Next c
End Sub

 

[Profane]

Bonjour Modeste
merci énormément
c est ce que je cherche a faire depuis 3 jours....
et tu viens d'y répondre en 20 mn...
@+