Petit problème de Select Case...

Pierrot93

XLDnaute Barbatruc

• 27 Août 2008

• #2

Re : Petit problème de Select Case...

Bonjour ioraek,

Si j'ai bien compris ta demande, dans une procédure événementielle, pour que le code s'exécute uniquement sur la plage A1:A10, je procéderais ainsi :

Code:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
'ton code
End If
End Sub

bonne journée
@+

 

Vote positif 0 Vote négatif

I

i0raek

XLDnaute Occasionnel

• 27 Août 2008

• #3

Re : Petit problème de Select Case...

Bonjour Pierrot93 !

Jusqu'à présent, j'utilisais ce type de code seulement, comme il y a une dizaine de plage possible... ca fait beaucoup de test if avant d'exécuter le code lié à la dernière plage... d'ou le Select Case

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 27 Août 2008

• #4

Re : Petit problème de Select Case...

Bonjour,
Une explication plus claire eut été bienvenue, mais si j'essaie d'interpréter, utilise plutôt la méthode Intersect
If not Intersect(Range("A1:A10"),Target) is Nothing Then...
A+
kjin

Edit: Un peu mou ce matin, bonjour Pierrot

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 27 Août 2008

• #5

Re : Petit problème de Select Case...

Bonjour

dans ce cas là tu peux passer par elseif et cela fera le même nombre de ligne qu'un select case

If .... then
elseif ....then
elseif .... then
end if

 

Vote positif 0 Vote négatif

I

i0raek

XLDnaute Occasionnel

• 27 Août 2008

• #6

Re : Petit problème de Select Case...

Bonjour kjin,

désolé, je pensais l'être...😱
En fait, j'ai une feuille avec une dizaine de plage lié à un événement qui se déclenche si l'on modifie l'une des cellules de la plage.

Jusqu'à présent je faisais le test If Not Intersect ... pour chaque plage afin qu'il trouve la bonne et exécute le code de l'événement.

Je me demandais juste s'il était possible d'éviter de tester chaque plage et j'avais pensais au Select Case.

En espérant être plus clair !

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 27 Août 2008

• #7

Re : Petit problème de Select Case...

Re, bonjour Pascal,
Pourquoi pas

If Not Intersect(Range("A1:A10, B5:B6, C5:C10"), Target) Is Nothing Then...
par exemple, si tu as plusieurs plages à contrôler
A+
kjin

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 27 Août 2008

• #8

Re : Petit problème de Select Case...

Re

c'est le même évènement pour toutes les plages ??

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 27 Août 2008

• #9

Re : Petit problème de Select Case...

Bonjour à tous,

le soucis est que le Select Case ne peut s'appliquer que sur une Variable/Valeur, mais toi tu veux tester des plages variables, donc pas toujours la même Variable/Valeur.
Le Select Case n'est donc pas approprié... peux-tu préciser le type d'action que tu réalises si Target fait partie d'une des plages ?

 

Vote positif 0 Vote négatif

I

i0raek

XLDnaute Occasionnel

• 27 Août 2008

• #10

Re : Petit problème de Select Case...

Re, bonjour tototiti2008,

Malheureusement, l'événement est propre à chaque plage (ce serait trop beau !!!)...

Les événements sont du type afficher/masquer des lignes ou colonnes, changer la valeur de cellules à appeler des procédures de macros... c'est assez varié en fait.

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 27 Août 2008

• #11

Re : Petit problème de Select Case...

Désolé, je ne vois pas vraiment comment simplifier ton code dans ce cas....

 

Vote positif 0 Vote négatif

I

i0raek

XLDnaute Occasionnel

• 27 Août 2008

• #12

Re : Petit problème de Select Case...

Re,

Ok... bon bah c'est pas grave...

Merci quand même !!!
@++

 

Vote positif 0 Vote négatif