Macro évènementielle

[ljoue]

Bonjour,

Voici un code VB qui permet de déclencher mon Useform lorsque la cellule B10 = 1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(10, 2).Value = '1' Then
Load Test
Test.Show
End If
End Sub

Or le problème est qu'une fois la cellule B10 = 1 mon Userform s'affiche en boucle.
Comment modifier le code de façon à ce que le Userform ne s'affiche qu'une seul fois et qu'il se raffiche uniquement si la cellule B10 a été modifiée (mais tjs = à 1) ou validée par entrée.

Merci d'avance.

Cordialement,
Laurent

Message édité par: ljoue, à: 23/06/2006 17:03

Message édité par: ljoue, à: 23/06/2006 17:04

 

[ljoue]

Message édité par: ljoue, à: 23/06/2006 17:03

 

[pierrejean]

bonjour ljoue

peut-etre en mettant ta macro dans

Private Sub Worksheet_Change(ByVal Target As Range)

et non dans

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

 

[Pierrot93]

Bonjour ljou, re PierreJean

En rajoutant également un test sur la cellule B10

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range('B10')) Is Nothing Then

TON CODE

End If
End Sub

bonne soirée
@+

 

[JeanMarie]

Bonjour

Tu n'utilises pas le bon événement

Private Sub Worksheet_Change(ByVal Target As Range)
If (Target = '1') and (Target.address='$B$10') Then
Load Test
Test.Show
End If
End Sub

@+Jean-Marie

 

[ljoue]

Merci à vous tous

Vous êtes des As !

Bon week-end