Discussion :

[Faern]

Bonjour,

J'essaye en vain de faire une petite macro avec de renommer plusieurs cellules de plusieurs feuilles. Mais rien ne se passe.
J'ai tout essayé. Pouvez vous m'aider ?

Code :

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

1
2
3
4
5
6
7
ActiveWorkbook.Worksheets(1).Select
 
    For I = 1 To ActiveWorkbook.Worksheets.Count
        If InStr(Worksheets(I).Name, "VP Data") <> 0 Then
           ActiveWorkbook.Names.Add Name:="Vehicule", RefersTo:="Worksheets(I).Name!$D4"
        End If
    Next

Merci de votre aide.
Bonne journée.

[mercatog]

Bonjour

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim Sh As Worksheet
 
With ThisWorkbook
    For Each Sh In .Worksheets
        If InStr(Sh.Name, "VP Data") <> 0 Then
            .Names.Add Name:="Vehicule", RefersTo:="='" & Sh.Name & "'!$D$4"
            Exit For
        End If
    Next Sh
End With

[Faern]

Re-Bonjour,

J'ai essayé ça se lance mais mes cellules D4 ne sont pas renommées.
Je ne comprend pas pourquoi.

Edit : En fait ça marche mais que pour une cellule et j'aimerais que la même cellule mais sur plusieurs de mes feuilles porte ce nom. Est ce que c'est possible ?

[mercatog]

Tu ne peux pas nommer plusieurs cellules avec un même nom de portée Classeur.
Si tu as plusieurs feuilles comportant VP Data, tu peux boucler sur les feuilles et créer des noms de portée Feuille

Exemple

Code :

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

1
2
3
4
5
6
7
8
9
Dim Sh As Worksheet
 
With ThisWorkbook
    For Each Sh In .Worksheets
        If InStr(Sh.Name, "VP Data") <> 0 Then
            Sh.Names.Add Name:="Vehicule", RefersTo:="=$D$4"
        End If
    Next Sh
End With

[patricktoulon]

bonjour

la reponse est NON!!!
tu peut peut etre les nommer avec le meme nom suivi d'une extention

l'index du sheets par exemple

plus facile apres de les retrouver

exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim Sh As Worksheet
 
With ThisWorkbook
    For Each Sh In .Worksheets
        i= sh.index
If InStr(Sh.Name, "VP Data") <> 0 Then
            Sh.Names.Add Name:="Vehicule" & i, RefersTo:="=$D$4"
        End If
    Next Sh
End With

au plaisir

[Faern]

Je vous remercies pour toutes ces réponses

Désolé du double post et d'avoir enlever le label résolu.
Mais j'aimerais relancer le sujet.

Voila si je fais cela ça me créer bien un nom par feuille mais j'arrive pas à sélectionner ma cellule après

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim Sh As Worksheet
 
    With ThisWorkbook
        For Each Sh In .Worksheets
            If InStr(Sh.Name, "VP Data") <> 0 Then
                .Names.Add Name:="'Sh.Name'!" & "Vehicule", RefersToR1C1:="=" & Sh.Name & "!R4C4"
                'Exit For
            End If
        Next Sh
    End With
    Sheets("VP Data X61EV").Activate
    ActiveSheet.Range("Vehicule").Select

Merci de votre aide.

[mercatog]

Bonjour
Si tu relisais les explications, tu n'aurais pas fais d'amalgame.
Les noms sont de 2 types, les noms de portée feuille et les noms de portée classeur.
Dans une même feuille, tu ne peux pas avoir 2 plages portant le même nom de portée feuille, logique, non?
Dans un même classeur, tu ne peux pas avoir 2 plages portant le même nom de portée classeur, logique aussi, non?

Ton problème, tu veux nommer la cellule D4 de chaque feuille dont le nom comporte "VP Data" avec le même nom "Véhicule". Comme dit précédemment, les noms ne peuvent être que de portée feuille.
Donc, pour nommer, tu dois utiliser ce code

Code :

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

1
2
3
4
5
6
7
8
9
Dim Sh As Worksheet
 
With ThisWorkbook
    For Each Sh In .Worksheets
        If InStr(Sh.Name, "VP Data") <> 0 Then
            Sh.Names.Add Name:="Vehicule", RefersTo:="=$D$4"
        End If
    Next Sh
End With

Une simple question, pourquoi tu veux sélectionner la cellule nommée "véhicule" de la feuille "VP Data X61EV"?