Discussion :

[mama12]

Bonjour,
Je débute en VBA, et je souhaiterais faire un script qui nomme une plage de données identique (de A1 jusqu'à C11) sur différentes feuilles en reprenant le nom de la feuille contenue dans mon classeur, à l'exception de 2 feuilles.
J'ai visualisé le programme après avoir exécuté une macro mais le problème étant qu'il s'exécute pour une feuille précise.
Voici ci-dessous le script que j'ai fait mais qui ne fonctionne malheureusement pas!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub plage_de_donées()
Dim sht As Worksheet 'déclare la variable o (Onglet)
For Each sht In Sheets 'boucle sur tous les onglets du classeur
    Select Case sht.Name 'agit en fonction du nom de l'onglet
        Case "Données" 'pour ce cas là pas d'action
        Case "Mise en forme" 'pour ce cas là pas d'action
        Case Else 'pour tous les autres cas
        nom_feuille = sht.Name
        Range("A1:C11").Select
        ActiveWorkbook.Names.Add Name:=nom_feuille, RefersToR1C1:="=ActiveSheet!R1C1:R11C3"
Next sht
End Sub

Si quelqu'un pourrait m'aider à résoudre ce problème
Merci d'avance pour vos réponses

Cordialement

[78chris]

Bonjour

Ceci suffit

Code :

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

1
2
3
4
5
6
7
8
Sub plage_de_donées()
Dim sht As Worksheet 'déclare la variable o (Onglet)
For Each sht In Sheets 'boucle sur tous les onglets du classeur
    If sht.Name <> "Données" And sht.Name <> "Mise en forme" Then
        ActiveWorkbook.Names.Add Name:=sht.Name, RefersToR1C1:="=ActiveSheet!R1C1:R11C3"
    End If
Next sht
End Sub

mais un nom de pouvant contenir d'espace ou certains autres caractères, tu risques un problème si les noms des feuilles en ont.
Donc plutôt cela (si seulement des espaces)

Code :

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

1
2
3
4
5
6
7
8
Sub plage_de_donées()
Dim sht As Worksheet 'déclare la variable o (Onglet)
For Each sht In Sheets 'boucle sur tous les onglets du classeur
    If sht.Name <> "Données" And sht.Name <> "Mise en forme" Then
        ActiveWorkbook.Names.Add Name:=Replace(sht.Name, " ", "_"), RefersToR1C1:="=ActiveSheet!R1C1:R11C3"
    End If
Next sht
End Sub

[mama12]

Merci pour votre réponse, j'ai testé les deux scripts que vous me proposez cependant une erreur 1004 survient.
De plus si dans mes noms j'ai des "+" ou "-" je dois les remplacer comme pour les espaces?

[78chris]

RE

Les noms dans Excel ne peuvent

• commencer par un chiffre
• contenir d'espace ou de caractères autres que
  
  • \ _ .
  • 0 à 9
  • les lettres de alphabet

[mama12]

RE
J'ai bien fait attention aux noms auquels je fais référence mais l'erreur 1004 persiste

[78chris]

RE

J'ai testé mon code avant de le poster et il fonctionne

Donc il faut travailler en mode debug et voir sur quel onglet se produit le problème.

1004 est une erreur très générique donc sans plus d'info, on n'avancera pas