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...
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
Le code de Pierrot peut être compléter pour éviter d'avoir une erreur si quand on sélectionne plusieurs cellules
Code:
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
oui tu as raison, on peut d'ailleurs tester aussi ainsi :
Code:
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
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....
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...