[VBA-E]Selection multiple

Version imprimable

31/01/2006, 08h55
marie10

[VBA-E]Selection multiple
Bonjour!
Voila, j'ai un petit soucis pour l'utilisation de "Target.Value" dans une fonction Worksheet.change.
En fait, cette fonction pose en premier une condition sur la valeur de la "target.value":
Code:

1 2 3 4 5 6 Private Sub Worksheet_Change(ByVal Target As Range) Dim jour As Date Dim dateF As Date If Target.Value = "Formation" Or Target.Value = "Vacances" Or ...
le probleme se pose lorsque dans ma feuille je procède a des selections multiples...vba me remvoit une erreur, ce qui semble logique puisqu'il ny a pas 1 target.value mais un ensemble de cellule active.
je comprend donc bien pkoi ca ne marche pas.... mais je ne sais pas comment y remédier!!!
Il faudrait que je pose une condition superieur, pour laquelle on teste la target value seulement si la selection nest pas multiple ou qqchose dans le genre...
enfin tout ca pour dire que je ne sait absolument pas comment procéder..
si qqun a une réponse..merci davances!![/code]
31/01/2006, 09h35
bidou

Target.Cells.Count te dira si tu as une selection multiple

Sinon en traitant chaque cellule

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim c As Range
    For Each c In Target.Cells
        Select Case True
            Case c = "Formation"
                MsgBox c
            Case c = "Vacances"
                MsgBox c
        End Select
    Next
End Sub

31/01/2006, 09h38
Pierre Fauconnier
Bonjour

Normalement, avec l'évènement Change, tu ne dois pas avoir de problèmes car dans ce cas, Target renvoie la cellule active et non la plage sélectionnée.

Par contre, le problème surviendra avec l'évènement SelectionChange, car target renvoie la plage sélectionnée, qu'elle soit uni ou multi cellulaire.

De toutes façons, quel que soit l'évènement considéré, tu peux tester
Code:

1 2 if target.cells.count=1 and (target.value = ... or target value = ...) then
Ok?

Pierre Fauconnier
31/01/2006, 09h42
marie10

Ca marche super avec le count!!! merci beaucoup!!!
:D :D