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

C

CHALET53

XLDnaute Barbatruc

• 24 Janvier 2013

• #2

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+

 

Pièces jointes

• Magic Zones.xlsm

  23.9 KB · Affichages: 26
• Magic Zones.xlsm

  23.9 KB · Affichages: 34
• Magic Zones.xlsm

  23.9 KB · Affichages: 26

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

Supporter XLD

• 24 Janvier 2013

• #3

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.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Janvier 2013

• #4

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

Bonsoir Magic_Doctor, CHALET53,

Il y a classiquement :

Code:

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

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

A+

 

Dernière édition: 24 Janvier 2013

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

Supporter XLD

• 24 Janvier 2013

• #5

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 !).

 

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 25 Janvier 2013

• #6

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

 

Pièces jointes

• Magic Zones.xlsm

  26.8 KB · Affichages: 29
• Magic Zones.xlsm

  26.8 KB · Affichages: 32
• Magic Zones.xlsm

  26.8 KB · Affichages: 40

Dernière édition: 25 Janvier 2013

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Janvier 2013

• #7

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 :

Code:

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+

 

Dernière édition: 25 Janvier 2013

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

Supporter XLD

• 25 Janvier 2013

• #8

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...!!!

 

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

Supporter XLD

• 25 Janvier 2013

• #9

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.

 

Vote positif 0 Vote négatif