XL 2016 je galere avec tickets de tombola

geronim77 à dit:

Bonjour j'ai un fichier excel avec des tickets de tombola qui s'arretent a 2600 j'ai besoin de les dupliquer pour qu'ils aillent jusqu'a 8000 avec la numérotation automatique comment faire merci par avance

Cliquez pour agrandir...

Sub imprimer()
    Dim i&
    For i = 1 To 8000 Step 6
        [b2,f2] = i: [h2,L2] = i + 1
        [b3,f3] = i + 2: [h3,L3] = i + 3
        [b4,f4] = i + 4: [h4,L4] = i + 5
        Feuil1.PrintPreview
        'Valider la ligne ci dessous pour imprimer la totalité et supprimer celle du dessus
        'Feuil1.PrintOut
    Next
End Sub

Marcel32 à dit:

Bonjour,

Il suffit de sélectionner les tickets existants et de tirer vers le bas (jusqu'à la ligne 4001, je pense).

Tu sélectionnes la plage B1299:L1301 puis tu tires sur la poignée jusqu'à la ligne 4001 et ensuite tu mets toutes les lignes à une hauteur de 160.


Tu feras gaffe, tes tickets sont périmés depuis cinq ans...

Cliquez pour agrandir...

geronim77 à dit:

en faisant ca j'ai pas les bons numéros sur les suivants as tu essayé

Cliquez pour agrandir...

Marcel32 à dit:

De rien...
Non non, j'ai pas essayé avant de faire cette proposition, j'ai dit un truc au hasard, juste pour passer le temps...

Bon, plus sérieusement : oui, bien sûr que j'ai essayé avant de donner une procédure avec chaque étape.
Je suis comme toi sous Excel 2016, donc ça devrait fonctionner aussi chez toi.

Cliquez pour agrandir...

Marcel32 à dit:

Chez moi ça numérote parfaitement jusqu'à 8000 !

Cliquez pour agrandir...

Marcel32 à dit:

Chez moi ça numérote parfaitement jusqu'à 8000 !

Cliquez pour agrandir...

Marcel32 à dit:

je ne vois pas pourquoi ça marcherait chez moi mais pas chez toi.

Cliquez pour agrandir...

soan à dit:

Bonjour Marcel, le fil,





c'est simple : parce que toi tu sais compter jusqu'à 8 000 !

soan

Cliquez pour agrandir...