Discussion :

[PATCH67]

bonjour à tous,

nouveau sur ce Forum et Grand débutant en VBA, je modifie un formulaire existant dans mon entreprise pour mettre en place des contrôles d'options de cases à cocher;
Ce formulaire a des cases à cocher de type formulaire (pour respecter le formulaire existant), ces caes à cocher correspondent à des Options, certaines Options ne peuvent pas être en double.
J'aimerai faire des contrôles par msgbox si deux ou trois cases sont cochées simultanément et faire apparaitre un message d'erreur. Ces msgbox devraient permettre d'apporter la correction des cases à cocher innexactes.
par exemple si A1 et A3 VRAI, la msgbox apparait , Affiche le message d'erreur et permet de décocher la case en trop.
Je sais que j'aurais pu utiliser des cases d'options plutôt que des cases à cocher, mais je dois conserver la présentation du formulaire actuel.

Je Joins un extrait de mon formulaire pour vous donner une meilleure idée.ance à ceux qui

Merci d'avance à ceux qui porteront un peu d'attention à mon sujet

patch67

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Abs(ActiveSheet.Shapes("Check Box 1").OLEFormat.Object.Value + ActiveSheet.Shapes("Check Box 2").OLEFormat.Object.Value + ActiveSheet.Shapes("Check Box 4").OLEFormat.Object.Value) > 1 Then MsgBox "Err"

[PATCH67]

merci rdurupt pour ce code.
Comme je suis "Grand débutant " et peu familiarisé Avec VBA, je dois le placer dans un module spécifique ou bien dans VBA Microsoft Exel Object feuille 1? Je commance par SUb ou Private Sub?

Quand on débute c'est parfois laborieux!! j'espère m'améliorer rapidement!
cordialement

[Invité]

Difficile à dire si tu le veux sur le click su checkbox fait un click droit sur chaque check et choisis affecté une macro toujours la même.

Note que pour la première fois tu devras choisir créer et saisir le code que je viens de te donner!

[PATCH67]

Ok, merci beaucoup pour cette explication. Maintenant il me semble évident que si je n'affecte aucune macro à mes cases à cocher, il ne se passera jamais rien!

bonne soirée
cordialement