Discussion :

[scrouet]

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 ?

[Menhir]

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.

[scrouet]

Voici le morceau de code:

Code :

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

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.

[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 :

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

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

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

[Menhir]

Code :

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

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.

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 :

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

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 :

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

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