Délimiter un tableau Excel avec lignes et colonnes variables dans une Macro

Bonjour :)

Je débute actuellement dans l'utilisation des macros sur Excel et je me heurte a un premier problème. Je tente d'automatiser une offre de prix, pour ce faire j'ai déjà créé une macro permettant de basculer les prix client sur un autre classeur avec une autre mise en forme.
Mon soucis, est que le tableau varie quant a son nombre de lignes et de colonnes en fonction de l'offre. Je souhaite automatisé la mise en forme du tableau à parti de la ligne 9 (partie variable) et voici pour l'instant que j'utilise :

Code:

---

1 2 3

Range("A9").Select Set tbl = ActiveCell.CurrentRegion tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, tbl.Columns.Count).Select

---

Le problème est que cela séléctionne également des cellules contenant des formules, chose que je ne veux pas. J'aimerais également pouvoir régler la hauteur des lignes utilisées à 70 en même temps.

Merci d'avance pour votre aide :mrgreen:

Bonjour Capsule, bonjour le forum,

Peut-être comme ça :

Code:

---

1 2 3 4 5 6

Dim tbl As Range   Range("A9").Select Set tbl = ActiveCell.CurrentRegion tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, tbl.Columns.Count).SpecialCells(xlCellTypeConstants).Select Selection.Rows.RowHeight = 70

---

Wouah ça fonctionne parfaitement! Merci Thautheme, la séléction ne prend plus en compte les formules :D

J'essaye par la suite de cadrillé mon tableau en Weight = xlThin le soucis c'est que maintenant ça ne séléctionne plus que certaines cellules et ne couvre donc pas l'étendu du tableau.. Auriez-vous une idée pour y remédier ?

merci encore en tout cas!

Re,

Pas vraiment compris. Si tu veux tout quadriller, utilise le premier code, quadrille puis :

Code:

---

Selection.SpecialCells(xlCellTypeConstants).Select

---

et agis...

P.S. Dire que je passe mon temps à dire dans ce forum qu'il faut éviter autant qu'on le peut les Select inutiles...

Bonjour,

Vu à 16h18
Ma réponse est postérieure au post de Thautheme

Thautheme,

Pourquoi ces 2 sélections?

Bonsoir ... (salut Marcel - autre fil ;))

J’utiliserais .SpecialCells(xlCellTypeFormulas) plutôt que SpecialCells(xlCellTypeConstants).

Tableau pour tableau, il est très intéressant de travailler avec un Tableau structuré.
Exemple de code avec un tel tableau nommé Tableau1 :

Code:

---

1 2	[Tableau1].SpecialCells(xlCellTypeFormulas).Rows.RowHeight = 70 [Tableau1].Borders().Weight = xlThin

---

Pièce jointe 535949

Re,

Citation:

---

Envoyé par OrDonc

J’utiliserais .SpecialCells(xlCellTypeFormulas) plutôt que SpecialCells(xlCellTypeConstants)

---

je me contente juste de répondre aux questions...

Citation:

---

Envoyé par Capsule Corp

Le problème est que cela séléctionne également des cellules contenant des formules, chose que je ne veux pas.

---

Merci pour toutes vos réponses, j'ai réussi mon automatisation d'offre de prix!

Super Forum