Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Quelle st la syntaxe ou comment faire

1 réponse
Avatar
tip.tiptop
Voilà dans mon code j'aimerai bien adapter les 2 lignes suivantes que j'ai
obtenues par enregistrer macro, mais avec un petit bémol.
.
Comment les appliquer poutr toute les feuilles du classeur qui comporte lui
plus de 60 feuilles.

Comment donc remplacer le nom de ma feuille, dans cette exemple
ABA_A_MARTIN par le nom de la feuille active ?
Problème de syntaxe

ActiveWorkbook.Names.Add Name:="QUOTIENT", RefersToR1C1:= _
"=ABA_A_MARTIN!R2C9"

1 réponse

Avatar
MichDenis
2 façons d'obtenir ce que tu veux...mais la méthode 2 est la meilleure

Méthode I
'-------------------------------------
Sub test()

Dim Nb As Integer, A As Integer
Nb = Worksheets.Count

With ThisWorkbook.Names
For A = 1 To Nb
.Add Name:="QUOTIENT", RefersToR1C1:= _
"=!R2C9"
Next
End With

End Sub
'-------------------------------------


Méthode II
'-------------------------------------
Sub test1()

Dim Nb As Integer, A As Integer
Nb = Worksheets.Count

With ThisWorkbook.Names
For A = 1 To Nb
.Add Name:="QUOTIENT", RefersToR1C1:= _
"=Indirect(""I2"")"
Next
End With

End Sub
'-------------------------------------






"tip.tiptop" a écrit dans le message de news:
4569d00c$0$5419$
Voilà dans mon code j'aimerai bien adapter les 2 lignes suivantes que j'ai
obtenues par enregistrer macro, mais avec un petit bémol.
.
Comment les appliquer poutr toute les feuilles du classeur qui comporte lui
plus de 60 feuilles.

Comment donc remplacer le nom de ma feuille, dans cette exemple
ABA_A_MARTIN par le nom de la feuille active ?
Problème de syntaxe

ActiveWorkbook.Names.Add Name:="QUOTIENT", RefersToR1C1:= _
"«A_A_MARTIN!R2C9"