soucis simple macro

Je recontre un probleme avec la simple macro suivante:

Code:

---

1 2 3 4 5 6 7 8 9

Sub test2() ' ' test2 Macro '   ' Columns("D:D").Select Selection.EntireColumn.Hidden = True End Sub

---

Des que je la lance sur mon onglet cela me gele les colonne jusqu'a la colone H, par contre sur un autre onglet sur la feuille cela marche parfaitement, quelq'un aurait il une idée ?

Edit :

Code:

---

Columns("D").Select

---

Je pensais avoir dit une connerie mais finalement non donc je remet ma réponse.

Bonjour,

Veux-tu que la macro s'applique à la feuille active?
Essais

Code:

---

activesheet.Columns("D:D").EntireColumn.Hidden = True

---

sinon

Code:

---

worksheets("Feuil1").Columns("D:D").EntireColumn.Hidden = True

---

Salut,

Je pense que ta 1ere ligne doit etre fusionne.
Ce qui expliquerait cela.

Essaies (j'ai mi D5 mais evidemment il ne faut pas qu'elle soit fusionnee):

Code:

---

Range("D5").EntireColumn.Hidden = True

---

++
Minick

j'ai remis

Code:

---

Columns("D").Select

---

et

Code:

---

Selection.EntireColumn.Hidden = True

---

l'un derière l'autre et maintenant ça marche, bizarre^^.merci quand meme pour toutes ces réponses.

Comme le montre les codes de Drakar et Minick, tu peux tout faire avec une seule ligne de code, le select sert rarement même s'il est très utilisé par l'enregistreur de macro il ralentit le code en selectionnant alors que la plupart du temps on veut agir ou utiliser la valeur de la cellule mais pas la selectionner.
J'ai des anciens codes qui font tellement de select que la tête me tourne, juste en regardant l'ecran ;)