Userform et case à cocher

Petodt_RS · 22 Juin 2006

Bonjour à tous,

j'aurais besoin de votre aide pour résoudre un problème :

j'ai un fichier avec plusieurs userforms. Lorsque je termine de remplir un userform, je fais quelques manips (macro), puis je lance un nouveau userform.
Dans la feuille excel, j'ai deux cases à cocher.

Je souhaiterais qu'en fonction de la case qui est cochée, je sois aiguillée vers un userform ou un autre.

Est-ce possible ?

Merci beaucoup pour votre aide

porcinet82 · 22 Juin 2006

Salut Petodt_RS,

A adapter selon ton cas. Ici je suppose qu'il n'y a qu'un seul CheckBox1. Lorsque tu click sur le bouton pour ouvrir ton USF, si le CheckBox1 est coché, ca ouvre le USF sinon c'est le USF2 qui s'ouvre.

Code:

Private Sub CommandButton1_Click()
    If CheckBox1 = True Then
        UserForm1.Show
    Else
        UserForm2.Show
    End If
End Sub

@+

Edition : Petit détail auquel je viens de penser (oui ca m'arrive mais un peu tard ). Si tu as 2 CheckBox, tu risques d'avoir quelques soucis puisque les 2 peuvent etre cochées. Soit tu mets un OptionButon, soit tu rajoute une condition afin de vérifier qu'un seul est coché

Message édité par: porcinet82, à: 22/06/2006 22:17

Petodt_RS · 23 Juin 2006

Bonjour et merci pour ta réponse,

Toutefois, après un test, je n'arrive toujours pas à faire fonctionner le code.
En effet, ce sont des cases d'option (barre d'outil 'formulaires') qui sont utilisés dans le fichier.

Meci de votre aide

porcinet82 · 23 Juin 2006

Salut Petodt_RS,

Désolé mais je ne sais pas trop comment t'aider. Je n'utilise jamais les outils de formulaires puisqu'il s'avère toujours plus difficile de pouvoir les utiliser par la suite.

Fais une recherche sur le forum, peut etre touveras-tu ton bonheur.

@+

morantinp · 23 Juin 2006

Salut Petodt_RS

tient essai sa

Sub Caseàcocher1_QuandClic()
If Sheets('Feuil1').Range('a1').Value = FAUX Then
UserForm1.Show
Else
UserForm2.Show
End If

End Sub

sinon j'ai un exemple donne ton e-mail et je te l'envoi

@+

Petodt_RS · 23 Juin 2006

Merci morantinp

mon email est : rudy.hmg@free.Fr

Userform et case à cocher

Petodt_RS

Guest

porcinet82

XLDnaute Barbatruc

Petodt_RS

Guest

porcinet82

XLDnaute Barbatruc

morantinp

XLDnaute Junior

Petodt_RS

Guest

Discussions similaires