Dispatcher des numéros 3 par 3

[criscris11]

Bonjour à tous,
Je cherche un moyen simple et rapide de dispatcher des numéros 3 par 3 dans un modèle d'onglet.
J'ai tout expliqué dans le fichier-joint.
Merci d'avance à tous et bon week-end.

 

[criscris11]

Re : Dispatcher des numéros 3 par 3

Re le fil, salut kjin,

Peut-être une autre solution

Eh ben oui une autre solution qui me convient tout à fait. Ainsi pas besoin d'avoir 4 codes différents dans le classeur.
Bon je te laisse aller bronzer un peu car moi j'aurai tout le temps de bronzer plus tard (2 ans en Martinique à partir de cet été).
Quand tu auras peaufiné ton bronzage, reviens quand tu veux pour la suite avec toutes les améliorations qui te semblerait nécessaire.
Encore merci et bonne fin de journée.

 

[pierrejean]

Re : Dispatcher des numéros 3 par 3

Re

Juste pour le fun (Bravo Kjin)
ma version

 

[criscris11]

Re : Dispatcher des numéros 3 par 3

Re,
Pierrejean, même si c'est pour le fun pour toi j'apprécie ton code car il correspond entièrement à mes attentes.
Je dois dire qu'avec vous deux, je suis comblé et vous m'évitez des heures de saisies intempestives.
Merci à tous les deux et bonne soirée.

PS : eh kjin, t'as fini de bronzer ? 😛
Si c'est le cas tu peux reprendre le travail 😀.

 

[pierrejean]

Re : Dispatcher des numéros 3 par 3

Re

A signaler: avec une petite modif mon code ( recherche ) fonctionne même si on modifie l'emplacement des numeros dans les feuilles (voire si on supprime dans la feuille)

 

[criscris11]

Re : Dispatcher des numéros 3 par 3

Re le fil,
Pierrejean : qu'elle ligne de code rajouter à ton code pour que lorsque les feuilles sont créées, la macro garde la mise en page de la feuille dupliquée ?
Merci d'avance, sinon c'est génial.
Bonne journée.

 

[pierrejean]

Re : Dispatcher des numéros 3 par 3

Re

Teste:

.......
 Sheets("Feuille de MAT vierge").Cells.Copy Destination:=ActiveSheet.Range("A1")
  [COLOR=blue]ActiveWindow.DisplayGridlines = False
[/COLOR]'mettre a jour les cellules B8 B20 et B31
  ActiveSheet.Range("B8") = Sheets("TEST").Range("A" & n)
.......

 

[criscris11]

Re : Dispatcher des numéros 3 par 3

Re,
Ok merci Pierrejean. Mais il faut également garder la mise en page : paysage, marges...
N'y a t'il pas un moyen de copier toute la mise en page d'un coup ?
Sinon, t'embêtes pas je ferai avec l'enregistreur de macros maintenant que je sais où placé le bout de code pour la mise en page.
Merci et bon week-end.

 

[pierrejean]

Re : Dispatcher des numéros 3 par 3

Re

Au temps pour moi !!

Vois si cela va comme ceci

 

[criscris11]

Re : Dispatcher des numéros 3 par 3

Re,
Merci pour ton retour mais je ne sais pas ce qui se passe car sans la mise en page, les feuilles sont créées en moins de deux et là j'ai lancé la macro depuis 7 ou 8 minutes et le code tourne toujours. et ce n'est pas fini.
Est ce normal ?

Ok le code fonctionne bien. De toute façon, pas grave pour le temps d'exécution car normalement ce code doit servir qu'une fois car sinon j'avais tous les numéros à taper un par un.

 

[pierrejean]

Re : Dispatcher des numéros 3 par 3

Re

Il est effectif que la mise en page par macro est horriblement lente !!

je ferai des recherches pour voir si on peut ameliorer cela

 

[vbacrumble]

Re : Dispatcher des numéros 3 par 3

Bonjour à tous

Pour accélérer la mise ne page
Passer par PAGE.SETUP (macro XL4)

Voir ce message des archives du forum
Lien supprimé

(Voir un autre exemple ici:
MPEP PAGE.SETUP )

 

[criscris11]

Re : Dispatcher des numéros 3 par 3

Re, salut vbacrumble,
Juste un truc que j'ai remarqué : avec le code de kjin, la mise en page ne bouge pas sur les feuilles créées.
Peut-être une piste de ce côté là en comparant les 2 codes ?
Bonne soirée.

 

[pierrejean]

Re : Dispatcher des numéros 3 par 3

Re

Suis vraiment pas doué !!
J'ai testé la macro PS4 avec le fichier de cricris mais je me suis heurté a chaque fois a un message signalant une erreur dans la formule !
Peut-on savoir ce qu'il faut adapter ?
Ps: j'ai été emu de retrouver un post de Charly2 (qui nous a quitté si mes renseignements sont bons)

 

[pierrejean]

Re : Dispatcher des numéros 3 par 3

Re

Oui criscris la bonne formule c'est le sheets("..").copy after:= sheets(sheets.count)

merci Kjin

teste cette version

 

[criscris11]

Re : Dispatcher des numéros 3 par 3

Re,
Je vois que ma piste a porté ses fruits : problème réglé mon cher Pierrejean.
Encore merci et bonne soirée à tous.