simplification texte VBA
Le
Jacquouille

Bonjour,
Je cherche à attribuer des noms de plage sur différentes feuilles.
Voici ce que donne l'enregistreur.
Est-il possible d'alléger et de rendre plus "académique", svp ?
Grand merci
-
Sub test_nom()
Range("A1:A10").Select 'feuil1
ActiveWorkbook.Names.Add Name:="dat", RefersToR1C1:="þuil1!R1C1:R10C1"
Sheets("Feuil2").Select
Range("B1:B15").Select
ActiveWorkbook.Names.Add Name:="noms",
RefersToR1C1:="þuil2!R1C2:R15C2"
Range("C5").Select
End Sub
-
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
Je cherche à attribuer des noms de plage sur différentes feuilles.
Voici ce que donne l'enregistreur.
Est-il possible d'alléger et de rendre plus "académique", svp ?
Grand merci
-
Sub test_nom()
Range("A1:A10").Select 'feuil1
ActiveWorkbook.Names.Add Name:="dat", RefersToR1C1:="þuil1!R1C1:R10C1"
Sheets("Feuil2").Select
Range("B1:B15").Select
ActiveWorkbook.Names.Add Name:="noms",
RefersToR1C1:="þuil2!R1C2:R15C2"
Range("C5").Select
End Sub
-
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
Une façon simple d'attribuer un nom à une plage de données
Worksheets("Feuil1").range("A1:A10").name = "Toto"
MichD