Probléme USERFORM avec condition

H

homepyrof53

XLDnaute Occasionnel

• 1 Janvier 2014

• #2

Re : Probléme USERFORM avec condition

Bonjour,

Voila la macro

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 3 And Target.Row > 1 Then
    If Target.Rows.Count = 1 And Target.Columns.Count = 1 Then
        If Target.Value <> "" Then UserForm4.Show
    End If
End If
End Sub

 

Vote positif 0 Vote négatif

ssassam

XLDnaute Occasionnel

• 1 Janvier 2014

• #3

Re : Probléme USERFORM avec condition

Merci beaucoup C'est Nickel a 100% 😎

 

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 1 Janvier 2014

• #4

Re : Probléme USERFORM avec condition

Bonjour à tous,

une autre version

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("C:C")) Is Nothing And Target.Cells.Count = 1 Then
    If Target.Value = "" Then
        MsgBox "La cellule doit être renseignée !"
        Exit Sub
    Else
        UserForm4.Show
    End If
End If

End Sub

Bonne suite

 

Vote positif 0 Vote négatif

ssassam

XLDnaute Occasionnel

• 1 Janvier 2014

• #5

Re : Probléme USERFORM avec condition

Merci homepyrof53 C'est Nickel , Paf Merci aussi sauf que ton code Beug lorsque je sélectionne toute la fauille. Merci les amis.

 

Vote positif 0 Vote négatif

ssassam

XLDnaute Occasionnel

• 1 Janvier 2014

• #6

Re : Probléme USERFORM avec condition

Mon problème est résolu

 

Vote positif 0 Vote négatif