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."
.
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Michd
Le #26457925
Bonjour,
Une façon simple d'attribuer un nom à une plage de données
Worksheets("Feuil1").range("A1:A10").name = "Toto"
MichD
Publicité
Poster une réponse
Anonyme