Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Aide pour raccourcir code chexbox ,merci

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion davidp
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
D

davidp

XLDnaute Occasionnel
bonsoir le forum ,

j'ai encore besoin de votre aide car je dois programmer 710 chexbox ( 10 serie de 71 chexbox).
Chaque serie aura une Worksheets differente mais les mêmes cellules de destination.

ce qui veut dire que je pourrais faire un copier coller des codes de la premiere serie de chexbox de 1 à 71 (dans ce cas je devrais changer le nom de chaque chexbox soit de chexbox72 à 142 (serie n°2) et le nom de la feuille (ex:charcuterie)

existe t il un facon de rationaliser le code?

Merci d'avance pour votre aide


Private Sub CheckBox1_Click() 'boulangerie
If CheckBox1.Value = True Then Worksheets("boulangerie").Range("D6:G6").Value = ""
End Sub


Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then Worksheets("boulangerie").Range("D7:G7").Value = ""
End Sub

Private Sub CheckBox3_Click()
If CheckBox3.Value = True Then Worksheets("boulangerie").Range("D8:G8").Value = ""
End Sub
Private Sub CheckBox4_Click()
If CheckBox4.Value = True Then Worksheets("boulangerie").Range("D9:G9").Value = ""
End Sub

Private Sub CheckBox5_Click()
If CheckBox5.Value = True Then Worksheets("boulangerie").Range("D10:G10").Value = ""
End Sub

Private Sub CheckBox6_Click()
If CheckBox6.Value = True Then Worksheets("boulangerie").Range("D11:G11").Value = ""
End Sub

Private Sub CheckBox7_Click()
If CheckBox7.Value = True Then Worksheets("boulangerie").Range("D12:G12").Value = ""
End Sub

Private Sub CheckBox8_Click()
If CheckBox8.Value = True Then Worksheets("boulangerie").Range("D13:G13").Value = ""
End Sub

Private Sub CheckBox9_Click()
If CheckBox9.Value = True Then Worksheets("boulangerie").Range("D14:G14").Value = ""
End Sub
Private Sub CheckBox10_Click()
If CheckBox10.Value = True Then Worksheets("boulangerie").Range("D15:G15").Value = ""
End Sub

jusqu'à chexbox71 pour la feuille boulangerie


Merci d'avance pour votre aide
DAVID
 
Trier par date Trier par votes
Re : Aide pour raccourcir code chexbox ,merci

Bonsoir,

Insertion>Module de classe, tu copie ceci:

Code: 
Public Plage As Range

Public WithEvents ChkBox As MSForms.CheckBox

Private Sub ChkBox_Click()
    If ChkBox.Value = True Then Plage.Value = ""
End Sub

Dans ton formulaire:
Code: 
Dim LesCheckBox As Collection

Private Sub UserForm_Initialize()
    Dim i As Long, j As Long
    Dim UnCheckBox As Classe1
    Dim LesFeuilles()
    Set LesCheckBox = New Collection
    LesFeuilles = Array("Boulangerie", "Charcuterie", "La suite")
    For i = 1 To 10
        For j = 1 To 71
            Set UnCheckBox = New Classe1
            LesCheckBox.Add UnCheckBox
            With UnCheckBox
                Set .ChkBox = Me.Controls("CheckBox" & (i - 1) * j + j)
                Set .Plage = _
                    Worksheets(Array(i - 1)).Cells(6 + i - 1, 4).Resize(1, 4)
            End With
        Next
    Next
End Sub

Tu complete les noms de feuilles manquants avant de tester et si t'as des questions tu sais quoi faire.

Cordialement,

Tirex28/
 
Vote positif 0 Vote négatif
Re : Aide pour raccourcir code chexbox ,merci

Tirex28,

je te remercie pour ton aide (car j'ai réalisé cette nuit les 710 chexbox,mais le systeme etait trop ralentit " et moi aussi!!!!!).
je teste et te tiens au courant.(je n'aurai jamais trouvé tout seul,je vais étudier ton code...

A demain

DAVID
 
Vote positif 0 Vote négatif
Re : Aide pour raccourcir code chexbox ,merci

Rebonsoir,

j'avais oublier de préciser que la totalité des chexbox sont directement sur la feuille "base" et non dans userform.

Bonne soiree et à demain

DAVID
 
Vote positif 0 Vote négatif
Re : Aide pour raccourcir code chexbox ,merci

Bonsoir,

j'avais oublier de préciser que la totalité des chexbox sont directement sur la feuille "base" et non dans userform.
Cliquez pour agrandir...

Bon ben c'est pas grave, il faut juste changer d'approche. Personnellement gérer 710 objets je trouve ca un peu lourd. Voici un exemple d'utilisation d'une listbox qui pourrait te donner des idees.

Cordialement,

Tirex28/
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Aide pour raccourcir code chexbox ,merci

bonjour Tirex28,

merci pour ton fichier, des que j'aurai un peu de temps ,je vais essayer de l'adapter à ma feuille.
je te souhaite un bon week end .

DAVID
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

P
  • Résolu(e)
Microsoft 365 VBA - Survol d'un Label déclenchement action
Réponses
8
Affichages
231
patricko-13
P
J
  • Résolu(e)
Microsoft 365 Valeur cellule dans un macro
2
Réponses
17
Affichages
507
job75
D
  • Résolu(e)
XL 2021 Combobox vide
Réponses
9
Affichages
326
Did25
D
  • Résolu(e)
XL 2019 Modifier ce code pour de sorte à y rajouter un commentaire après clic droit en colonne I (9) à préremplir mais vierge ?
Réponses
8
Affichages
250
anthoYS
N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
411
nabilexcel2007
N
  • Résolu(e)
XL 2019 Insérer un commentaire prêt à saisir de B à X sans limite... (excepté en ligne 1 ; taille de commentaire Ok déjà voir code VB en B*)
Réponses
7
Affichages
243
Nicolas JACQUIN
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
591
un internaute
U
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
784
thunder23
  • Résolu(e)
XL 2019 Adapter ce code, et améliorer le tableau avec graphique à l'année à y insérer ?
Réponses
4
Affichages
425
sylvanu
  • Question Question
XL 2016 Filtrer plage via le contrôle ActiveX : combobox
Réponses
7
Affichages
502
KTM
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
2 K
Dranreb
J
  • Question Question
Microsoft 365 Worksheet_Change ou Worksheet_Calculate
Réponses
9
Affichages
476
job75
  • Résolu(e)
XL 2019 colorer les différents aliments avec un code VB pour macro de ce genre ?
2
Réponses
16
Affichages
512
anthoYS
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
N
  • Question Question
Microsoft 365 TEXTBOX pour filtrer un TCD
Réponses
6
Affichages
306
Hecatonchire
H
U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
427
un internaute
U
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
1 K
CortoXls
C
P
  • Résolu(e)
Microsoft 365 Afficher ou masquer formes si une cellule est vide
Réponses
11
Affichages
620
pat66
P
P
  • Question Question
Microsoft 365 Priorité d'affichage lien hypertexte
Réponses
0
Affichages
291
PeteToulon
P
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
509
sylvanu
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…