VBA : If CheckBox.Value = True Or CheckBox.Value = True Then ...

Résolu

fannoche35 Messages postés 11 Date d'inscription Statut Membre Dernière intervention -
fannoche35 Messages postés 11 Date d'inscription Statut Membre Dernière intervention - 21 nov. 2017 à 16:09

Bonjour,

Je cherche à créer une macro qui permette à ce que si une des 3 checkbox est cochée, il faut afficher les lignes 96 à 167.

Voici le code entré mais j'ai un message d'erreur comme quoi il un objet est requis

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Or CheckBox3.Value = True Or CheckBox21.Value = True Then
Rows("96:167").EntireRow.Hidden = False
Else
Rows("96:167").EntireRow.Hidden = True
End If
End Sub

Private Sub CheckBox3_Click()
If CheckBox1.Value = True Or CheckBox3.Value = True Or CheckBox21.Value = True Then
Rows("96:167").EntireRow.Hidden = False
Else
Rows("96:167").EntireRow.Hidden = True
End If
End Sub

Private Sub CheckBox21_Click()
If CheckBox1.Value = True Or CheckBox3.Value = True Or CheckBox21.Value = True Then
Rows("96:167").EntireRow.Hidden = False
Else
Rows("96:167").EntireRow.Hidden = True
End If
End Sub

Merci d'avance pour votre aide !

Afficher la suite

A voir également:

Vba checkbox value
Vba checkbox if checked - Meilleures réponses
Vba if checkbox is checked then - Meilleures réponses
L'indice n'appartient pas à la sélection vba - Forum VB / VBA
Incompatibilité de type vba ✓ - Forum Programmation
Excel compter cellule couleur sans vba - Guide
Vba attendre 1 seconde ✓ - Forum VB / VBA
Find vba - Astuces et Solutions

2 réponses

Réponse 1 / 2

ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention 2 433

Essaies ceci

Les tris checkboxXX_Click font appel à la (même) procedure OK

Option Explicit

Sub ok()
If CheckBox1 Then
  Rows(76).Hidden = False
Else
  Rows(76).Hidden = True
End If
If CheckBox3 Then
  Rows(78).Hidden = False
Else
  Rows(78).Hidden = True
End If
If CheckBox21 Then
  Rows(88).Hidden = False
Else
  Rows(88).Hidden = True
End If
If (CheckBox1 Or CheckBox3 Or CheckBox21) = True Then
  Rows("96:167").Hidden = False
Else
  Rows("96:167").Hidden = True
End If
End Sub

Private Sub CheckBox1_Click()
Call ok
End Sub

Private Sub CheckBox3_Click()
Call ok
End Sub

Private Sub CheckBox21_Click()
Call ok
End Sub

Cdlmnt

fannoche35 Messages postés 11 Date d'inscription Statut Membre Dernière intervention

Merci ça fonctionne !!!
Excellent

Réponse 2 / 2

ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention 2 433

Bonjour

ton code semble correct
tu ne dis pas sur quelle ligne se trouve l'erreur et si elle est à la compilation ou à l'exécution
tu peux simplifier un peu, un petit exemple
http://www.cjoint.com/c/GKcplzU6gDB

Cdlmnt

fannoche35 Messages postés 11 Date d'inscription Statut Membre Dernière intervention

Bonjour ccm81,

Merci beaucoup pour cette réactivité !
Je suis très très novice et ai du mal à voir le lien entre ma demande et ton fichier...

Il s'agit de l'erreur d'exécution 424. objet requis. La ligne If CheckBox1.Value = True Or CheckBox3.Value = True Or CheckBox21.Value = True Then se met en surbrillance jaune.

Apres réflexion, je pense qu'il doit y avoir un lien avec le fait que j'ai déjà mis une condition sur chacune de ces checkbox à savoir :

1. je souhaite que si ma checkbox 1 est cochée, la ligne 76 soit affichée sinon elle est masquée :
Sub CheckBox1_Click()
If CheckBox3.Value = True Then
Rows("76:76").EntireRow.Hidden = False
Else
Rows("76:76").EntireRow.Hidden = True
End If
End Sub

2. Je souhaite que si ma checkbox 3 est cochée, la ligne 78 soit affichée sinon elle est masquée:
Sub CheckBox3_Click()
If CheckBox3.Value = True Then
Rows("78:78").EntireRow.Hidden = False
Else
Rows("78:78").EntireRow.Hidden = True
End If
End Sub

3. Je souhaite que si ma checkbox 21 est cochée, la ligne 88 soit affichée sinon elle est masquée :
Sub CheckBox21_Click()
' FOGD
If CheckBox21.Value = True Then
Rows("88:88").EntireRow.Hidden = False
Else
Rows("88:88").EntireRow.Hidden = True
End If
End Sub

4. Et enfin, que si une des 3 checkbox est cochée (1, 3 et 21), on affiche les lignes 96 à 167 sinon on les masque :

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Or CheckBox3.Value = True Or CheckBox21.Value = True Then
Rows("96:167").EntireRow.Hidden = False
Else
Rows("96:167").EntireRow.Hidden = True
End If
End Sub

Private Sub CheckBox3_Click()
If CheckBox1.Value = True Or CheckBox3.Value = True Or CheckBox21.Value = True Then
Rows("96:167").EntireRow.Hidden = False
Else
Rows("96:167").EntireRow.Hidden = True
End If
End Sub

Private Sub CheckBox21_Click()
If CheckBox1.Value = True Or CheckBox3.Value = True Or CheckBox21.Value = True Then
Rows("96:167").EntireRow.Hidden = False
Else
Rows("96:167").EntireRow.Hidden = True
End If
End Sub

Voilà la totalité du problème qui doit être beaucoup plus complexe que ce que je ne t'ai laissé croire ccm81... ;-)

Merci

Discussions similaires

Erreur 1004 - Erreur définie par l'application ou par l'objet

Macro compter cellules non vides colonne visibles

code vba max et min

Copie de fichier en VBA

Masquer Afficher colonnes par vba

Erreur de compilation : Projet ou bibliothèque introuvable

Votre réponse

Discussions similaires