Discussion :

[Tan]

Bonjour,
Je souhaitais détecté l'action "glisser une cellule" dans mon projet excel, ce que j'ai fait en gérant les évènements 2 change puis1 selectionChange
Dans le premier évènement change, je regarde si la cellule d'origine est différente de la cellule de destination.
Si oui, il s'agit d'un glisser, et je fais ce que j'ai à faire (undo pour récupérer les anciennes valeurs, puis traitement).

Cela marche bien, sauf que récemment j'ai constaté que mon traitement ce déclenchait lorsque j'utilisais le pinceau (déclenche 1 change et 1 selectionChange).
Le premier change a aussi une cellule d'origine et une cellule de destination différente, donc il déclenche le traitement et je ne le veux pas.

Voici (simplifié), comment je procède:
Dans une feuille Excel, je mets ce code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
    ' Si l'origine et la destination sont différentes
    If Target.Address <> prevCel.Address Then
        MsgBox "Il y a un glissé"
        ' Traitement
    End If
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Set prevCel = Target
End Sub

Ce que je voudrais, ce serait un moyen de détecter si j'utilise le pinceau (variable récupérant le contenu du pinceau, si ça existe).

Ceci, me permetterai de garder mon code en rajoutant simplement une condition.
Sinon, je devrait tout modifier, et ce ne sera pas évident à cause du traitement.

Sinon une solution serait:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim prevCel As Range
Dim intcountEvent As Integer
Dim bGlisserPeinture As Boolean
 
Private Sub Worksheet_Change(ByVal Target As Range)
    ' On compte les passsages dans change
    intcountEvent = intcountEvent + 1
    ' Si l'origine et la destination sont différentes on indique un glisser où une peinture
    If Target.Address <> prevCel.Address Then bGlisserPeinture = True
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Set prevCel = Target
    ' Si peinture
    If intcountEvent = 1 And bGlisserPeinture = True Then
        MsgBox "il y a eu peinture"
    ElseIf intcountEvent = 2 And bGlisserPeinture = True Then
        MsgBox "il y a eu glisser"
    End If
    intcountEvent = 0
    bGlisserPeinture = False
End Sub

Mais le traitement que j'ai fait complique énormement la chose. Donc, s'il existe un moyen de détecter les peintures...

[bidou]

qu'est ce donc que le pinceau

[Tan]

Pardon,
Dans, la barre d'outil standard d'excel, à côté de couper, copier, coller et il y a un pinceau. Cela sert à reproduire la mise en forme des cellules selectionnées.
Enfin, moi j'appelle ça pinceau.

Tu selectionnes des cellules, tu cliques sur le "pinceau", là les cellules sont encadrées comme pour un couper. Tu selectionnes des cellules de destination et ça copie la mise en forme.

C'est une sorte de copier, mais sans les valeurs.

Comme, les cellules sont encadrées, il doit y avoir quelque part, une infos permettant de savoir quelque sont ces cellules encadrées.
Cela pourrait m'aider si ça existe, sinon, je recherche une autre fonction ou propriété permettant de savoir, si le "pinceau" est actif.
Merci.

[Tan]

J'ai trouvé la propriété CutCopyMode qui indique si l'on est en mode copy (ce qui est le cas pour l'utilisation du pinceau)

Mais dès l'entrée dans l'évenement change, le mode CutCopyMode est déjà inactif.

Voilà, le raisonnement est pas mal, si seulement le mode CutCopyMode devenait inactif après l'évènement change

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim prevCel As Range
 
 
Private Sub Worksheet_Change(ByVal Target As Range)
    ' Si l'origine et la destination sont différentes on indique un glisser où une peinture
    If Target.Address <> prevCel.Address Then
        ' Si le mode copie est actif, il s'agit d'une peinture
        If Application.CutCopyMode = xlCut Then
            MsgBox "il y a peinture"
        Else
            MsgBox "il y a glisser"
        End If
    End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Set prevCel = Target
End Sub

Je n'ai donc toujours pas trouvé.

[Tan]

Pour info, je n'ai pas trouvé les propriétés que je voulais, j'ai donc utilisé la méthode alternative que j'avais mis dans mon premier message.
Ca m'a fait faire pas mal de modif du coup,mais au moins ça m'a fait mettre de l'ordre.

Il est a noter qu'il peut y avoir des problème avec le la fonction annuler. Mais ce n'est pas grave.

Mais, je ne crois pas qu'il soit possible de détecter l'annulation (sauf peut-être de manière très bourrin).

Je considère donc ce post come résolu.