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

baptiser plage en VBA

3 réponses
Avatar
Jacquouille
Bonjour
j'ai environ 25 noms de plage à donner (tout un calendrier, rien que pour le
baptême)
pour des plages (ex:A2:A10000)

Sheets("statistiques").Select
Range("J2:J10000").Select
ActiveWorkbook.Names.Add Name:="dat_IN", RefersToR1C1:= _
"=statistiques!R2C10:R10000C10"
ensuite, col K -->dat_OUT .....

n'Y aurait-il pas un moyen plus élégant et plus rapide que cela?
Merci et bon W-e à tous et tousses.

Jacquouille

" Le vin est au repas ce que le parfum est à la femme."

3 réponses

Avatar
isabelle
bonjour Jacquouille,

si la ligne 1 est la ligne de titre,

Sub Macro1()
Sheets("statistiques").Range("A1:J10000").CreateNames Top:=True
End Sub

isabelle

Le 2011-03-06 09:22, Jacquouille a écrit :
Bonjour
j'ai environ 25 noms de plage à donner (tout un calendrier, rien que
pour le baptême)
pour des plages (ex:A2:A10000)

Sheets("statistiques").Select
Range("J2:J10000").Select
ActiveWorkbook.Names.Add Name:="dat_IN", RefersToR1C1:= _
"=statistiques!R2C10:R10000C10"
ensuite, col K -->dat_OUT .....

n'Y aurait-il pas un moyen plus élégant et plus rapide que cela?
Merci et bon W-e à tous et tousses.

Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
Avatar
DanielCo
Bonjour Jacquouille,
Range("J2:J10000").Name="Nom"
Cordialement.
Daniel


Bonjour
j'ai environ 25 noms de plage à donner (tout un calendrier, rien que pour le
baptême)
pour des plages (ex:A2:A10000)

Sheets("statistiques").Select
Range("J2:J10000").Select
ActiveWorkbook.Names.Add Name:="dat_IN", RefersToR1C1:= _
"=statistiques!R2C10:R10000C10"
ensuite, col K -->dat_OUT .....

n'Y aurait-il pas un moyen plus élégant et plus rapide que cela?
Merci et bon W-e à tous et tousses.

Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
Avatar
Jacquouille
Un grand merci à Ysabelle et à Daniel.
Mon projet avance bien, grâce à vous.
Jacques



Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"Jacquouille" a écrit dans le message de groupe de discussion :
4d739890$0$14261$

Bonjour
j'ai environ 25 noms de plage à donner (tout un calendrier, rien que pour le
baptême)
pour des plages (ex:A2:A10000)

Sheets("statistiques").Select
Range("J2:J10000").Select
ActiveWorkbook.Names.Add Name:="dat_IN", RefersToR1C1:= _
"=statistiques!R2C10:R10000C10"
ensuite, col K -->dat_OUT .....

n'Y aurait-il pas un moyen plus élégant et plus rapide que cela?
Merci et bon W-e à tous et tousses.

Jacquouille

" Le vin est au repas ce que le parfum est à la femme."