incrémenter d'une ligne dans un filtre

[ph.vanne]

bonjour,

j'ai réalisé une macro qui me 'génère' une facture a partir d'un tableau données et d un tri sélectif dans ce tableau :

-je sectionne a parti d'un filtre une ligne avec le n° de la facture que je souhaite éditer et je "génère" la facture
correspondante dans un onglet dédié dans un format prêt a imprimer .
déjà ça! ça n'a pas été simple . mais ça marche !

cependant, j'aimerais pouvoir, maintenant , si je me place sur la ligne N° 4 ,par ex, cliquer sur mon bouton de macro exécuter la facture 4 et revenir sur la ligne N° 5 automatiquement ..

ou mieux encore ,( mais peut être que j'abuse ..!) pouvoir sélectionner les factures de 4 a 10 ...) ..

 

[thebenoit59]

Re : incrémenter d'une ligne dans un filtre

Bonjour ph.vanneau.
Peux-tu joindre un fichier à ton sujet ?

 

[ph.vanne]

Re : incrémenter d'une ligne dans un filtre

bonjour ,
je veux bien mais impossible! fichier trop lourd ;. (990Ko )
j'ai essayé de le compresser (.rar) mais fichier refusé ..?

du coup je joins un un modelé "épuré" ,le fichier de base comporte 1250 lignes.

mon dossier se compose de

trois feuilles:
1 "données"
2 "copie selection"
3 "modele recepteur"

 

[gosselien]

Re : incrémenter d'une ligne dans un filtre

Bonjour,

quand on te demande un fichier, il n'est pas utile de mettre ton code en + ici ...c'est inutile s'il est dans la feuille !
ça prends 5 pages avant de voir le message ET le fichier excel attaché

P.

 

[job75]

Re : incrémenter d'une ligne dans un filtre

Bonjour à tous,

ça prends 5 pages avant de voir le message ET le fichier excel attaché

Bah un petit code de 436 lignes (323 sans les blancs), le record de 2804 lignes est loin d'être battu :

https://www.excel-downloads.com/threads/procedure-trop-grande.20002978/

Bonne soirée.

 

[thebenoit59]

Re : incrémenter d'une ligne dans un filtre

Bonjour ph.vanne, le fil, le forum.
Ton code était bien trop long pour ce que tu avais à faire.
J'ai essayé de faire en sorte que le mien te soit facilement compréhensible.
La mise en page de la feuille Modèle est réalisée de sorte à ne plus l'effectuer avec la procédure.
Tu peux sélectionner toutes les factures que tu souhaites, mais ne sélectionne qu'une cellule par ligne.

 

[ph.vanne]

Re : incrémenter d'une ligne dans un filtre

bonjour ,
peut être est-ce mieux comme ça .. ?

Ph.vanne

 

[ph.vanne]

Re : incrémenter d'une ligne dans un filtre

nos messages se sont croisés .
je regarde votre macro ..
mais déjà, merci de vous être penché sur mon pb !

!

bonjour ,
ça a marché nickel .. jusque' à ..55 factures crées..


puis ça à planté au delà ?.... trop grand nombre de factures ? :

le pb c'est que j'en ai 1200.. a editer

en rouge ,là ou ça bloque :


'On vérifie que la facture n'existe déjà pas, si c'est le cas l'onglet s'appellera A modifier
If FeuilExiste(nFacture) Then nFacture = "A modifier"

'On copie le modèle dans un nouvel onglet
fFacture.Copy After:=Worksheets(Worksheets.Count)
'On renomme la nouvelle feuille par ton numéro de facture
Worksheets(Worksheets.Count).Name = nFacture
Set fNFacture = Worksheets(nFacture)

 

[gosselien]

Re : incrémenter d'une ligne dans un filtre

Bonjour ph.nvanne,

peux-tu éditer ton message #3 pour enlever le code qui, je le répète, oblige à descendre de 5 écrans pour lire la suite ,

Merci

 

[ph.vanne]

Re : incrémenter d'une ligne dans un filtre

voila qui est fait ...