Un petit code a simplifier

zefirstfan · 12 Février 2012

Bonjour Tout le monde,

Voici un code qui fonctionne tres bien, mais qui fait un peu usine a gaz.
J'ai essayé en mettant de Else mais ca y'en a pas marcher.

un petit coup de pouce?

Sub checkbox1_click()
If CheckBox1.Value = True Then TextBox5.Value = "1"
If CheckBox1.Value = False Then TextBox5.Value = "0"
End Sub
Sub checkbox2_click()
If CheckBox2.Value = True Then TextBox6.Value = "1"
If CheckBox2.Value = False Then TextBox6.Value = "0"
End Sub
Sub checkbox3_click()
If CheckBox3.Value = True Then TextBox7.Value = "1"
If CheckBox3.Value = False Then TextBox7.Value = "0"
End Sub

Sub checkbox4_click()
If CheckBox4.Value = True Then TextBox5.Value = "1"
If CheckBox4.Value = False Then TextBox5.Value = "0"

If CheckBox4.Value = True Then TextBox6.Value = "1"
If CheckBox4.Value = False Then TextBox6.Value = "0"

If CheckBox4.Value = True Then TextBox7.Value = "1"
If CheckBox4.Value = False Then TextBox7.Value = "0"
End Sub

Gracias et bon dimanche sous vos applaudissements.

Excel-lent · 12 Février 2012

Re : Un petit code a simplifier

Salut Zefirstfann,

Voici ci-dessous ton problème de If ... Then ... Else ... End If solutionné (cf. macro Private Sub checkbox4_click)

Ton code est très bien ainsi, mais puisque tu souhaite quand même le raccourcir, c'est choses faite.

VB:

Private Sub checkbox1_click()
    TextBox5.Value = IIf(CheckBox1.Value = True, 1, 0)
End Sub

Private Sub checkbox2_click()
    TextBox6.Value = IIf(CheckBox2.Value = True, 1, 0)
End Sub

Private Sub checkbox3_click()
    TextBox7.Value = IIf(CheckBox3.Value = True, 1, 0)
End Sub

Private Sub checkbox4_click()
If CheckBox4.Value = True Then
    For i = 5 To 7
        Controls("TextBox" & i).Value = 1
    Next i
Else
    For i = 5 To 7
        Controls("TextBox" & i).Value = 0
    Next i
End If
End Sub

Comme tu peux le voir, j'ai vraiment raccourci tout ce que je pouvais! J'ai même remplacé "1" par 1. Deux caractères en moins 🙂 à chaque fois. Les deux versions fonctionnent à la perfection. Sauf que dans ton cas le chiffre est considéré comme du texte, alors que dans ma version il s'agit d'un nombre. Mais visuellement c'est la même chose.

Ci-joint les macros dans leurs éléments naturel

Pour information, quand la macro ouvre l'USF la première fois, aucune CheckBox n'est coché, donc dans les TextBox, il devrait y avoir 0 de partout. Non?

Si oui rajouter dans l'UserForm la macro suivante :

VB:

Private Sub UserForm_Initialize()
For i = 5 To 7
        Controls("TextBox" & i).Value = 0
Next i
End Sub

Bonne fin de soirée

KenDev · 12 Février 2012

Re : Un petit code a simplifier

Bonsoir zefirstfan, Excel-lent,

Si il s'agit de gagner en nombre de caractères, le code d'Excel-lent sans changements :

VB:

Private Sub checkbox1_click()
    TextBox5 = -1 * CheckBox1
End Sub
Private Sub checkbox2_click()
    TextBox6 = -1 * CheckBox2
End Sub
Private Sub checkbox3_click()
    TextBox7 = -1 * CheckBox3
End Sub
Private Sub checkbox4_click()
    For i = 5 To 7
        Controls("TextBox" & i) = -1 * CheckBox4
    Next i
End Sub

Les .Values peuvent être supprimées car elles sont les propriétés par défaut des Textboxs et Checkbox. Et comme true = -1 et false = 0...

Cordialement

KD

Excel-lent · 12 Février 2012

Re : Un petit code a simplifier

Hello KenDev,

Je savais pour les ".value" des TextBox, mais pour le reste, chapeau bas!

Au plaisir

zefirstfan · 14 Février 2012

Re : Un petit code a simplifier

Super, merci beaucoup.
Je suis encore en train de me battre avec les formats date des user forms qui apparemment reste un grand débat sur ce forum.
Je vais laisser tomber pour ce soir.
Merci pour votre aide.
Zeuf

Excel-lent · 14 Février 2012

Re : Un petit code a simplifier

Bonjour Zefirstfan,

L'important est de bien définir au préalable les variables qui contiendrons tes dates (si tu utilise des variables).

Bien penser à préciser dans ton code que la cellule..., la TextBox..., la ... contient une date.

Si tu respect tous cela dans l'ensemble de ton code, ça ne peut que fonctionner 😉

Bonne recherche
Cordialement

Un petit code a simplifier

zefirstfan

XLDnaute Junior

Excel-lent

XLDnaute Barbatruc

Pièces jointes

KenDev

XLDnaute Impliqué

Excel-lent

XLDnaute Barbatruc

zefirstfan

XLDnaute Junior

Excel-lent

XLDnaute Barbatruc

Discussions similaires

Un petit code a simplifier

zefirstfan

XLDnaute Junior

Excel-lent

XLDnaute Barbatruc

Pièces jointes

KenDev

XLDnaute Impliqué

Excel-lent

XLDnaute Barbatruc

zefirstfan

XLDnaute Junior

Excel-lent

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency