Erreur de débutant

Résolu/Fermé

GDX Messages postés 219 Date d'inscription lundi 27 avril 2009 Statut Membre Dernière intervention 16 janvier 2020 - 17 oct. 2013 à 13:57
GDX Messages postés 219 Date d'inscription lundi 27 avril 2009 Statut Membre Dernière intervention 16 janvier 2020 - 17 oct. 2013 à 16:41

Bonjour,

Je suis débutant en vba. Je pense que ma question est basique mais je ne trouve pas d'élements de réponse dans d'autre forum.

Je veux cacher une colonne dans une autre feuille lorsque l'utilisateur coche une checkbox.

Voici mon code


Sub Caseàcocher1_Cliquer()
    Sheets("1er série X-").Columns(B).Hidden = True
End Sub

Voici l'erreur :

erreur 1004 erreur definie par l'application ou par l'objet

Le code suivant fonctionne


Sub Caseàcocher1_Cliquer()
    Sheets("1er série X-").Rows(4).Hidden = True
End Sub

Pourquoi ???

Merci,

GDX

A voir également:

Erreur de débutant
Erreur 0x80070643 - Accueil - Windows
Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
Erreur 1001 outlook - Accueil - Bureautique
Erreur de lecture reconnecté en 3s - Forum TV & Vidéo
Erreur 10016 epson - Forum Imprimante

2 réponses

Réponse 1 / 2

melanie1324 Messages postés 1504 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 154
17 oct. 2013 à 14:14

Bonjour,

soit tu écris :

Sub Caseàcocher1_Cliquer()
Sheets("1er série X-").Columns("B").Hidden = True
End Sub

soit tu écris :

Sub Caseàcocher1_Cliquer()
Sheets("1er série X-").Columns(2).Hidden = True
End Sub

Les colonnes si elles sont alphabétiques doivent être entourées de guillemet.
Les chiffres quant à eux s'écrivent sans guillemet.

Réponse 2 / 2

GDX Messages postés 219 Date d'inscription lundi 27 avril 2009 Statut Membre Dernière intervention 16 janvier 2020 9
17 oct. 2013 à 15:08

OK tout simplement...

J'ai rectifier le tir, ça fonctionne bien Merci...

Maintenant comment détecter si la case à chocher est cochée ou non ?

Merci

melanie1324 Messages postés 1504 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 154
17 oct. 2013 à 15:17

Sub Caseàcocher1_Cliquer()

if caseàcocher1 = true 'si la case est cochée alors

Sheets("1er série X-").Columns("B").Hidden = True

end if
End Sub

GDX Messages postés 219 Date d'inscription lundi 27 avril 2009 Statut Membre Dernière intervention 16 janvier 2020 9
17 oct. 2013 à 15:23

Oui j'avais déjà essayé ça mais ma case à cocher doit avoir un autre nom que je ne parviens pas à connaitre.

melanie1324 Messages postés 1504 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 154
17 oct. 2013 à 16:19

comment l'as tu créé?

Car tu as deux possibilité :
- tu vas dans l'onglet, développeur,insérer :
- tu peux insérer ta case à cocher sour le menu contrôle du formulaire (ce que je te déconseille)
- tu peux insérer ta case à cocher sous controle activex (tu pourras plus facilement faire ce que tu veux).

Je pense que tu l'as créé via le contrôle du formulaire. Détruis là et refais la sous les controles activex.

GDX Messages postés 219 Date d'inscription lundi 27 avril 2009 Statut Membre Dernière intervention 16 janvier 2020 9
17 oct. 2013 à 16:41

OK problème résolu...

Merci beaucoup

Discussions similaires

Instagram "Désolé, une erreur s'est produite"

Erreur de lecture sur iptv smarters

Erreur vidéo inconnue sur le Freebox Player

Free erreur 38 : impossible d'envoyer des SMS

Code erreur 3000