MACRO pour copier feuille à feuille

Re : MACRO pour copier feuille à feuille

Je n'y arrive pas avec cette macro, je l'ai copié tel quel, il ne se passe rien.

Je vais reprendre ma demande, c'est de pouvoir copier en étant dans une feuille n+1 (feuille suivante), pouvoir copier la plage ou les lignes que je souhaite, issue de la feuille n (C'est à dire la feuille précédente)

Sachant que toute les feuilles du classeurs possèdent le même tableau.

il faudrait que les lignes ou la plage copiés viennent se coller dans ce tableau.
j'avais pris pour exemple la plage A13:Z66

La plage de la feuille n (A13:Z66)
se copie dans
La plage de la feuille n+1 toujours en A13:Z66

Ou peut être, dans le même principe
de faire la même chose avec un critere
1°) copier les les lignes si dans une cellule on a une valeur "R"
2°) copier les les lignes si dans une cellule on a une valeur "S"
3°) copier les les lignes si dans une cellule on a "S" et "OK" à la fois
En faisant une importation partant de la feuile précédente

j'espere que je me fais comprendre
si besoins, je vous montre tableau

merci d'avance

Re : MACRO pour copier feuille à feuille

Désolé, cela marche très bien, jai reessayé, genial

Re : MACRO pour copier feuille à feuille

Staple1600 à dit:

Bonsoir

Code:

Sub copie_f_next()
Dim ADRS$
Dim r As Range
Dim rr As Range
ADRS = "A13:AA66"
Set r = ActiveSheet.Range(ADRS)
Set rr = ActiveSheet.Next.Range(ADRS)
r.Copy rr
End Sub

Cliquez pour agrandir...

Par contre comment faire, si dans un classeur j'ai plusieurs feuilles

il me faut refaire une macro, sur chaque feuille, pour remonter la plage que je souhaite issue d ela feuille précédente?