Utilisation de Check boxes dans UserForm - Relancer le traitement

Bonjour,

Dans un UserForm, j''utilise des CheckBoxes pour ajouter, ou retirer des informations dans différentes cellules du document.

La première fois que j'ouvre l'UserForm, tout se passe bien.

En revanche, si je rouvre l'UserForm, toutes les "CheckBoxes" sont à nouveau vides (sans que cela n'affecte le contenu des cellules associées).

Si je "check" certaines informations, les autres infos non checkées restent tout de même présentes. (Par contre si je check / uncheck les infos, alors là le traitement est bien réalisé)

Ce que je cherche à faire, c'est qu'à chaque fois que je valide l'UserForm, alors les cellules sont recalculées.

Bon après midi ! A bientôt !

Bonjour,

Un essai ...

Private Sub UserForm_Initialize()

CheckBox1.Value = IIf(Cells(9, 24).Value = "Maçonnerie", True, False)
CheckBox2.Value = IIf(Cells(10, 24).Value = "Plomberie", True, False)
CheckBox3.Value = IIf(Cells(9, 25).Value = "Electricité", True, False)
CheckBox4.Value = IIf(Cells(10, 25).Value = "Plaquiste", True, False)
CheckBox5.Value = IIf(Cells(9, 26).Value = "Peinture", True, False)
CheckBox6.Value = IIf(Cells(10, 26).Value = "Pose du sol", True, False)
CheckBox7.Value = IIf(Cells(9, 27).Value = "Finitions", True, False)
CheckBox8.Value = IIf(Cells(10, 27).Value = "Toiture", True, False)

End Sub

ric

Je ne vois pas où utiliser ce code ?

CheckBox1.Value = IIf ne fonctionne pas si ?

Bonjour,

UserForm_Initialize >> donc ajouter dans le userform

Je joins le fichier ...

ric

Bonjour à tous,

Presque le même principe que ric , une autre solution :

Private Sub UserForm_Initialize()
j = 23
For k = 1 To 8 Step 2
    j = j + 1
    Me("CheckBox" & k) = IIf(Cells(9, j) = "-", False, True)
    Me("CheckBox" & k + 1) = IIf(Cells(10, j) = "-", False, True)
Next
End Sub

Bonjour,

Je vous remercie pour votre aide. Ce que vous proposez fonctionne très bien !

Bonne fin de journée,

A bientôt !