Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Copier Range en fonction année

Copier Range en fonction année

3 réponses
Avatar
S3com
Bonjour,

Je suppose que il s'agit d'une fonction que l'on doit mettre dans la
partie privateworkbook.

Pourrais t'on m'eguiller sur la facon de:

- copier une range (en fonction de l'ann=E9e),
- de coller sur toutes les feuilles du classeur sauf 3 ( dont les noms
sont donn=E9s mais dont leur presence est hasardeuse!)

Merci
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonjour.
Précise quel range selon quelle condition.
Cordialement.
Daniel
"S3com" a écrit dans le message de news:

Bonjour,

Je suppose que il s'agit d'une fonction que l'on doit mettre dans la
partie privateworkbook.

Pourrais t'on m'eguiller sur la facon de:

- copier une range (en fonction de l'année),
- de coller sur toutes les feuilles du classeur sauf 3 ( dont les noms
sont donnés mais dont leur presence est hasardeuse!)

Merci
Avatar
S3com
Bonjour daniel et merci de ton aide.

la range est : Range("E11:F75")
la condition est : si la date d'ouverture du fichier est superieur
au 10 aout de l'année courante alors creer une copie de cette range et
qu'il la positionne sur [G11]

Et en 2008 je voudrais qu'il crée une copie de la range créé en 2007
("G11:H75") et qu'il la positionne sur [I11]....


Le but est un tableau comparatif 2006/2007/2008.....
Est possible??

Merci
Avatar
Daniel
Bonjour.
Mets le code suivant dans "this workbook. La copie se fait sur toutes les
feuilles à l'exception de trois dont tu dois changer les noms.

Private Sub Workbook_Open()
Dim Dat As Date, sh As Worksheet
Dat = DateSerial(Year(Date), 8, 10)
If Date > "31/12/2007" Then
Range("G11:H75").Copy
For Each sh In Sheets
If sh.Name <> "toto" And sh.Name <> "titi" And sh.Name <> "tata"
Then
sh.Select
Range("I11").Select
ActiveSheet.Paste
End If
Next sh
ElseIf Date > Dat Then
Range("E11:F75").Copy
For Each sh In Sheets
If sh.Name <> "toto" And sh.Name <> "titi" And sh.Name <> "tata"
Then
sh.Select
Range("G11").Select
ActiveSheet.Paste
End If
Next sh
End If
For Each sh In Sheets
If sh.Name <> "toto" And sh.Name <> "titi" And sh.Name <> "tata"
Then
sh.Select
Range("G11").Select
ActiveSheet.Paste
End If
Next sh
Application.CutCopyMode = False
End Sub

Cordialement.
Daniel
"S3com" a écrit dans le message de news:

Bonjour daniel et merci de ton aide.

la range est : Range("E11:F75")
la condition est : si la date d'ouverture du fichier est superieur
au 10 aout de l'année courante alors creer une copie de cette range et
qu'il la positionne sur [G11]

Et en 2008 je voudrais qu'il crée une copie de la range créé en 2007
("G11:H75") et qu'il la positionne sur [I11]....


Le but est un tableau comparatif 2006/2007/2008.....
Est possible??

Merci