podzob56
Messages postés32Date d'inscriptionmardi 27 novembre 2007StatutMembreDernière intervention13 novembre 2017
-
26 mars 2009 à 17:32
bigfish_le vrai
Messages postés1835Date d'inscriptionvendredi 13 mai 2005StatutMembreDernière intervention20 novembre 2013
-
27 mars 2009 à 16:21
Bonjour,
je souhaiterai qu'un msgbox s'affiche lorsque je sélectionne la cellule "C10"
voila le code que j'utilise:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("C10")) Is Nothing Then
MsgBox "c'est partii!"
End If
End Sub
bigfish_le vrai
Messages postés1835Date d'inscriptionvendredi 13 mai 2005StatutMembreDernière intervention20 novembre 201315 27 mars 2009 à 16:21
Salut,
Y a pas de probleme dans ce que tu as fait.
Mais evidemment comme son nom l'indique l'evenement SelectionChange fonctionne uniquement quand la selection change. En claire cette evenement ne fonctionne que pour les cellules et dans ton cas, la limitation a une seul cellule(la C10), fait que cette evenement ne ce declenche que si la nouvelle selection est C10. Si C10 est deja sectionnée et que tu cliques a nouveau dessus rien ne ce passe car ce n'est pas une nouvelle selection.
En bref ta methode (et il n'y en a pas d'autre) fonctionne que si, la selection precedente n'est pas C10.
voici une solution pour contourné le probleme.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("C10")) Is Nothing Then
Range("C11").Select
MsgBox "c'est partii!"
End If
End Sub