(VBA) Utiliser nom de feuille comme variable

Version imprimable

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:

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 :cry:

Un grand merci d'avance.

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

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:

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

21/11/2011, 09h13
Kaera

Bonjour Qwazerty !

Merci de ton accueil et merci pour ton aide. :ccool:
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:

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

? :question: ?

Merci d'avance !

Kaera
21/11/2011, 09h18
Qwazerty

Oupss

Code:

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:

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

++
Qwaz
21/11/2011, 09h35
Kaera

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

Code:

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

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

Code:

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

21/11/2011, 11h17
Kaera

C'est dingue ! Ton code fonctionne impec puisque les copier/coller sont effectués exactement comme il faut mais il me pointe quand même la même erreur (indice qui n'appartient pas à la sélection) sur la ligne dont je t'ai parlé dans mon précédent message.
Pourquoi générer une erreur si pourtant le code est exécuté comme il faut ?
:question:

Merci d'avance
21/11/2011, 11h32
Didier Gonard

Bonjour,

Parceque tu donnes en index un string ?

vois :

Code:

Set sh = ThisWorkbook.Worksheets("Feuil" & CStr(iName))

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue

Didier
21/11/2011, 12h04
Qwazerty

Salut

@Ormonth: Possible, mais pourtant

Citation:

Envoyé par Kaera

J'ai un certain nombre de feuilles nommées numériquement (1, 2, 3 ,4...).

Donc je doute que ça vienne de la.

Par contre comme je l'ai mis en commentaire dans le code

Code:

ThisWorkbook.Worksheets.Count

n'est peut etre pas très heureux, il retourne le nombre total de feuille du classeur.
Or, imaginons le cas suivant
des feuilles numérotées de 1 à 10 plus 2 autre feuilles "Accueil" et "Options"

Code:

ThisWorkbook.Worksheets.Count

renvoie 12 et donc dans la boucle

Code:

ThisWorkbook.Worksheets(CStr(iName))

Tente de faire référence à une feuille nommée "12"... qui n'existe pas.

Sans connaitre les besoin exact, je ne sais pas quoi te proposer, le nombre d'onglets numériques est il fixe?

L'erreur survenant à la dernière occurrence de la boucle For, ce qui explique que tous les autres onglets ont déjà été traités sans erreur ;)

++
Qwaz

Bonjour,

@exact Qwazerty ;)

en adaptant ton code ainsi :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Option Explicit
Option Base 1
Sub test2()
Dim sh As Worksheet
Dim tbo()As Variant
Dim iName As Long
Dim iName As Long
 
For Each sh In ThisWorkbook.Worksheets
If IsNumeric(sh.Name) Then
    ReDim tbo(Val(sh.Name))
    tbo(Val(sh.Name)) = sh.Name
End If
Next sh
For iName = 2 To UBound(tbo) 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

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue

Didier

21/11/2011, 13h16
Kaera

Bonjour Ormonth, re Qwazerty,

Ca fonctionne à merveille ! :ccool:
Merci beaucoup à vous deux, et merci Ormonth pour les tuyaux, je découvre tout juste le forum et je n'ai pas encore acquis ces réflexes !

See ya !

Bonjour,

plus concis en mélangeant le tout.. à tester :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test3()
Dim sh As Worksheet
 
For Each sh In ThisWorkbook.Worksheets
If IsNumeric(sh.Name) Then
    If sh.Name Mod 2 = 0 Then
    '    ReDim tbo(Val(sh.Name))
         'On pointe la feuille ayant la valeur pour nom
        Set sh = ThisWorkbook.Worksheets(sh.Name)
        'On copie les donnée dans la feuille précédente
        ThisWorkbook.Worksheets(CStr(sh.Name - 1)).Range("A25:D26").Value = sh.Range("A25:D26").Value
    End If
End If
Next sh

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue

Didier

21/11/2011, 15h17
Kaera

Re bonjour,

C'est ce que j'avais testé au tout départ, avant de venir chercher de l'aider sur le forum :

Code:

If sh.Name Mod 2 = 0

mais ça me générait une erreur parce qu'il refusait le sh.Name utilisé avec un modulo. Si vous me le proposez, je suppose que la syntaxe est donc pourtant correcte ! Serais-je victime de discrimination de la part d'Excel ? :D

Merci en tout cas :ave:

Salut
Non pas de discrimination :) c'est juste que certain de tes onglets doivent avoir un nom qui ne peut être transformé en valeur numérique et donc aucune opération ne peut être effectuée "Accueil" Mod 2.
Avant de faire le teste Ormonth a d'abord regardé si la nom de la feuille pouvait être interprété par VB comme étant numérique (IsNumeric).

Par contre, si tu utilises For Next, cette ligne devient inutile

Code:

Set sh = ThisWorkbook.Worksheets(sh.Name)
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub test3() Dim sh As Worksheet For Each sh In ThisWorkbook.Worksheets If IsNumeric(sh.Name) Then If sh.Name Mod 2 = 0 Then 'On copie les donnée dans la feuille précédente ThisWorkbook.Worksheets(CStr(sh.Name - 1)).Range("A25:D26").Value = sh.Range("A25:D26").Value End If End If Next
++
Qwaz

22/11/2011, 08h06
Kaera

J'aurais dû y penser ! (à IsNumeric)

Des membres qui prennent le temps d'expliquer clairement tout en étant agréables...j'y suis j'y reste ! :ccool: