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