"sélectionchange" à plusieurs conditions "résolu"

[maude]

Bonjour à tous,

j'ai un PB dans un code événementiel de type "sélectionchange" qui me renvoi une fois de plus vers votre savoir.

le besoin:
Dans une plage de cellule (F6:F905), si je selectionne une des cellules à l'interieur de cette plage, et que celle-ci est non vide alors msgbox "merci beaucoup"

j'ai essayé ceci:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("F6:F905")) Is Nothing Then
msgbox "merci beaucoup"
End If
End Sub

ça fonctionne lorsque je selectionne une cellule compris dans ma plage, mais je n'arrive pas à modifier le code pour prendre en compte l'état de la cellule sélectionnée, et de lancer la macro que si elle est non vide.

Je rage un peu car je suis sur que ce PB est à ma porté......mais quand ça veut pas...

merci par avance...

 

[Pierrot93]

Re : "sélectionchange" à plusieurs conditions

Bonjour,

essaye ceci :

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("F6:F905")) Is Nothing Then
    If Target <> "" Then MsgBox "merci beaucoup"
End If
End Sub

bonne journée
@+

 

[Iznogood1]

Re : "sélectionchange" à plusieurs conditions

Le code de Pierrot peut être compléter pour éviter d'avoir une erreur si quand on sélectionne plusieurs cellules

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Application.Intersect(Target, Range("F6:F905")) Is Nothing Then
    If Target.Count = 1 Then
      If Target.Value <> "" Then MsgBox "merci beaucoup"
    End If
  End If
End Sub

 

[Pierrot93]

Re : "sélectionchange" à plusieurs conditions

Re,

oui tu as raison, on peut d'ailleurs tester aussi ainsi :

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("F6:F905")) Is Nothing And Target.Count = 1 Then
    If Target <> "" Then MsgBox "merci beaucoup"
End If
End Sub

 

[maude]

Re : "sélectionchange" à plusieurs conditions

Bonjour Pierrot,

effectivement, écrit comme ça...ça parrait clair. Je ne sais pas pourquoi je cherchais à mettre la deuxieme condition juste derrière la première (avant le "is nothing")...grrrr...ç'était vraiment à ma portée désolé du dérangement....

en tout cas merci beaucoup pour le coup de pouce.

bonne journée

 

[maude]

Re : "sélectionchange" à plusieurs conditions

oops j'avais pas vue le reste.....

merci beaucoup pour l'astuce du test (si "plusieurs cellule selectionnées") peu etre effectivement très utile dans mon cas...je n'y avais meme pas pensée.

du coup je suis un peu moins "grrr" que tout à l'heure.

grand merci à vous deux pour le partage de connaissance..vraiment sympa...

++