XL 2013 Sauter une ligne dans un transfert de donnees VBA

dilank

XLDnaute Junior
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
 

dilank

XLDnaute Junior
Bonjour,

En pièce jointe, je parlais du 3ème onglet...

pour le 2ème onglet j'ai également un soucis

En faite je veux prendre 16 lignes de la base et les mettre sur le 2ème onglet, l'imprimer, et faire avec les 16 lignes suivantes etc... et qu'elle s'arrete quand il n'y a plus de ligne.

par contre ici j'ai des lignes et colonne vide à laisser entre (exemple ligne 3 et colonne D)

dites moi si je ne suis pas assez clair.
 

Pièces jointes

  • TEST 3 PN.xlsm
    64.8 KB · Affichages: 39

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 015
Membres
101 870
dernier inscrit
Dethomas