Activer une UserForm 2 condition

Bonjour tout le monde,

je voudrais ouvrir une User Form si 2 conditions sont remplies.

Condition 1: dans ma feuille la cellule F69 est égale à "Estimation"

Condition 2 : dans la même feuille cellule (case à cocher) est VRAI.

mon code :

Sub ObtenirInfos()
If Worksheets("Enquête").Range("F69") = "Estimation" And Range("N89") = VRAI Then
UserForm1.Show
    End If
End Sub

ça fonctionne même si la cellule N89 est à FAUX

bonne journée à tous

Bonjour,

Difficile de deviner ce que tu appeles une case à cocher ...

Mais en test ...

Sub ObtenirInfos()
If Worksheets("Enquête").Range("F69") = "Estimation" And Range("N89") = True Then UserForm1.Show
End Sub 

En espèrant que cela t'aide

boonjour James007,

tout d'abord merci pour ton aide,

Ma case à cocher est contrôle de formulaire avec qui est lié à la cellule N89, quand je clique dessus la cellule est VRAI sinon elle est à FAUX

j'ai mis ton code dans un module, mais il se passe rien quand je mets les 2 cellules aux bonnes conditions.

je ne mets peut-être pas le code au bonne endroit ?

Re,

Le plus simple ... pour ' trouver le bon endroit ' ...

C'est que tu joignes ton fichier ...

parce ce que tu n'indiques pas non plus ... comment ta macro est déclenchée ...

Voilà un petit fichier pour test. en fait, je voudrais que l'UserForm apparaisse dès que les 2 conditions sont remplies.

il doit me manquer quelques choses

Re,

Merci pour ton fichier ...

Ci-joint une proposition ...

En espèrant que cela t'aide ...

James007

çà marche très bien dans le fichier joint.

par contre pas dans mon fichier

je joint un fichier épuré pour t'aider je l'espère.

Re,

Dans l'ordre ...

1. Cellule F69 ... 1er retour usine le ... pas de trace de ' Esimation ' ....

2. Macros protégées par un code ...

Désolé pour le MDP

par contre Estimation est bien dans la liste.

fichier sans MDP joint

Re,

Ci-joint l'adaptation à ton fichier ...

En espèrant que cela t'aide ...

c'est vraiment très fort

Encore une question si tu me le permet

Comme tu as pu le voir j'ai plusieurs checkbox, comment je fais?

je mets

If Worksheets("Enquête").Range("F69") = "Estimation" And [N89] = True Then UserForm1.Show

pour Chaque une d'elle dans le module et les relies toutes à la macro?

pas sûr d’être très clair

Re,

Content que cela t'aide ...

Pour répondre à ta question ...

Compte tenu de la façon dont tu as codé les choses ...

Effectivement ... tu dois en passer par cette ' individualisation ' de tes checkboxes ...

Merci pour ton aide

pskyl a écrit :

Merci pour ton aide

Merci pour tes remerciements ...