siplifier

Le
pellet15
Bonsoir à tous
Comment faire pour simplifier la laccros suivant ?

ici elle est de trois répétition, mais j'ai besoin de 426
répétition !!
il y une constante dans une page il y a toujour 40 lignes entre
chaque.

Range("A49:N49,A55:N55,A73:N81").Delete Shift:=xlUp
Range("A18:N26").Copy
Range("A58:B58").Insert Shift:=xlDown
Range("A38:A39").Copy
Range("A40:N41").Copy
Range("A80").Insert Shift:=xlDown '1
Range("A89:N89,A95:N95,A113:N121").Delete Shift:=xlUp
Range("A18:N26").Copy
Range("A98:B98").Insert Shift:=xlDown
Range("A38:A39").Copy
Range("A40:N41").Copy
Range("A120").Insert Shift:=xlDown '2
Range("A129:N129,A135:N135,A153:N161").Delete Shift:=xlUp
Range("A18:N26").Copy
Range("A138:B138").Insert Shift:=xlDown
Range("A38:A39").Copy
Range("A40:N41").Copy
Range("A160").Insert Shift:=xlDown '3


http://cjoint.com/?gdbvbPRqkN
Merci
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
satanas09
Le #4563661
la piéce joint n'est pas disponible... et ton code n'est pas vraiment
clair.. pour essayer de comprendre ce que tu fais ..! il semble avoir des
lignes en trop (je vois pas trop à quoi cela sert de .Copy qui se suivent
...!

essai de mieux nous expliquer ce que tu veux faire..


"pellet15"
Bonsoir à tous
Comment faire pour simplifier la laccros suivant ?

ici elle est de trois répétition, mais j'ai besoin de 426
répétition !!
il y une constante dans une page il y a toujour 40 lignes entre
chaque.

Range("A49:N49,A55:N55,A73:N81").Delete Shift:=xlUp
Range("A18:N26").Copy
Range("A58:B58").Insert Shift:=xlDown
Range("A38:A39").Copy
Range("A40:N41").Copy
Range("A80").Insert Shift:=xlDown '1
Range("A89:N89,A95:N95,A113:N121").Delete Shift:=xlUp
Range("A18:N26").Copy
Range("A98:B98").Insert Shift:=xlDown
Range("A38:A39").Copy
Range("A40:N41").Copy
Range("A120").Insert Shift:=xlDown '2
Range("A129:N129,A135:N135,A153:N161").Delete Shift:=xlUp
Range("A18:N26").Copy
Range("A138:B138").Insert Shift:=xlDown
Range("A38:A39").Copy
Range("A40:N41").Copy
Range("A160").Insert Shift:=xlDown '3


http://cjoint.com/?gdbvbPRqkN
Merci
pellet15
Le #4563491
On 3 juin, 03:11, "satanas09"
la piéce joint n'est pas disponible... et ton code n'est pas vraiment
clair.. pour essayer de comprendre ce que tu fais ..! il semble avoir des
lignes en trop (je vois pas trop à quoi cela sert de .Copy qui se suive nt
...!

essai de mieux nous expliquer ce que tu veux faire..

"pellet15"
Bonsoir à tous
Comment faire pour simplifier la laccros suivant ?

ici elle est de trois répétition, mais j'ai besoin de 426
répétition !!
il y une constante dans une page il y a toujour 40 lignes entre
chaque.

Range("A49:N49,A55:N55,A73:N81").Delete Shift:=xlUp
Range("A18:N26").Copy
Range("A58:B58").Insert Shift:=xlDown
Range("A38:A39").Copy
Range("A40:N41").Copy
Range("A80").Insert Shift:=xlDown '1
Range("A89:N89,A95:N95,A113:N121").Delete Shift:=xlUp
Range("A18:N26").Copy
Range("A98:B98").Insert Shift:=xlDown
Range("A38:A39").Copy
Range("A40:N41").Copy
Range("A120").Insert Shift:=xlDown '2
Range("A129:N129,A135:N135,A153:N161").Delete Shift:=xlUp
Range("A18:N26").Copy
Range("A138:B138").Insert Shift:=xlDown
Range("A38:A39").Copy
Range("A40:N41").Copy
Range("A160").Insert Shift:=xlDown '3

http://cjoint.com/?gdbvbPRqkN
Merci



Bonjour satanas

Range("A38:A39").Copy oui est de trop !

Dans le fichier je veut modifier tout les pages comme la première page
(a2:N42).
dans la macros il faut suprimer des ligne et
insérer des lignes comme la première page.

Range("A49:N49,A55:N55,A71:N81").Delete Shift:=xlUp
Range("A18:N26").Copy
Range("A58:B58").Insert Shift:=xlDown
Range("A38:N41").Copy
Range("A80").Insert Shift:=xlDown '1
Range("A89:N89,A95:N95,A111:N121").Delete Shift:=xlUp
Range("A18:N26").Copy
Range("A98:B98").Insert Shift:=xlDown
Range("A38:N41").Copy
Range("A120").Insert Shift:=xlDown '2
Range("A129:N129,A135:N135,A151:N161").Delete Shift:=xlUp
Range("A18:N26").Copy
Range("A138:B138").Insert Shift:=xlDown
Range("A38:N41").Copy
Range("A160").Insert Shift:=xlDown '3
.........ect
End Sub

http://cjoint.com/?gdphCyO4rc
Merci

cousinhub
Le #4563141
Bonsoir,
si je comprends bien ta question, au lieu de faire à l'identique tous
tes tableaux, pourquoi ne pas faire un tableau de synthèse sous Excel,
avec toutes les données, et publiposter vers Word, le format sera
toujours le même pour tous, et tu pourras imprimer facilement le relevé
qui t'intéresse!
Bonne soirée

On 3 juin, 03:11, "satanas09"
la piéce joint n'est pas disponible... et ton code n'est pas vraiment
clair.. pour essayer de comprendre ce que tu fais ..! il semble avoir des
lignes en trop (je vois pas trop à quoi cela sert de .Copy qui se suivent
...!

essai de mieux nous expliquer ce que tu veux faire..

"pellet15"
Bonsoir à tous
Comment faire pour simplifier la laccros suivant ?

ici elle est de trois répétition, mais j'ai besoin de 426
répétition !!
il y une constante dans une page il y a toujour 40 lignes entre
chaque.

Range("A49:N49,A55:N55,A73:N81").Delete Shift:=xlUp
Range("A18:N26").Copy
Range("A58:B58").Insert Shift:=xlDown
Range("A38:A39").Copy
Range("A40:N41").Copy
Range("A80").Insert Shift:=xlDown '1
Range("A89:N89,A95:N95,A113:N121").Delete Shift:=xlUp
Range("A18:N26").Copy
Range("A98:B98").Insert Shift:=xlDown
Range("A38:A39").Copy
Range("A40:N41").Copy
Range("A120").Insert Shift:=xlDown '2
Range("A129:N129,A135:N135,A153:N161").Delete Shift:=xlUp
Range("A18:N26").Copy
Range("A138:B138").Insert Shift:=xlDown
Range("A38:A39").Copy
Range("A40:N41").Copy
Range("A160").Insert Shift:=xlDown '3

http://cjoint.com/?gdbvbPRqkN
Merci



Bonjour satanas

Range("A38:A39").Copy oui est de trop !

Dans le fichier je veut modifier tout les pages comme la première page
(a2:N42).
dans la macros il faut suprimer des ligne et
insérer des lignes comme la première page.

Range("A49:N49,A55:N55,A71:N81").Delete Shift:=xlUp
Range("A18:N26").Copy
Range("A58:B58").Insert Shift:=xlDown
Range("A38:N41").Copy
Range("A80").Insert Shift:=xlDown '1
Range("A89:N89,A95:N95,A111:N121").Delete Shift:=xlUp
Range("A18:N26").Copy
Range("A98:B98").Insert Shift:=xlDown
Range("A38:N41").Copy
Range("A120").Insert Shift:=xlDown '2
Range("A129:N129,A135:N135,A151:N161").Delete Shift:=xlUp
Range("A18:N26").Copy
Range("A138:B138").Insert Shift:=xlDown
Range("A38:N41").Copy
Range("A160").Insert Shift:=xlDown '3
.........ect
End Sub

http://cjoint.com/?gdphCyO4rc
Merci




pellet15
Le #4943591
On 3 juin, 09:08, pellet15
On 3 juin, 03:11, "satanas09"




la piéce joint n'est pas disponible... et ton code n'est pas vraiment
clair.. pour essayer de comprendre ce que tu fais ..! il semble avoir d es
lignes en trop (je vois pas trop à quoi cela sert de .Copy qui se sui vent
...!

essai de mieux nous expliquer ce que tu veux faire..

"pellet15"
Bonsoir à tous
Comment faire pour simplifier la laccros suivant ?

ici elle est de trois répétition, mais j'ai besoin de 426
répétition !!
il y une constante dans une page il y a toujour 40 lignes entre
chaque.

Range("A49:N49,A55:N55,A73:N81").Delete Shift:=xlUp
Range("A18:N26").Copy
Range("A58:B58").Insert Shift:=xlDown
Range("A38:A39").Copy
Range("A40:N41").Copy
Range("A80").Insert Shift:=xlDown '1
Range("A89:N89,A95:N95,A113:N121").Delete Shift:=xlUp
Range("A18:N26").Copy
Range("A98:B98").Insert Shift:=xlDown
Range("A38:A39").Copy
Range("A40:N41").Copy
Range("A120").Insert Shift:=xlDown '2
Range("A129:N129,A135:N135,A153:N161").Delete Shift:=xlUp
Range("A18:N26").Copy
Range("A138:B138").Insert Shift:=xlDown
Range("A38:A39").Copy
Range("A40:N41").Copy
Range("A160").Insert Shift:=xlDown '3

http://cjoint.com/?gdbvbPRqkN
Merci


Bonjour satanas

Range("A38:A39").Copy oui est de trop !

Dans le fichier je veut modifier tout les pages comme la première page
(a2:N42).
dans la macros il faut suprimer des ligne et
insérer des lignes comme la première page.

Range("A49:N49,A55:N55,A71:N81").Delete Shift:=xlUp
Range("A18:N26").Copy
Range("A58:B58").Insert Shift:=xlDown
Range("A38:N41").Copy
Range("A80").Insert Shift:=xlDown '1
Range("A89:N89,A95:N95,A111:N121").Delete Shift:=xlUp
Range("A18:N26").Copy
Range("A98:B98").Insert Shift:=xlDown
Range("A38:N41").Copy
Range("A120").Insert Shift:=xlDown '2
Range("A129:N129,A135:N135,A151:N161").Delete Shift:=xlUp
Range("A18:N26").Copy
Range("A138:B138").Insert Shift:=xlDown
Range("A38:N41").Copy
Range("A160").Insert Shift:=xlDown '3
.........ect
End Sub

http://cjoint.com/?gdphCyO4rc
Merci- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -
Cette macros doit suprimer plusieur lignes et en insérer le même

nombres.

A la place d'inscrire le numéros de la ligne , faire dessendre la
cellule active et suprimer cette ligne (la ou est la cellule active) ,
dessendre au prochaine a suprimer et la suprimer pour après insérer
les même ligne que dans la premier page.

si on déplace la cellule active pour suprimer et insérer a ce moment
la j'aurait qua répéter la même procédure 429 fois (il pourait
insérer les ligne de la page supérieur insi de suite....)

For i = 1 To 429
blabla ''procédure''
Next
End Sub

Mais comment faire???
Merci


pellet15
Le #4943571
On 3 juin, 17:02, pellet15
On 3 juin, 09:08, pellet15


On 3 juin, 03:11, "satanas09"
la piéce joint n'est pas disponible... et ton code n'est pas vraime nt
clair.. pour essayer de comprendre ce que tu fais ..! il semble avoir des
lignes en trop (je vois pas trop à quoi cela sert de .Copy qui se s uivent
...!

essai de mieux nous expliquer ce que tu veux faire..

"pellet15"
Bonsoir à tous
Comment faire pour simplifier la laccros suivant ?

ici elle est de trois répétition, mais j'ai besoin de 426
répétition !!
il y une constante dans une page il y a toujour 40 lignes entre
chaque.

Range("A49:N49,A55:N55,A73:N81").Delete Shift:=xlUp
Range("A18:N26").Copy
Range("A58:B58").Insert Shift:=xlDown
Range("A38:A39").Copy
Range("A40:N41").Copy
Range("A80").Insert Shift:=xlDown '1
Range("A89:N89,A95:N95,A113:N121").Delete Shift:=xlUp
Range("A18:N26").Copy
Range("A98:B98").Insert Shift:=xlDown
Range("A38:A39").Copy
Range("A40:N41").Copy
Range("A120").Insert Shift:=xlDown '2
Range("A129:N129,A135:N135,A153:N161").Delete Shift:=xlUp
Range("A18:N26").Copy
Range("A138:B138").Insert Shift:=xlDown
Range("A38:A39").Copy
Range("A40:N41").Copy
Range("A160").Insert Shift:=xlDown '3

http://cjoint.com/?gdbvbPRqkN
Merci


Bonjour satanas

Range("A38:A39").Copy oui est de trop !

Dans le fichier je veut modifier tout les pages comme la première page
(a2:N42).
dans la macros il faut suprimer des ligne et
insérer des lignes comme la première page.

Range("A49:N49,A55:N55,A71:N81").Delete Shift:=xlUp
Range("A18:N26").Copy
Range("A58:B58").Insert Shift:=xlDown
Range("A38:N41").Copy
Range("A80").Insert Shift:=xlDown '1
Range("A89:N89,A95:N95,A111:N121").Delete Shift:=xlUp
Range("A18:N26").Copy
Range("A98:B98").Insert Shift:=xlDown
Range("A38:N41").Copy
Range("A120").Insert Shift:=xlDown '2
Range("A129:N129,A135:N135,A151:N161").Delete Shift:=xlUp
Range("A18:N26").Copy
Range("A138:B138").Insert Shift:=xlDown
Range("A38:N41").Copy
Range("A160").Insert Shift:=xlDown '3
.........ect
End Sub

http://cjoint.com/?gdphCyO4rc
Merci- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Cette macros doit suprimer plusieur lignes et en insérer le même
nombres.

A la place d'inscrire le numéros de la ligne , faire dessendre la
cellule active et suprimer cette ligne (la ou est la cellule active) ,
dessendre au prochaine a suprimer et la suprimer pour après insérer
les même ligne que dans la premier page.

si on déplace la cellule active pour suprimer et insérer a ce moment
la j'aurait qua répéter la même procédure 429 fois (il pourait
insérer les ligne de la page supérieur insi de suite....)

For i = 1 To 429
blabla ''procédure''
Next
End Sub

Mais comment faire???
Merci- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Bonsoir Cousinhub

J'ai 8 fichier semblabe a celui la et ces pour cette raison que je
veut faire une macros pour les modifier, et mais colègue qui utilise
ses fichier sont peut familier avec les ordinateur donc je ne veut pas
trop les embourber en utilisant d'autre programme.

Merci



cousinhub
Le #4943561
Bonsoir,
Justement, tes collègues, à la place de rechercher un tableau dans ta
feuille (qui en comporte 430), avec une petite macro toute simple,
comprenant un userform, arriveraient de suite à la ligne concernant le
relevé concerné, rempliraient les données qui vont bien, et si le
désir leur en prend, imprimeraient le relevé ad-hoc.
A méditer....
PS : l'avantage du publipostage vers word, si tu veux modifier la mise
en page, supprimer une donnée, en rajouter d'autre(s), quelque soit le
résultat voulu, ce sera fait automatiquement....(sans macro turbine à
gaz...)

On 3 juin, 17:02, pellet15
On 3 juin, 09:08, pellet15


On 3 juin, 03:11, "satanas09"
la piéce joint n'est pas disponible... et ton code n'est pas vraiment
clair.. pour essayer de comprendre ce que tu fais ..! il semble avoir des
lignes en trop (je vois pas trop à quoi cela sert de .Copy qui se suivent
...!
essai de mieux nous expliquer ce que tu veux faire..
"pellet15"
Bonsoir à tous
Comment faire pour simplifier la laccros suivant ?
ici elle est de trois répétition, mais j'ai besoin de 426
répétition !!
il y une constante dans une page il y a toujour 40 lignes entre
chaque.
Range("A49:N49,A55:N55,A73:N81").Delete Shift:=xlUp
Range("A18:N26").Copy
Range("A58:B58").Insert Shift:=xlDown
Range("A38:A39").Copy
Range("A40:N41").Copy
Range("A80").Insert Shift:=xlDown '1
Range("A89:N89,A95:N95,A113:N121").Delete Shift:=xlUp
Range("A18:N26").Copy
Range("A98:B98").Insert Shift:=xlDown
Range("A38:A39").Copy
Range("A40:N41").Copy
Range("A120").Insert Shift:=xlDown '2
Range("A129:N129,A135:N135,A153:N161").Delete Shift:=xlUp
Range("A18:N26").Copy
Range("A138:B138").Insert Shift:=xlDown
Range("A38:A39").Copy
Range("A40:N41").Copy
Range("A160").Insert Shift:=xlDown '3
http://cjoint.com/?gdbvbPRqkN
Merci
Bonjour satanas

Range("A38:A39").Copy oui est de trop !
Dans le fichier je veut modifier tout les pages comme la première page
(a2:N42).
dans la macros il faut suprimer des ligne et
insérer des lignes comme la première page.
Range("A49:N49,A55:N55,A71:N81").Delete Shift:=xlUp
Range("A18:N26").Copy
Range("A58:B58").Insert Shift:=xlDown
Range("A38:N41").Copy
Range("A80").Insert Shift:=xlDown '1
Range("A89:N89,A95:N95,A111:N121").Delete Shift:=xlUp
Range("A18:N26").Copy
Range("A98:B98").Insert Shift:=xlDown
Range("A38:N41").Copy
Range("A120").Insert Shift:=xlDown '2
Range("A129:N129,A135:N135,A151:N161").Delete Shift:=xlUp
Range("A18:N26").Copy
Range("A138:B138").Insert Shift:=xlDown
Range("A38:N41").Copy
Range("A160").Insert Shift:=xlDown '3
.........ect
End Sub
http://cjoint.com/?gdphCyO4rc
Merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Cette macros doit suprimer plusieur lignes et en insérer le même

nombres.

A la place d'inscrire le numéros de la ligne , faire dessendre la
cellule active et suprimer cette ligne (la ou est la cellule active) ,
dessendre au prochaine a suprimer et la suprimer pour après insérer
les même ligne que dans la premier page.

si on déplace la cellule active pour suprimer et insérer a ce moment
la j'aurait qua répéter la même procédure 429 fois (il pourait
insérer les ligne de la page supérieur insi de suite....)

For i = 1 To 429
blabla ''procédure''
Next
End Sub

Mais comment faire???
Merci- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Bonsoir Cousinhub

J'ai 8 fichier semblabe a celui la et ces pour cette raison que je
veut faire une macros pour les modifier, et mais colègue qui utilise
ses fichier sont peut familier avec les ordinateur donc je ne veut pas
trop les embourber en utilisant d'autre programme.

Merci






pellet15
Le #4943531
On 3 juin, 17:25, cousinhub
Bonsoir,
Justement, tes collègues, à la place de rechercher un tableau dans ta
feuille (qui en comporte 430), avec une petite macro toute simple,
comprenant un userform, arriveraient de suite à la ligne concernant le
relevé concerné, rempliraient les données qui vont bien, et si le
désir leur en prend, imprimeraient le relevé ad-hoc.
A méditer....
PS : l'avantage du publipostage vers word, si tu veux modifier la mise
en page, supprimer une donnée, en rajouter d'autre(s), quelque soit le
résultat voulu, ce sera fait automatiquement....(sans macro turbine à
gaz...)




On 3 juin, 17:02, pellet15
On 3 juin, 09:08, pellet15
On 3 juin, 03:11, "satanas09"
la piéce joint n'est pas disponible... et ton code n'est pas vraim ent
clair.. pour essayer de comprendre ce que tu fais ..! il semble avoi r des
lignes en trop (je vois pas trop à quoi cela sert de .Copy qui se suivent
...!
essai de mieux nous expliquer ce que tu veux faire..
"pellet15"
Bonsoir à tous
Comment faire pour simplifier la laccros suivant ?
ici elle est de trois répétition, mais j'ai besoin de 426
répétition !!
il y une constante dans une page il y a toujour 40 lignes entre
chaque.
Range("A49:N49,A55:N55,A73:N81").Delete Shift:=xlUp
Range("A18:N26").Copy
Range("A58:B58").Insert Shift:=xlDown
Range("A38:A39").Copy
Range("A40:N41").Copy
Range("A80").Insert Shift:=xlDown '1
Range("A89:N89,A95:N95,A113:N121").Delete Shift:=xlUp
Range("A18:N26").Copy
Range("A98:B98").Insert Shift:=xlDown
Range("A38:A39").Copy
Range("A40:N41").Copy
Range("A120").Insert Shift:=xlDown '2
Range("A129:N129,A135:N135,A153:N161").Delete Shift:=xlUp
Range("A18:N26").Copy
Range("A138:B138").Insert Shift:=xlDown
Range("A38:A39").Copy
Range("A40:N41").Copy
Range("A160").Insert Shift:=xlDown '3
http://cjoint.com/?gdbvbPRqkN
Merci
Bonjour satanas

Range("A38:A39").Copy oui est de trop !
Dans le fichier je veut modifier tout les pages comme la première p age
(a2:N42).
dans la macros il faut suprimer des ligne et
insérer des lignes comme la première page.
Range("A49:N49,A55:N55,A71:N81").Delete Shift:=xlUp
Range("A18:N26").Copy
Range("A58:B58").Insert Shift:=xlDown
Range("A38:N41").Copy
Range("A80").Insert Shift:=xlDown '1
Range("A89:N89,A95:N95,A111:N121").Delete Shift:=xlUp
Range("A18:N26").Copy
Range("A98:B98").Insert Shift:=xlDown
Range("A38:N41").Copy
Range("A120").Insert Shift:=xlDown '2
Range("A129:N129,A135:N135,A151:N161").Delete Shift:=xlUp
Range("A18:N26").Copy
Range("A138:B138").Insert Shift:=xlDown
Range("A38:N41").Copy
Range("A160").Insert Shift:=xlDown '3
.........ect
End Sub
http://cjoint.com/?gdphCyO4rc
Merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Cette macros doit suprimer plusieur lignes et en insérer le même

nombres.

A la place d'inscrire le numéros de la ligne , faire dessendre la
cellule active et suprimer cette ligne (la ou est la cellule active) ,
dessendre au prochaine a suprimer et la suprimer pour après insérer
les même ligne que dans la premier page.

si on déplace la cellule active pour suprimer et insérer a ce mome nt
la j'aurait qua répéter la même procédure 429 fois (il pourait
insérer les ligne de la page supérieur insi de suite....)

For i = 1 To 429
blabla ''procédure''
Next
End Sub

Mais comment faire???
Merci- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Bonsoir Cousinhub

J'ai 8 fichier semblabe a celui la et ces pour cette raison que je
veut faire une macros pour les modifier, et mais colègue qui utilise
ses fichier sont peut familier avec les ordinateur donc je ne veut pas
trop les embourber en utilisant d'autre programme.

Merci- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -


Rebonsoir Cousinhub

Tu a surment raison mais pour le moment je veut le conserver tel quel.
Je vait médité sur cela car je doit en reformuler un prochainement.
Merci pour l'idée.





Publicité
Poster une réponse
Anonyme