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,