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

Usine à gaz · 12 Juin 2021

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 · 12 Juin 2021

Bonjour,

T'as essayé avec un truc du genre

If selection.count<>1 then exitsub ?

TooFatBoy · 12 Juin 2021

Bonjour,

T'as essayé avec un truc du genre

If selection.count<>1 then exitsub ?

riton00 · 12 Juin 2021

Bonjour,

Avec double clic

VB:

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

Slts

Usine à gaz · 12 Juin 2021

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 · 12 Juin 2021

Marcel32 à dit:
Bonjour,

T'as essayé avec un truc du genre

If selection.count<>1 then exitsub ?

Bonjour marcel, je regarde

Usine à gaz · 12 Juin 2021

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

dysorthographie · 12 Juin 2021

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

VB:

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

TooFatBoy · 12 Juin 2021

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 · 12 Juin 2021

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 · 12 Juin 2021

Usine à gaz à dit:
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 · 12 Juin 2021

Marcel32 à dit:
Ç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 · 12 Juin 2021

On peut mettre R,toto ou ce sont veut !

Usine à gaz · 12 Juin 2021

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

TooFatBoy · 12 Juin 2021

Usine à gaz à dit:
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 · 12 Juin 2021

ça passe pas

VB:

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

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

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

TooFatBoy

TooFatBoy

XLDnaute Barbatruc

riton00

XLDnaute Impliqué

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

dysorthographie

XLDnaute Accro

TooFatBoy

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

dysorthographie

XLDnaute Accro

Usine à gaz

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires