[Catégorie modifiée VB6 - VBA] Pourquoi mon code ne fonctionne pas?Résolu

Question

Bonjour,

Voila mon code
Sub unhide1()
Sheets("sheet1").Unprotect ("codeplan")
If Columns("B").Hide = True Then

Columns("B:F").unhide
Else
Columns("B:F").Hide
Sheets("sheet1").Protect Password:="codeplan", DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub

voilà msg d'erreur
ren tim error '438'
object or method doesn't support

Quelqu'un a une solution?

cs_Julien39 · Accepted Answer

Salut,

Il ne faut pas inventer des méthodes unhide n'existe pas :
Columns("C:F").EntireColumn.Hidden = False

cs_Julien39 · Answer

Enfin Columns("B:F").EntireColumn.Hidden = False tu avais certainement corrigé

cs_Jack · Answer

Salut

Ce qui aurait dû te mettre la puce à l'oreille, c'est que "unhide" est resté en minuscule, donc surement une commande inconnue.

La prochaine fois :
- Poste ta question dans la bonne catégorie : VBA n'est pas du VB6
- Précise sur quelle ligne apparait l'erreur
- Utilise la coloration syntaxique (3ème icone à droite) = plus facile à relire

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

ucfoutu · Answer

Bonjour,
puisqu'il montre si caché et cahe s'il montre ===>>

Columns("B:F").Hidden = Not Columns("B:F").Hidden
fait cela.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ju459 · Answer

Bonjour,
oui j'ai trouvé mon erreur, désolé de ne répondre que maintenant je n'y ai plus pensé merci beaucoup en tout cas.

[Catégorie modifiée VB6 -> VBA] Pourquoi mon code ne fonctionne pas?

5 réponses

Votre réponse

Discussions similaires