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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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" <tip.tiptop@free.fr> a écrit dans le message de news:
4569d00c$0$5419$426a74cc@news.free.fr...
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
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