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

job75

XLDnaute Barbatruc

• 26 Mars 2019

• #2

Bonjour Gérard,

Le plus simple est de créer 2 UserForms.

Ensuite on fera commencer la macro Worksheet_Change comme ceci :

VB:

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+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Mars 2019

• #3

Finalement il vaut mieux ce code :

VB:

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

 

Vote positif 0 Vote négatif

natorp

XLDnaute Barbatruc

• 26 Mars 2019

• #4

Merci beaucoup job

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Mars 2019

• #5

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

 

Vote positif 0 Vote négatif

natorp

XLDnaute Barbatruc

• 26 Mars 2019

• #6

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

 

Vote positif 0 Vote négatif

natorp

XLDnaute Barbatruc

• 26 Mars 2019

• #7

Ben zut !!

ça marche plus...🙁

 

Pièces jointes

• Tournoi de tarot.xls

  331 KB · Affichages: 3

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Mars 2019

• #8

natorp à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif