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

dilank

XLDnaute Junior
merci Pierrejean,

du coup je ne suis plus bloqué ^^

je vais pouvoir avancer, merci encore
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas