Discussion :

[Kaera]

Bonjour à toutes et à tous !

Nouvelle sur le forum, vous pouvez m'appeler Kaera !

Mon problème est le suivant :

J'ai un certain nombre de feuilles nommées numériquement (1, 2, 3 ,4...).
Chaque feuille paire contient des infos que je veux copier et coller sur la feuille impaire qui la précède.

Concrètement, en mots, ça donne par exemple :
Sélectionner feuille 2
Copier "A1:D5"
Sélectionne feuille 1
Coller sur "A1:D5"

Sélectionner feuille 4
Copier "A1:D5"
Sélectionne feuille 3
Coller sur "A1:D5"

Etc.

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
Dim sh As Worksheet
 
    For Each sh In ThisWorkbook.Worksheets
 
        If sh.Name Mod 2 = 0 Then
        sh.Range("A25:D26").Copy
        ActiveSheet.Previous.Select
        Selection.Range("A25:D26").Paste
        ActiveSheet.Next.Select
        ActiveSheet.Next.Select
        End If
    Next sh

NB : j'ai écrit deux fois "ActiveSheet.Next.Select" sinon ça va tourner en boucle sur les deux premières feuilles !

Erreur "incompatibilité de type" sur l'utilisation du sh.Name Mod 2 ...
Auriez-vous des solutions ?
Je ne parviens pas à définir sh.Name comme variable

Un grand merci d'avance.

[Qwazerty]

Salut et bienvenu
Je procéderais plutôt comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
Dim sh As Worksheet
Dim iName As Integer
 
    'On boucle de 2 en 2 (step 2)
    'Il faudra peut-être corrigé la valeur retournée par le .count
    For iName = 2 To ThisWorkbook.Worksheets.Count Step 2
        'On pointe la feuille ayant la valeur pour nom
        Set sh = ThisWorkbook.Worksheets(CStr(iName))
        'On copie les donnée dans la feuille précédente
        sh.Range("A25:D26").Copy ThisWorkbook.Worksheets(CStr(iName - 1))
    Next

J'ai juste un doute sur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.Worksheets.Count

ça ne retournera pas forcement la bonne valeur en fonction du nombre d'onglet présent dans le classeur qui ne font pas partie des onglets ayant un valeur numérique en tant que nom.

++
Qwaz

[Kaera]

Bonjour Qwazerty !

Merci de ton accueil et merci pour ton aide.
J'ai appliqué ton code dans ma macro mais il en résulte une erreur "La méthode Copy de la classe Range" sur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sh.Range("A25:D26").Copy ThisWorkbook.Worksheets(CStr(iName - 1))

? ?

Merci d'avance !

Kaera

[Qwazerty]

Oupss

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

        sh.Range("A25:D26").Copy ThisWorkbook.Worksheets(CStr(iName - 1)).Range("A25:D26")

Par contre si tu ne veux copier que les valeur contenues dans les cellule, sans la mise en forme, tu peux aussi mettre ça à la place

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Feuil1.Range("A25:D26").Value = Feuil2.Range("A25:D26").Value

++
Qwaz

[Kaera]

J'ai pensé à ce que tu as mis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Feuil1.Range("A25:D26").Value = Feuil2.Range("A25:D26").Value

Mais je ne peux pas indiquer "Feuil1" (ou Feuil2, etc...) parce que le nom de mes feuilles varie. J'ai un nombre de feuilles qui peut varier (je peux en avoir 6 comme je peux en avoir 24!) et le traitement doit se faire pour toutes les feuilles.


J'ai appliqué la modification que tu m'as donnée mais j'ai une erreur "l'indice n'appartient pas à la sélection" sur la ligne :
Set sh = ThisWorkbook.Worksheets(CStr(iName))


Merci d'avance

[Qwazerty]

Décidément... je dis que des bêtises ce matin...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
Dim sh As Worksheet
Dim iName As Integer
 
    'On boucle de 2 en 2 (step 2)
    'Il faudra peut-être corrigé la valeur retournée par le .count
    For iName = 2 To ThisWorkbook.Worksheets.Count Step 2
        'On pointe la feuille ayant la valeur pour nom
        Set sh = ThisWorkbook.Worksheets(CStr(iName))
        'On copie les donnée dans la feuille précédente
        ThisWorkbook.Worksheets(CStr(iName - 1)).Range("A25:D26").Value = sh.Range("A25:D26").Value
    Next
End Sub

++
Qwaz