Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Tronquer "ActiveSheet.UsedRange"

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Magic_Doctor

XLDnaute Barbatruc
Bonsoir,

Dans ma feuille je nomme "Zone1" toute la plage de cellules où il y a quelque chose (tableau, cellule isolée contenant une valeur...).
Si je modifie le contenu de la feuille en augmentant, par exemple, la taille d'un tableau, je voudrais automatiquement, au moyen d'une macro, redéfinir la plage qui correspond à "Zone1".
Dans un premier temps j'efface le nom "Zone1".
Ensuite je redéfinis l'aire de "Zone1" et renomme cette plage "Zone1". Pour ce faire j'utilise "ActiveSheet.UsedRange".
Le problème est que l'aire correspondante déborde de l'aire que je veux assigner à "Zone1".

Un grand merci pour m'aider à y remédier.
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Re : Tronquer "ActiveSheet.UsedRange"

Bonsoir Magic Doctor,

Essaie ceci :

Code: 
Sub MiseAJour1()
Dim cel As Range, plage As Range
For Each cel In ActiveSheet.UsedRange
  If Not IsEmpty(cel) Or _
      cel.Borders(xlEdgeLeft).LineStyle = 1 And _
      cel.Borders(xlEdgeTop).LineStyle = 1 And _
      cel.Borders(xlEdgeBottom).LineStyle = 1 And _
      cel.Borders(xlEdgeRight).LineStyle = 1 Then
    Set plage = Range(cel, IIf(plage Is Nothing, cel, plage))
  End If
Next
On Error Resume Next
ThisWorkbook.Names("Zone1").Delete
plage.Name = "Zone1"
End Sub
A+
 
Vote positif 0 Vote négatif
Re : Tronquer "ActiveSheet.UsedRange"

Bonsoir

Peut-être comme ça
Code: 
Set plage = Range("B3:" & Cells.SpecialCells(xlCellTypeLastCell).Offset(-1, -3).Address)

A+
 
Vote positif 0 Vote négatif
Re : Tronquer "ActiveSheet.UsedRange"

Bonjour Doctor, bonjour Bruno 🙂

Bruno, il faut repérer B3... Et la dernière ligne peut ne pas contenir de bordures...

Si l'on veut repérer n'importe quel style de bordures, tester avc xlNone :

Code: 
Sub MiseAJour()
Dim cel As Range, plage As Range
For Each cel In ActiveSheet.UsedRange
  If Not IsEmpty(cel) Or _
      cel.Borders(xlEdgeLeft).LineStyle <> xlNone And _
      cel.Borders(xlEdgeTop).LineStyle <> xlNone And _
      cel.Borders(xlEdgeBottom).LineStyle <> xlNone And _
      cel.Borders(xlEdgeRight).LineStyle <> xlNone Then
    Set plage = Range(cel, IIf(plage Is Nothing, cel, plage))
  End If
Next
On Error Resume Next
ThisWorkbook.Names("Zone1").Delete
plage.Name = "Zone1"
MsgBox [Zone1].Address 'pour tester
End Sub
Voir fichier.

A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Tronquer "ActiveSheet.UsedRange"

Re,

Et s'il n'y a pas de bordures intérieures, on peut repérer la 1ère et la dernière cellule de chaque tableau :

Code: 
Sub MiseAJour()
Dim cel As Range, plage As Range
For Each cel In ActiveSheet.UsedRange
  If Not IsEmpty(cel) Or _
      cel.Borders(xlEdgeLeft).LineStyle <> xlNone And _
      cel.Borders(xlEdgeTop).LineStyle <> xlNone Or _
      cel.Borders(xlEdgeBottom).LineStyle <> xlNone And _
      cel.Borders(xlEdgeRight).LineStyle <> xlNone Then
    Set plage = Range(cel, IIf(plage Is Nothing, cel, plage))
  End If
Next
On Error Resume Next
ThisWorkbook.Names("Zone1").Delete
plage.Name = "Zone1"
MsgBox [Zone1].Address 'pour tester
End Sub
Fichier (2).

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Tronquer "ActiveSheet.UsedRange"

Bonjour job75, BrunoM45,

Merci pour vos réponses.
J'avais bidouillé un truc qui commençait à marcher.
C'est job qui obtient le meilleur résultat.

Encore merci et bonne journée à tous.

En pièce jointe les 3 solutions.
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

S
  • Résolu(e)
XL 2016 Automatisé un planning bénévole pour un tournoi
5 6 7
Réponses
94
Affichages
10 K
simo161616
S
N
  • Question Question
Selection d'une plage variable pour mon TCD
Réponses
1
Affichages
2 K
Celeda
I
  • Question Question
une instruction ultra basique ne s'excecute pas, sans message d'erreur. je craque >_<
2
Réponses
16
Affichages
2 K
PMO2
P
E
  • Question Question
Intégration d'un code dans une macro
Réponses
5
Affichages
2 K
Ewigefrost
E
A
  • Question Question
Utilisation listes de choix dynamiques
Réponses
9
Affichages
1 K
ArielD27
A
S
  • Question Question
Extraction de donées d'un tableau en liste
2
Réponses
15
Affichages
4 K
seb69
S
M
  • Question Question
code pour graphique excel
Réponses
3
Affichages
1 K
jeanpierre
M
  • Question Question
ouvrir excel depuis Power point
Réponses
0
Affichages
2 K
mamatt59
M
M
[REF] Wiki 4 de MichelXld (Fonctions, Evenements, Dates et calendriers, Flash , Ooo)
Réponses
0
Affichages
35 K
MichelXld
M
M
[REF] Wiki 1 de MichelXld (Généralités Excel)
Réponses
6
Affichages
60 K
Le_Phénomène
M
[REF] Wiki 6 de MichelXld (Doublons, Tris, Filtres, Variables, Fichiers fermés, Acces
Réponses
0
Affichages
68 K
MichelXld
M
M
[REF] Wiki Page 8 de MichelXld
Réponses
0
Affichages
39 K
MichelXld
M
M
[REF] Wiki 2 de MichelXld (Ce qui touche aux UserForm)
Réponses
0
Affichages
116 K
MichelXld
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…