Discussion :

[marie10]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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]

[bidou]

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

[DarkVader]

Sinon en traitant chaque cellule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Ok?

Pierre Fauconnier

[marie10]

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