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

simplification texte VBA

1 réponse
Avatar
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:="=Feuil1!R1C1:R10C1"

Sheets("Feuil2").Select
Range("B1:B15").Select
ActiveWorkbook.Names.Add Name:="noms",
RefersToR1C1:="=Feuil2!R1C2:R15C2"

Range("C5").Select
End Sub
-------------------------
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.

1 réponse

Avatar
Michd
Bonjour,
Une façon simple d'attribuer un nom à une plage de données
Worksheets("Feuil1").range("A1:A10").name = "Toto"
MichD