Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro évènementielle

ljoue

XLDnaute Junior
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
 
P

Pierrot93

Guest
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

XLDnaute Barbatruc
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
 

Discussions similaires

Réponses
17
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…