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]

Concentre-toi un tout p'tit pneu mon Yoyo et tu devrais y arriver tout seul comme un grand. 😉

Petite "astuce" :
C'est le genre de souci que tu ne peux pas avoir si tu utilises <Ctrl> + H avec :
- mot à chercher : R
- ne pas oublier de cocher "Mot entier"
- mot de remplacement : Toto
- à appliquer sur toutes les instances dans la procédure.

Quant à R = "ok" 🤔 je suis pas sûr...😁

 

[Usine à gaz]

Cher Marcel 🙂
"Concentre-toi un tout p'tit pneu mon Yoyo" lol j'ai du mal à mon âge 😉
Mais j'veux pas utiliser Toto ou autre chose lol
C'était juste pour répondre à dysorthographie

"If selection.count<>1 then exit sub" me va très très bien 🙂
lionel (ton yoyo lol)

 

[TooFatBoy]

Mais j'veux pas utiliser Toto ou autre chose lol
C'était juste pour répondre à dysorthographie

J'ai bien compris. Moi je te répondais pour tenter de t'aider à comprendre où se trouve ton erreur. That's all. 😉

 

[TooFatBoy]

"If selection.count<>1 then exit sub" me va très très bien 🙂

Ok, selection.count fonctionne mais, maintenant que je sais que ça fonctionne, R.Count me semble mieux. 😉

 

[Usine à gaz]

OUI, je suis d'accord,
Merci Marcel 🙂

 

[dysorthographie]

Le plus simple c'est de ne rien changer !

selection.count<>1

 

[job75]

Bonjour Lionel, salut les amis,

Sélectionnez toutes les cellules de la feuille (Ctrl+A)...

Avec vos codes il y aura bug sur Selection.Count

Il faut utiliser Selection.CountLarge

C'est dû au fait que la propriété Count doit renvoyer un entier de type Long limité à 2 147 483 647.

Alors qu'il y a 17 179 869 184 cellules dans la feuille.

A+

 

[Usine à gaz]

Bonsoir Gérard 🙂
Merci encore d'être là et et "rien ne passe" LOL,
Je vais tester de mon côté,
lionel,

 

[Usine à gaz]

Re_Gérard,
Je vois pas de différence avec "Selection.CountLarge"

If Not Intersect(R, Range("a6:z1000")) Is Nothing Then
    If R.CountLarge <> 1 Then
    MsgBox ("Invalide : Sélection de plusieurs cellules !" & nbcel)
    [a3].Select
    Exit Sub
End If

Je n'ai pas de beug si je fais "Ctrl+A" avec "If R.Count <> 1 Then"

Ce qui est également curieux :
Si je fais "Ctrl+A" je n'ai que les lignes 3 à 10 qui sont sélectionnées et je ne vois pas pkoi ce n'est pas toute la feuille,
lionel,

 

[TooFatBoy]

Pour sélectionner toutes les cellules d'une feuille, normalement il suffit de cliquer sur la case en haut à gauche (à l'intersection des noms de colonnes et des numéros de lignes).

 

[Usine à gaz]

Re-Marcel,
Comme disait Gérard, si je sélectionne toute la feuille, avec .Count ça beug et pas avec .CountLarge
Merci Gérard et Marcel 🙂

 

[Magic_Doctor]

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,

Bonsoir Usine à gaz,

Je m'immisce et me suis permis de faire quelques modifications.

Buenas noches

 

[Usine à gaz]

Bonsoir Magic_Doctor,
Merci d'être là,
Nous ne nous "parlons" pas souvent mais je suis content d'échanger quelques mots avec toi 😉
Merci pour le fichier 🙂
Je regarde et je reviendrai te dire,
lionel,

 

[Usine à gaz]

Re-Bonsoir Magic_Doctor,

Nickel, merci et aussi pour le conseil Option explicit,
Bonne fin de soirée,
Amicalement,
lionel,