Macro Excel défectueuse

[Fabienne74]

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.

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 ?

[jpcheck]

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

[Fabienne74]

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

[ZebreLoup]

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