Userform et case à cocher

[Petodt_RS]

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]

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.

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]

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]

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]

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]

Merci morantinp

mon email est : rudy.hmg@free.Fr