clic ouvre userform

[Mitch]

Bonjour j'ai ce code qui ouvre d'un clic un USF en colonne E si la cellule et remplie j'aurai voulu la même chose mais pour les cellules vide
Merci

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("E4:E1000")) Is Nothing Then

If Application.ActiveWindow.ActiveCell.Formula <> "" Then
UserForm1.Show
End If
End If
End Sub

 

[Pierrot93]

Re : clic ouvre userform

Bonjour,

regarde ceci, lancera l'usf si cellule vide :

If IsEmpty(Target) Then UserForm1.Show

bon après midi
@+

 

[Guest]

Re : clic ouvre userform

bonjour,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("E4:E1000")) Is Nothing Then

UserForm1.Show
End If
End Sub

'Ouvrira le userform pour toutes les cellules de E4:E1000

[Edit] Hello Pierrot🙂

 

[Mitch]

Re : clic ouvre userform

Merci Pierrot93