Ouvrir userform si cellule b8 superieur ou egale a 1

Je me heurte a un petit problème je souhaiterais que si la cellule B8 est superieur ou egale a 1 un userform s'ouvre pour inscrire un numéro qui sera en cellule B16.

Cliquez pour agrandir...

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B3:B53]) Is Nothing Then Exit Sub
If Sheets("A envoyer").[B8] > 0 Then
    UserForm1.Show
End If
End Sub[CODE]Il faudra aussi soit activer la feuille soit préciser que c'est cette feuille qui est concernée par l'USF
A+

Gorfael à dit:

Salut reinruof77 et le forumSi j'ai bien compris, une action sur la feuille R3 doit déclencher L'ouverture de ton USF. Dans le module lié à cette feuille :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B3:B53]) Is Nothing Then Exit Sub
If Sheets("A envoyer").[B8] > 0 Then
    UserForm1.Show
End If
End Sub[CODE]Il faudra aussi soit activer la feuille soit préciser que c'est cette feuille qui est concernée par l'USF
A+[/QUOTE]

Bonjour et merci de ton aide

c'est presque ça ,
En fait je souhaiterais que l'orsque sur la feuille a envoyer sur la ligne R3 OU R2 (ligne 7 ou 8)
si le nombre est superieur a 0 cela m'ouvre un autre userform pour indiquer le n° d'un lien securiser en cellulle B16.

Cliquez pour agrandir...