Microsoft 365 si sélection de plusieurs cellules = quitter Private Sub Worksheet_SelectionChange(ByVal R As Range)

[Usine à gaz]

Bonjour à toutes et à tous,
Je vous souhaite un beau WE

Je voudrais, comme indiqué dans le titre du #post que, je sélectionne si par erreur plusieurs cellules en même temps, "Private Sub Worksheet_SelectionChange(ByVal R As Range)"
- ne s'exécute pas,
- Et Exit sub,

J'ai fait des recherches et tests sans succès,
Auriez le bon code,
En cas, je joins le fichier test,
Je vous remercie vivement, une fois de plus
Amicalement,
lionel,

 

[TooFatBoy]

Bonjour,

T'as essayé avec un truc du genre

If selection.count<>1 then exitsub ?

 

[riton00]

Bonjour,

Avec double clic

Private Sub Worksheet_BeforeDoubleClick(ByVal R As Range, Cancel As Boolean)

Slts

 

[Usine à gaz]

Bjr riton
merci pour ton retour mais c'est pas en double clic : c'est en simple clic : Private Sub Worksheet_SelectionChange(ByVal R As Range)

 

[Usine à gaz]

Bonjour,

T'as essayé avec un truc du genre

If selection.count<>1 then exitsub ?

Bonjour marcel, je regarde

 

[Usine à gaz]

Re,
@Marcel,
Nickel ça marche super bien et je n'y avais pas pensé Grrrrrrrrr !!!
Merci Marcel,
Je joins le fichier modifié,
lionel

 

[dysorthographie]

bonjour,
je ne comprend pas l'utilisation du selection.count!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
End Sub

 

[TooFatBoy]

En l'occurrence pour Yoyo ce serait R.Count et non Target.Count mais c'est ce R qui me dérangeait un pneu.

Pourquoi R ?

 

[Usine à gaz]

Bonjour dysorthographie

Le "If R.Count > 1 Then Exit Sub" de ce que j'en comprends compte le nombre de cellules sélectionnées et fait sortir du code s'il y en a plusieurs.
lionel,

 

[TooFatBoy]

Le "If R.Count > 1 Then Exit Sub" de ce que j'en comprends compte le nombre de cellules sélectionnées etfait sortir du code s'il t en a plusieurs.

Ça tombe bien, puisque c'est ce que tu voulais.


En fait si je n'ai pas mis R.count c'est parce que je ne savais pas si ça fonctionnait, à cause du "By Val".


[edit]
Mais ça doit fonctionner puisque R est "As Range"...
[/edit]

 

[Usine à gaz]

Ça tombe bien, puisque c'est ce que tu voulais.


En fait si je n'ai pas mis R.count c'est parce que je ne savais pas si ça fonctionnait, à cause du "ByVal".


[edit]
Mais ça doit fonctionner puisque R est "as Range"...
[/edit]

Mais SI, mais SI ... Marcel ça marche d'enfer

 

[dysorthographie]

On peut mettre R,toto ou ce sont veut !

 

[Usine à gaz]

tu le codes comment le "R,toto" ?
en modifiant comment? : "If R.Count > 1 Then Exit Sub"

 

[TooFatBoy]

tu le codes comment le "R,toto" ?
en modifiant comment? : "If R.Count > 1 Then Exit Sub"

Il a voulu dire "R, Toto, ou ce qu'on veut".

Oui, il faut modifier en Toto.Count, mais aussi ByVal Toto As Range bien sûr.

 

[Usine à gaz]

ça passe pas

Private Sub Worksheet_SelectionChange(ByVal Toto As Range)
If Not Intersect(R, Range("f1:f10000")) Is Nothing Then
    If Toto.Count <> 1 Then
    MsgBox ("Invalide : Sélection de plusieurs cellules !" & nbcel)
    [a1].Select
    Exit Sub
    End If
    R = "ok"
    End If
End Sub