Déclaration d'une variable "Public"

ChTi160

XLDnaute Barbatruc

• 19 Décembre 2017

• #2

Bonjour Magic_Doctor
Bonjour Le Fil ,Le Forum
peut être en mettant ?

VB:

Const BigPlage As String = "AC46, AM46, AW46, AX46"
Sub test()
MsgBox Range(BigPlage).Address
End Sub

Bonne journée
Amicalement
Jean marie

 

Dernière édition: 19 Décembre 2017

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

• 19 Décembre 2017

• #3

Bonjour ChTi60,

Ça ne marche pas.

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 19 Décembre 2017

• #4

Bonjour Magic_Doctor, Chti1960,

essaie set BigPlage=.......

bonne journée.

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 19 Décembre 2017

• #5

re
c est quoi qui marche pas lol?

 

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

• 19 Décembre 2017

• #6

Re,

Je viens d'essayer à nouveau, maintenant ça marche.
J'ai dû me planter la 1ère fois.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Décembre 2017

• #7

Bonjour Magic_Doctor, ChTi60, cp4,

Le plus classique est d'initialiser dans la Workbook_Open la variable déclarée Public (dans un Module standard).

Une autre solution consiste à utiliser un nom défini au lieu d'une variable VBA.

A+

 

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

• 19 Décembre 2017

• #8

Bonsoir job,

Bien qu'en fait je ne pense pas que cela puisse me servir pour résoudre un autre problème, j'ai tenté ta 2ème solution ne serait-ce que par curiosité.
Je suis allé à Formule/Administrateur de noms (je traduis...), et là :
Nom : tartampion
Fait référence à : =Union(Range("AC46"); Range("AM46"); Range("AW46"); Range("AX46"))

Dans une petite routine j'écris :
[tartampion].Select ---> ne marche pas

Mais nom de scrogneugneu, où me suis-je donc encore planté ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Décembre 2017

• #9

Bonsoir le fil, le forum

Ceci fonctionne, mais cela n'apporte pas grand chose en terme de praticité
(à tester avec deux feuilles)

VB:

Public BigRange As Range
Sub test1()
Dim f As Worksheet: Set f = Sheets(1)
Set BigRange = Union(f.[AC46], f.[AM46], f.[AW46], f.[AX46])
MsgBox BigRange.Parent.Name & Chr(13) & BigRange.Address(0, 0)
End Sub
Sub test2()
Dim f As Worksheet: Set f = Sheets(2)
Set BigRange = Union(f.[AC46], f.[AM46], f.[AW46], f.[AX46])
MsgBox BigRange.Parent.Name & Chr(13) & BigRange.Address(0, 0)
End Sub

Fais ensuite ce test avec ces modifs, tu verras la différence

VB:

Sub test3()
Dim f As Worksheet: Set f = Sheets(1)
Set BigRange = Union(f.[AC46], f.[AM46], f.[AW46], f.[AX46])
MsgBox BigRange.Parent.Name & Chr(13) & BigRange.Address(0, 0)
End Sub
Sub test4()
Dim f As Worksheet: Set f = Sheets(2)
MsgBox BigRange.Parent.Name & Chr(13) & BigRange.Address(0, 0)
End Sub

 

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

• 19 Décembre 2017

• #10

Bonjour Staple,

Et oui, ça finit par devenir très compliqué tout ça.

Je pense que la solution la plus ergonomique est celle de job.
Je viens de me rendre compte que j'ai mélangé VBA avec le langage "débile" d'Excel. TOUT devrait être en anglais pour ces histoires-là !
Bref, plein d'optimisme, j'écris cette fois :
Nom : tartampion
Fait référence à : =AC46; AM46; AW46; AX46

Dans la routine j'écris :
[tartampion].Select ---> ne marche toujours pas... ¡MIERDA!

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Décembre 2017

• #11

Re

Tu veux que ta BigRange concerne une feuille en particulier ou toutes les feuilles du classeur?

 

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

• 19 Décembre 2017

• #12

Re,

Dans mon classeur il n'y aura qu'une seule feuille de formules.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Décembre 2017

• #13

Re

@Magic_Doctor
Je ne te parle pas de formules, mais de noms
Fais ce test sur un classeur vierge avec 4 ou 5 feuilles

VB:

Sub Macro1()
Dim ws As Worksheet
For Each ws In Worksheets
ActiveWorkbook.Names.Add Name:=ws.Name & "!TITI", RefersToR1C1:="=" & ws.Name & "!R1C2"
Next
End Sub

Puis va voir dans le gestionnaire de noms

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Décembre 2017

• #14

Re,

Pour nommer une plage multiple, il suffit de sélectionner les cellules avec la touche Ctrl enfoncée.

Ensuite aller dans le Gestionnaire de noms pour créer le nom : la référence est affichée en bas.

A+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Décembre 2017

• #15

Bonsoir job75

J'avais compris que Magic_Doctor voulait donner le même nom à une plage de cellules quelque soit la feuille
(d'où la macro dans le message précédent)

 

Vote positif 0 Vote négatif