Macro Excel défectueuse

Bonjour,

J'ai un fichier Excel qui comporte beaucoup de colonnes.
Selon les infos dont j'ai besoin, je masque les colonnes qui me gênent visuellement. A force de refaire tout le temps cette action de "masquer", j'ai finalement décidé de créer une macro (il était temps !).

Pendant l'enregistrement de ma macro tout s'est bien passé, mais lorsque je l'exécute de nouveau, ma macro masque toujours les 2 premières colonnes A et B que je n'avais JAMAIS sélectionnées à l'origine. 8O

J'ai beau recommencer, le problème persiste. Je ne comprends pas.
Je tiens à préciser que je n'ai figé aucun volet.

Quelqu'un peut-il m'aider ?

Hello,

le plus simple reste selon moi de nous fournir le code qui a été généré à la volée par le macro recroder.

Nous serons plus à même de voir le dit code et de te proposer des solutions efficaces :)

Voilà comme demandé, je copie-colle le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Columns("A:BJ").Select Selection.EntireColumn.Hidden = False Range("A7").Select End Sub Sub Afficher_colonnes_utiles_CONVENTION() ' ' Afficher_colonnes_utiles_CONVENTION Macro ' Macro enregistrée le 16/01/2012 par '   ' Columns("C:M").Select Selection.EntireColumn.Hidden = True Columns("R:T").Select Selection.EntireColumn.Hidden = True Columns("W:X").Select Selection.EntireColumn.Hidden = True ActiveWindow.SmallScroll ToRight:=9 Columns("AG:AO").Select Selection.EntireColumn.Hidden = True Range("A7").Select End Sub

---

Plusieurs remarques :
- Quand tu fournis du code il faut utiliser les balises correspondantes (# dans les outils au dessus) pour plus de lisibilité.
- Il manque quelque chose, la partie du haut est la fin d'une autre macro. Tu exécutes quoi quand tu relances la macro ? Seulement Afficher_colonnes_utiles_CONVENTION ?
- Il vaut mieux éviter les Select que donnent l'enregistreur de macro, ça donnerait :

Code:

---

1 2 3 4 5 6

Sub Afficher_colonnes_utiles_CONVENTION() Columns("C:M").Hidden = True Columns("R:T").Hidden = True Columns("W:X").Hidden = True Columns("AG:AO").Hidden = True End Sub

---