Créer une fenêtre non modale avec critères

[natorp]

Bonjour à toutes et tous

J'aimerais créer une fenêtre non modale qui apparaît en permanence mais différente selon qu'un total de points est juste ou pas
en J1 il y a bien une formule mais je ne la vois pas assez !!

Merci pour votre aide, cordialement, Gérard

 

[job75]

Bonjour Gérard,

Le plus simple est de créer 2 UserForms.

Ensuite on fera commencer la macro Worksheet_Change comme ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
Unload UserForm1
Unload UserForm2
If Application.Sum([I:I]) Then UserForm1.Show 0 Else UserForm2.Show 0
'--------'

A+

 

[job75]

Finalement il vaut mieux ce code :

Private Sub Worksheet_Calculate()
Application.OnTime 1, Me.CodeName & ".Controle"
End Sub

Sub Controle()
Unload UserForm1
Unload UserForm2
If Application.Sum([I:I]) Then UserForm1.Show 0 Else UserForm2.Show 0
End Sub

 

[natorp]

Merci beaucoup job

J'avais fait avec le post 3
pourquoi c'est mieux avec le post 4 ?

 

[job75]

Pourquoi c'est mieux ? Dans les 2 cas entrez 4 en C8 puis 4 en D8...

 

[natorp]

Désolé, je ne vois pas la différence
Mais comme vous avez supprimé le post 3, peut-être que je n'ai pas bien écrit le vba ?

Question importante : Est-il possible de lier le test du "calculate" à la présence d'un chiffre en I4 ?
Sinon j'ai le test en permanence, et cela est gênant lors de l'inscription des joueurs

Merci de votre aide, Gérard

 

[natorp]

Ben zut !!

ça marche plus...

 

[job75]

Désolé, je ne vois pas la différence

Sans exécution différée par Application.OnTime, le test sur C8/D8 n'affiche pas le bon UserForm.