Discussion :

[Capsule Corp]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Thautheme]

Bonjour Capsule, bonjour le forum,

Peut-être comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Capsule Corp]

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

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!

[Thautheme]

Re,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[MarcelG]

Bonjour,

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

Thautheme,

Pourquoi ces 2 sélections?

[OrDonc]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Thautheme]

Re,

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

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

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

[Capsule Corp]

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

Super Forum