Selection cellule

[Hulk]

Hello les amis,

Je souhaites afficher un USF lorsque la cellule B1 = 100 avec ce code :

Private Sub Worksheet_Change(ByVal Target As Range)
If Sheets("Feuil1").Range("B1") = 100 Then UserForm1.Show 0
UserForm1.Show
End Sub

Ca joue mais question bête.. je souhaite l'appliquer sur B1:C10, comment faire ?

Merci pour votre aide.

Hulk.

 

[JNP]

Re : Selection cellule

Bonjour Hulk 🙂,
Il te suffit de faire un test sur Target.Row et Target.Column pour vérifier si Target est dans la zone qui t'intéresse, sinon, tu mets un Exit Sub.
Bon courage 😎

 

[BOISGONTIER]

Re : Selection cellule

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect([B1:C10], Target) Is Nothing And Target.Count = 1 Then
    If Target = 100 Then UserForm1.Show 0
 End If
End Sub

JB

 

[Hulk]

Re : Selection cellule

Hello le Forum, Boisgontier, Jnp,

Je vous remercie pour vos réponses.

Ca joue Boisgontier merci.

Passez une bonne journée.

Hulk.

 

[Hulk]

Re : Selection cellule

Hello,

Petit souci..

avec ce code (merci Boisgontier)

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect([B1:C10], Target) Is Nothing And Target.Count = 1 Then
    If Target = 100 Then UserForm1.Show 0
 End If
End Sub

il m'affiche bien l'USF si je tape 100 dans B1:C10, mais le pb est qu'en B1:C1, les 100 sont issus de plusieurs formules en E1:F10, et là du coup ça ne marche plus 😕

Comme ça, si je tape 100 dans B1:C10 ça joue, mais si B1:C10 = E1:F10 et que je tape 100 dans E1:F10 plus rien.

Possible de remerdier à ça ??

Merci pour votre aide.

Hulk.

 

[JNP]

Re : Selection cellule

Bonsoir Hulk, Boisgontier 🙂,
C'est absolument normal vu que la macro travaille quand la feuille change et vérifie si la cellule que tu viens de changer (soit E1:F10) se situe dans B1:C10, ce qui n'est pas le cas. Pour contrôler ce que tu souhaites, je ne vois pas. Il faudrait peut-être un exemple de fichier pour regarder mais j'ai des doutes sur la surveillance d'une plage de cellule alimentées en formules.
Bonne soirée 😎

 

[Hulk]

Re : Selection cellule

Hello,

Merci JNP de m'avoir répondu !

Donc je lie un petit fichier pour expliquer ma demande..

Merci pour l'aide apportée.

@+.

Hulk.

 

[BOISGONTIER]

Re : Selection cellule

Bonsoir,

Private Sub Worksheet_Calculate()
    For Each c In [B1:C10]
      If c = 100 Then
        UserForm1.Show 0
        Exit For
      End If
    Next c
End Sub

JB

 

[Hulk]

Re : Selection cellule

Hello, JB,

Euh il affiche l'USF à chaque saisie, même si autre que 100 ??

Merci de m'avoir répondu !

Hulk.

 

[BOISGONTIER]

Re : Selection cellule

Voir PJ

JB

 

[Hulk]

Re : Selection cellule

Hello,

Wouah celle-là elle est belle, ça marche impec.. Chapeau !

Grand merci et bonne soirée JB.

Hulk.