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

Profane

XLDnaute Occasionnel
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.
 

Pièces jointes

  • Ordonner les valeurs.xlsm
    26.2 KB · Affichages: 36

Modeste

XLDnaute Barbatruc
Bonjour Profane,

Pas tout à fait certain d'avoir compris, mais peut-être quelque chose comme:
VB:
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

XLDnaute Occasionnel
Bonjour Profane,

Pas tout à fait certain d'avoir compris, mais peut-être quelque chose comme:
VB:
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
 

Discussions similaires

Statistiques des forums

Discussions
312 938
Messages
2 093 775
Membres
105 818
dernier inscrit
daisyli67