[XL-2010] (VBA) Utiliser nom de feuille comme variable [Résolu]

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

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 :

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

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

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

? ?

Merci d'avance !

Kaera

[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

[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

[Qwazerty]

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

[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 ?


Merci d'avance

[Ormonth]

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

[Qwazerty]

Salut

@Ormonth: Possible, mais pourtant

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

[Ormonth]

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

[Kaera]

Bonjour Ormonth, re Qwazerty,

Ca fonctionne à merveille !
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 !

[Ormonth]

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

[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 ?

Merci en tout cas

[Qwazerty]

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

[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 !