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

Résolu
ju459 - 6 sept. 2012 à 08:39
 ju459 - 7 sept. 2012 à 11:35
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?

5 réponses

cs_Julien39 Messages postés 6414 Date d'inscription mardi 8 mars 2005 Statut Modérateur Dernière intervention 29 juillet 2020 366
6 sept. 2012 à 09:57
Salut,

Il ne faut pas inventer des méthodes unhide n'existe pas :
Columns("C:F").EntireColumn.Hidden = False
3
cs_Julien39 Messages postés 6414 Date d'inscription mardi 8 mars 2005 Statut Modérateur Dernière intervention 29 juillet 2020 366
6 sept. 2012 à 09:59
Enfin
Columns("B:F").EntireColumn.Hidden = False
tu avais certainement corrigé
3
cs_Jack Messages postés 14007 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 78
6 sept. 2012 à 10:14
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)
3
ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 235
6 sept. 2012 à 10:30
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
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
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.
0