[Résolu]Modifier l'étendue d'un nom en VBA

vgendron

XLDnaute Barbatruc

• 1 Février 2013

• #2

Re : Modifier l'étendue d'un nom en VBA

Bonjour,
en fait c'est pas très clair..
si dans ta feuille "UneFeuille" tu as une range qui s'appelle "plage"
pour redimensionner cette plage, tu as plusieurs solutions selon ton besoin: exemple, en utilisant range("Plage").resize(lig, col)
ensuite.. si tu veux étendre cette plage à toute la feuille.... pourquoi ne pas utiliser directement le nom de cette feuille? Sheets("UneFeuille")
pour étendre ensuite à tout le classeur.. utilise le nom du classeur. tout simplement? workbook("Nomduclasseur")

Pour finir. avec un fichier exemple, ca permettrait de mieux cerner ton souci

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Février 2013

• #3

Re : Modifier l'étendue d'un nom en VBA

Bonjour mamyfik, vgendron,

Voyez le fichier joint et cette macro dans le code de la feuille :

Code:

Private Sub OptionButton1_Change()
On Error Resume Next
Me.Names("Plage").Delete
ThisWorkbook.Names("Plage").Delete
IIf(OptionButton1, Me, ThisWorkbook).Names.Add _
  "Plage", Range("A2", [A65536].End(xlUp))
ActiveCell.Activate
End Sub

Le nom Plage est défini soit dans la feuille soit dans le classeur.

A+

 

Pièces jointes

• Nom défini(1).xls

  38.5 KB · Affichages: 218

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 1 Février 2013

• #4

Re : Modifier l'étendue d'un nom en VBA

Hello tous..
et merci Job.. d'une: je n'avais donc pas compris la question, de deux, je n'avais jamais vu qu'on pouvait modifier l'étendue d'une plage nommée..
je dormirai encore moins bete ce soir..;-)

 

Vote positif 0 Vote négatif

A

Abel

XLDnaute Accro

• 1 Février 2013

• #5

Re : Modifier l'étendue d'un nom en VBA

Bonjour mamyfik, le fil,

Je suis peut être à côté de la plaque.

Mais peut être en passant par des plages nommées.

Voir exemple joint. Ces plages s'adapteront automatique au fur et à mesure de l'ajout de nouvelles données.
Corollaire, il faut une clé primaire. Dans mon exemple, la première colonne (N°) doit toujours être remplie.
Pour voir le fonctionnement des plages nommées, va dans le menu Insertion/Nom/définir (Excel 2003).
Ces plages peuvent être réutilisées dans des USF, par exemple.

En espérant que cela dépanne.

Abel.

Edit : oups pas rafraichi ... Tiens, belle solution pour le faire par macro.

 

Pièces jointes

• Exple_mayfik_plages_nommees.xls

  16.5 KB · Affichages: 179

Dernière édition: 1 Février 2013

Vote positif 0 Vote négatif

M

mamyfik

Guest

• 1 Février 2013

• #6

Re : Modifier l'étendue d'un nom en VBA

Merci beaucoup pour vos réponses!
Mr Job, c'est nikel avec ce que tu me montres 🙂 c'est ce que je voulais faire.
Désolé de pas avoir été super super clair!

Merci à tous!

Sujet amplement résolu.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Février 2013

• #7

Re : Modifier l'étendue d'un nom en VBA

Re,

Le nom Plage peut être défini par une formule (quelconque) qu'on mémorise :

Code:

Private Sub OptionButton1_Change()
Dim nom1 As Name, nom2 As Name, formule As String
On Error Resume Next
Set nom1 = Me.Names("Plage"): Set nom2 = Me.Parent.Names("Plage")
formule = nom1.RefersTo: nom1.Delete
formule = nom2.RefersTo: nom2.Delete
IIf(OptionButton1, Me, Me.Parent).Names.Add "Plage", formule
ActiveCell.Activate
End Sub

Fichier (2).

A+

 

Pièces jointes

• Nom défini(2).xls

  39.5 KB · Affichages: 153

Vote positif 0 Vote négatif