Probléme USERFORM avec condition

[ssassam]

Bonjour mes amis,

Comme toujours je reviens vers la ligue des justiciers pour un grand secours, 😉

J'ai un problème sur ce fichier(PJ) :



Comme vous voyer mon problème corresponde a la celule "Objet ACTE" , j'ai programmer un autre USERFORM pour qu'il m’affiche ce qu'il est écris sur cette cellule , MAIS 😕

A: Si je sélectionne plusieurs cellule a la fois il me sort le gros message de débogage 😡 .
B: Si la cellule et vide je souhaite que l'userform ne soit pas actionner


Merci d'avance pour votre aide,
Je serai a votre disposition pour toute information complémentaire

Cordialement

 

[homepyrof53]

Re : Probléme USERFORM avec condition

Bonjour,

Voila la macro

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

 

[ssassam]

Re : Probléme USERFORM avec condition

Merci beaucoup C'est Nickel a 100% 😎

 

[Paf]

Re : Probléme USERFORM avec condition

Bonjour à tous,

une autre version

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

 

[ssassam]

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.

 

[ssassam]

Re : Probléme USERFORM avec condition

Mon problème est résolu