Bonjour,
J'ai besoin de vos lumières...
J'ai mémoriser 13 lignes de ma base, que je transfert vers une autre feuille.
Mais J'ai 2 problèmes.
Je n'arrive pas à commencer à partir de la ligne 2.
Puis les 13 lignes doivent être séparer d'une ligne; Ex : 2, 4, 6 jusqu'à 26
For page = 1 To 13
ligne = page
For col = 1 To 1
Sheets("TICKET").Cells(ligne, col).Value = tableau(page).casier
Sheets("TICKET").Cells(ligne, col + 1).Value = tableau(page).ref
Sheets("TICKET").Cells(ligne, col + 2).Value = tableau(page).design
Sheets("TICKET").Cells(ligne, col + 4).Value = tableau(page).niveau
Sheets("TICKET").Cells(ligne, col + 5).Value = tableau(page).casierdest
Sheets("TICKET").Cells(ligne + 2, col).Value = ""
page = page + 1
Next
page = page - 1
Next
Sheets("TICKET").PrintPreview
Merci de m'aider par avance
J'ai besoin de vos lumières...
J'ai mémoriser 13 lignes de ma base, que je transfert vers une autre feuille.
Mais J'ai 2 problèmes.
Je n'arrive pas à commencer à partir de la ligne 2.
Puis les 13 lignes doivent être séparer d'une ligne; Ex : 2, 4, 6 jusqu'à 26
For page = 1 To 13
ligne = page
For col = 1 To 1
Sheets("TICKET").Cells(ligne, col).Value = tableau(page).casier
Sheets("TICKET").Cells(ligne, col + 1).Value = tableau(page).ref
Sheets("TICKET").Cells(ligne, col + 2).Value = tableau(page).design
Sheets("TICKET").Cells(ligne, col + 4).Value = tableau(page).niveau
Sheets("TICKET").Cells(ligne, col + 5).Value = tableau(page).casierdest
Sheets("TICKET").Cells(ligne + 2, col).Value = ""
page = page + 1
Next
page = page - 1
Next
Sheets("TICKET").PrintPreview
Merci de m'aider par avance