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

TooFatBoy

XLDnaute Barbatruc

• 12 Juin 2021

• #16

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...

 

Dernière édition: 12 Juin 2021

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 12 Juin 2021

• #17

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)

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 12 Juin 2021

• #18

Usine à gaz à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 12 Juin 2021

• #19

Usine à gaz à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 12 Juin 2021

• #20

OUI, je suis d'accord,
Merci Marcel

 

Vote positif 0 Vote négatif

dysorthographie

XLDnaute Accro

• 12 Juin 2021

• #21

Le plus simple c'est de ne rien changer !

Code:

selection.count<>1

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 12 Juin 2021

• #22

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+

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 12 Juin 2021

• #23

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 12 Juin 2021

• #24

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

VB:

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,

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 12 Juin 2021

• #25

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).

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 12 Juin 2021

• #26

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

 

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

• 12 Juin 2021

• #27

Usine à gaz à dit:

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,

Cliquez pour agrandir...

Bonsoir Usine à gaz,

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

Buenas noches

 

Pièces jointes

• test.xlsm

  18.2 KB · Affichages: 4

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 12 Juin 2021

• #28

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,

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 12 Juin 2021

• #29

Re-Bonsoir Magic_Doctor,

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

 

Vote positif 0 Vote négatif