Attribuer un nom à l'aire de travail d'une feuille

[Magic_Doctor]

Bonsoir,

J'ai une feuille et, comme toute feuille, seules quelques cellules sont utilisées, le reste ne servant strictement à rien.
Je voudrais connaître les coordonnées de la plage utilisée de la feuille et attribuer automatiquement (dès l'ouverture de la feuille par exemple) un nom à cette plage.

Ci-joint une feuille avec des explications peut-être plus claires.

Merci d'avance pour tout conseil.

 

[CHALET53]

Re : Attribuer un nom à l'aire de travail d'une feuille

bonsoir,

Peut-être un début de solution par l'analyse des cellules
A compléter
Je délimite seulement la zone
A toi de voir
J'ai volontairement limité la zone de recherche
a+

 

[Magic_Doctor]

Re : Attribuer un nom à l'aire de travail d'une feuille

Bonsoir,

Merci pour ton intervention.

En fait, en y réfléchissant bien, il est inutile d'explorer dans la feuille de vastes surfaces.
En général l'aire de travail est relativement réduite (du moins en ce qui me concerne), sauf, bien sûr, si l'on travaille avec de grandes bases de données et des tableaux interminables. Mais, dans ce cas, Access ne serait-il pas mieux adapté ?
Il y aurait-il un moyen de récupérer les coordonnées de la 1ère cellule de la feuille "où il se passe quelque chose", et celles de la dernière ? On aurait ainsi les coordonnées de la plage "où des choses se passent" ; il ne resterait plus alors que de lui attribuer un nom.

 

[job75]

Re : Attribuer un nom à l'aire de travail d'une feuille

Bonsoir Magic_Doctor, CHALET53,

Il y a classiquement :

Set zone = ActiveSheet.UsedRange
MsgBox zone.Address 'pour tester

mais cela ne donne pas toujours le résultat escompté.

A+

 

[Magic_Doctor]

Re : Attribuer un nom à l'aire de travail d'une feuille

Bonsoir job,

J'ai essayé ta solution.
Le MsgBox me renvoie : $A$1:$AA$24
Alors que j'attendais : $C$4:$L$23

Effectivement, "cela ne donne pas toujours le résultat escompté."

J'étudie la solution de Chalet qui n'est pas évidente à priori.

Quoi qu'il en soit, bonne nuit à tous.

Ce soir, tempête à Montevideo (qui s'est déclenchée en 3 minutes !).

 

[CHALET53]

Re : Attribuer un nom à l'aire de travail d'une feuille

Re,
A partir du programme en cellule A1
Relance le programme
zone nommée : tata

 

[job75]

Re : Attribuer un nom à l'aire de travail d'une feuille

Bonjour à tous,

S'il s'agit de repérer les cellules avec des bordures sur tout le contour :

Sub ZoneUtile()
Dim c As Range, flag As Boolean, i As Byte, zone As Range
For Each c In ActiveSheet.UsedRange
  flag = True
  For i = 7 To 10
    If c.Borders(i).LineStyle = xlNone Then flag = False: Exit For
  Next
  If Not IsEmpty(c) Or flag Then _
    Set zone = Range(c, IIf(zone Is Nothing, c, zone))
Next
If Not zone Is Nothing Then MsgBox zone.Address(0, 0), , "Zone utile"
End Sub

Nota 1 : on peut aussi tester avec seulement If flag Then _

Nota 2 : ici la coloration des cellules n'entre pas en ligne de compte...

A+

 

[Magic_Doctor]

Re : Attribuer un nom à l'aire de travail d'une feuille

Bonjour Chalet, bonjour job,

Encore merci pour votre attention.
Je vais choisir la solution de job pour sa concision et, surtout, sa rapidité d'exécution qui m'a laissé coi.
Mais là, j'avoue, je n'ai strictement rien compris ! (¡no entendí estrictamente nada!)
En ce qui me concerne, le chemin est encore long avant de jongler avec VBA...!!!

 

[Magic_Doctor]

Re : Attribuer un nom à l'aire de travail d'une feuille

J'oubliais de signaler que si "la coloration des cellules n'entre pas en ligne de compte...", en ce qui me concerne, ce n'est pas bien grave, puisque, dans mes feuilles, j'encadre systématiquement toutes les cellules dans lesquelles je travaille.