Eviter redimensionnement sur ajout colonne

Bonjour.

J'utilise un tableau Excel pour faire du reporting sur des URL en interrogeant l'API Mozilla Observatory. Le tableau est divisé en 3 blocs :

• les premières colonnes (bloc 1) contiennent les URL et des informations de classification ;
• les dernières colonnes (bloc 3) des informations et commentaires ;
• entre ces deux blocs j'ai le bloc 2 de reporting à proprement parlé, à raison d'une colonne par mois.

Lorsque j'insère manuellement une colonne dans le bloc 2, les colonnes décalées conservent leur largeur, ce que je souhaite. Si je veux le faire avec VBA pour automatiser la production du reporting mensuel, les colonnes "nommées" conservent leur largeur et le contenu est déplacé dans la colonne suivante, ce que je ne veux pas (ça m'oblige à redimensionner correctement toutes les colonnes).
Par exemple, si j'ai les largeurs suivantes avant l'insertion :

• colonne N: 93 pixels
• colonne O: 26 pixels
• colonne P: 40 pixels

Après l'insertion manuelle j'ai :

• colonne O: 93 pixels
• colonne P: 26 pixels
• colonne Q: 40 pixels

Alors qu'avec l'insertion automatique j'ai :

• colonne N: 93 pixels
• colonne O: 26 pixels
• colonne P: 40 pixels

Est-ce que quelqu'un aurait une solution pour garder en automatisant le comportement que j'ai en insérant manuellement ?

Citation:

---

Envoyé par scrouet

Si je veux le faire avec VBA pour automatiser la production du reporting mensuel, les colonnes "nommées" conservent leur largeur et le contenu est déplacé dans la colonne suivante

---

Tu devrais présenter ton code quand tu fais une telle demande.

Je suppose que tu insères la colonne en appliquant Insert à un Range de zone, non ?
Si c'est le cas, remplace ce Range par un Column(X), en mettant ton n° de colonne à la place du X bien sûr.

Voici le morceau de code:

Code:

---

1 2 3 4

Application.StatusBar = "Adding new column..." rReportTbl.Columns(3).Select Selection.Copy Selection.Insert shift:=xlToRight

---

Sachant que rReportTbl est un range nommé comprenant les blocs 1 et 2, de la ligne 1 de l'onglet à la dernière ligne du tableau.

OK, j'ai trouvé : il faut que j'utilise directement l'onglet à la place du range rReportTbl. Donc remplacer la ligne 2 de mon extrait de code par :

Code:

---

Worksheets("MozObs").Columns(3).Select

---

Merci de m'avoir aidé à réfléchir ! :)

Citation:

---

Envoyé par scrouet

Code:

---

rReportTbl.Columns(3).Select

---

---

Ceci ne désigne pas la colonne 3 mais uniquement la 3ème colonne de la zone rReportTbl, c'est-à-dire juste quelques cellules de la colonne.
Ce qui explique le décalage lors de l'insertion.

Citation:

---

Envoyé par scrouet

OK, j'ai trouvé : il faut que j'utilise directement l'onglet à la place du range rReportTbl. Donc remplacer la ligne 2 de mon extrait de code par :

Code:

---

Worksheets("MozObs").Columns(3).Select

---

Merci de m'avoir aidé à réfléchir ! :)

---

Le Worksheet n'est utile que s'il ne s'agit pas de l'onglet actif. Sinon, on peut l'omettre.

Autre piste de réflexion : abandonner les Select/Selection qui ne font qu'alourdir le code et l'exécution.

Code:

---

1 2	Worksheets("MozObs").Columns(3).Copy Worksheets("MozObs").Columns(3).Insert

---