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
 

pierrejean

XLDnaute Barbatruc
Bonjour dilank

Il nous serait bien plus aisé de t'aider si tu voulais bien créer un petit fichier exemple (sans données confidentielles )
 

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.
 

Fichiers joints

Discussions similaires


Haut Bas