Détection de l'utilisation de recopie de cellule

Version imprimable

Bonjour à tous,

Je cherche à rajouter une condition "If" si l'utilisateur utilise la recopie de cellule par tirage (petite croix sous la première cellule)
J'essaie avec une condition sur "autofill" ? J'ai bon, je chauffe ?

Pour tout expliquer, j'ai une macro qui demande une validation si une cellule est effacée ou modifiée. Ca fonctionne du feu de dieu si on sélectionne une ou plusieurs cellules, mais pas si l'on utilise la recopie...

Merci de vos contributions si vous avez une idée

Bon Week-end,
Amicalement
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 If Target.Cells(1, 1) = "" Then If Target.Cells.Count >= 1 Then Reponse = MsgBox("Voulez-vous modifier ?", vbYesNo + vbExclamation + vbDefaultButton2) ' c'est ici que je souhaite ajouter un: ' Else ' If Autofill = "" then If Reponse = vbNo Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True Else Exit Sub End If End If End If

re
bonsoir
il n'existe pas a proprement parler de fonction VBA excel de detection d'autofill
cela dit tu peux t'en faire une

puisque pour faire un autofill il te faut :

selectionner la 1 ere cellule et pour que l'evenement selection change soit pris en compte il faut lacher le bouton de la souris
ensuite tu chope la poignée et tu etire puis lache le bouton de la souris et la a nouveau l'evenement selection change se déclance
et bien il te suffit de memoriser avec une variable static la premiere selection (1 cellule) et comparer avec la selection la 2d fois
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Static c1 As Range Dim cel1 As Range If Target.Cells.Count = 1 Then Set c1 = Selection.Cells(1) Debug.Print c1.Address Else If Target.Cells.Count > 1 And Not c1 Is Nothing Then If Selection.Column = c1.Column Then Set cel1 = c1 Set c1 = Selection If Selection.Cells(1).Address = cel1.Address And Selection.Columns.Count = 1 Then MsgBox "vous avez étiré la cellule " & cel1.Address & " sur la plage " & c1.Address Set c1 = Nothing End If End If End If End If End Sub
voila tu l'a ton evenement After_AutoFill;)

correction d'une coquille
l'effet se faisait mement quand on etirais pas mais que la selection finale etait cohérente avec le resultat d'autofill sauf que c'etait une simple selection
et pour parfaire l'effet du pseudo evenement on teste aussi le formular1c1
et a la place du msgbox on appelle ce dit" pseudo evenement " que j'ai appeler "selection_autoFill";)

les actions a faire en fonction du autofill se feront dans ce pseudo evenement

voila
tu met ca dans ton module du sheets et tu code dans l'evenement

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Static c1 As Range
    Dim cel1 As Range
    If Target.Cells.Count = 1 Then
        Set c1 = Selection.Cells(1)
        Debug.Print c1.Address
    Else
        If Target.Cells.Count > 1 And Not c1 Is Nothing Then
            If Selection.Column = c1.Column Then
                Set cel1 = c1
                Set c1 = Selection
                If Selection.Cells(1).Address = cel1.Address And Selection.Columns.Count = 1 Then
                    If cel1.FormulaR1C1 = c1.Cells(c1.Cells.Count).FormulaR1C1 And cel1.FormulaR1C1 <> "" Then selection_AutoFill cel1, c1
                    Set c1 = Nothing
                End If
            End If
        End If
    End If
End Sub
''
'
'Pseudo evenement selection_AutoFill
Private Sub selection_AutoFill(ByRef cel1 As Range, ByRef CSelection As Range)
 
    MsgBox "vous avez étiré la cellule " & cel1.Address & " sur la plage " & CSelection.Address
End Sub

voila l'effet est vraiment bloffant :mouarf:

25/08/2018, 22h57
bencelui

Genial

Bonsoir et tout d'abord merci !!!!

Exactement ce que je cherchais à faire....

Juste, ça ne fonctionne que si l'on tire vers le bas... Pas a droite, a gauche ni en haut...

Je vais chercher de mon coté comment améliorer ce super code....

En tout cas, un grand merci....

J'avance, au lieu de tourner en rond !

Bonne soirée
Bien cordialement
25/08/2018, 23h10
patricktoulon

re

re
ben oui l'autofill ne fonctionne que sur une colonne donc droite et gauche c'est non
maintenant si tu veux modifier ce point ca change tout ca n'est plus un surveillant de autofill mais un nouveau autofill amélioré si je puis m'exprimer ainsi
pour le bas vers le haut je peux modifier le test de la cellule1 avec la cellule.count de la 2d selection et la transformer pour que le test se fasse de haut en bas et bas en haut

c'est rigolo ton truc ;)

re de haut en bas de bas en haut

voila pour les deux sens

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub Worksheet_SelectionChange(ByVal Target As Range)
    Static c1 As Range
    Dim cel1 As Range, F As Boolean
    If Target.Cells.Count = 1 Then
        Set c1 = Selection.Cells(1)
        Debug.Print c1.Address
    Else
        If Target.Cells.Count > 1 And Not c1 Is Nothing Then
            If Selection.Column = c1.Column Then
                Set cel1 = c1
                Set c1 = Selection
                If Selection.Cells(1).Address = cel1.Address Or Selection.Cells(Selection.Cells.Count).Address = cel1.Address And Selection.Columns.Count = 1 Then
                    F = True
                    For Each cel In Selection.Cells
                        If cel.FormulaR1C1 <> Selection.Cells(1).FormulaR1C1 Then F = False
                    Next
                    If F = True Then selection_AutoFill cel1, c1
                    Set c1 = Nothing
                End If
            End If
        End If
    End If
End Sub
'
'
'
'Pseudo evenement selection_AutoFill
Private Sub selection_AutoFill(ByRef cel1 As Range, ByRef CSelection As Range)
    MsgBox "vous avez étiré la cellule " & cel1.Address & " sur la plage " & CSelection.Address
End Sub

;)

re et maintenant dans tout les sens

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Static c1 As Range
    Dim cel1 As Range, F As Boolean
    If Target.Cells.Count = 1 Then
        Set c1 = Selection.Cells(1)
        Debug.Print c1.Address
    Else
        If Target.Cells.Count > 1 And Not c1 Is Nothing Then
             Set cel1 = c1
            Set c1 = Selection
            If Selection.Cells(1).Address = cel1.Address Or Selection.Cells(Selection.Cells.Count).Address = cel1.Address Then
                F = True
                For Each cel In Selection.Cells
                    If cel.FormulaR1C1 <> Selection.Cells(1).FormulaR1C1 Then F = False
                Next
                If F = True Then selection_AutoFill cel1, c1
                Set c1 = Nothing
            End If
 
        End If
    End If
End Sub
'
'
'Pseudo evenement selection_AutoFill
Private Sub selection_AutoFill(ByRef cel1 As Range, ByRef CSelection As Range)
    MsgBox "vous avez étiré la cellule " & cel1.Address & " sur la plage " & CSelection.Address
End Sub

;)

26/08/2018, 08h24
bencelui

Alors là: RESPECT !!!!!!!!

Un immense, immense merci !!!!!!

8 jours que je suis dessus !

Toutes mes excuses pour le temps passé et tous mes remerciement pour le travail effectué !

Vous avez un sacré niveau....Arriver a contourner complétement ce qui n'est pas prévu par VBA :D

Je pense que votre réponse va servir à beaucoup de monde !

Passez un bon dimanche...:)
26/08/2018, 09h07
bencelui

Juste une derniere petite question

Ca fonctionne du feux de dieu sur une cellule et dans tous les sens.... encore bravo !

Par contre ça ne fonctionne pas si l'on sélectionne un groupe de plusieurs cellules...

Auriez-vous une idée ?

J'essaye de décomposer le code pour comprendre....
26/08/2018, 14h14
78chris

Bonjour

Citation:

Envoyé par bencelui

...Arriver a contourner complétement ce qui n'est pas prévu par VBA...

Autofill n'est pas l'action de tirer sur la poignée de recopie mais celle de double cliquer dessus : ce sont donc 2 choses différentes, ce n'est pas VBA qui ne prévoit pas, c'est toi qui utilise un terme impropre...

Patricktoulon avait d'ailleurs bien fait la différence en écrivant "l'autofill ne fonctionne que sur une colonne"

Je répète toujours sur les forums mais aussi à mes clients formation, qu'il ne faut pas se lancer dans VBA avant un bon niveau de maîtrise d'Excel car on n'automatise bien que ce qu'on connait bien...
26/08/2018, 14h39
patricktoulon

Citation:

Envoyé par bencelui

Ca fonctionne du feux de dieu sur une cellule et dans tous les sens.... encore bravo !

Par contre ça ne fonctionne pas si l'on sélectionne un groupe de plusieurs cellules...

Auriez-vous une idée ?

J'essaye de décomposer le code pour comprendre....

ben en fait non la ca deviendrait trop compliqué on peut etendre une plage de x ligne OU!! y colonnes (pas les deux en meme temps )mais pour controler les formule tu imagine si chacune a une formule differentes
j'ai trouvé des particularité dans le xml je vais verifier mais la tu en demande un peu trop quand meme il faut pas oublier que cet evenement n'est pas naturel tout est perso

il faudrai partir non plus sur une cellule puis les cellules de selection
mais selection1 puis selection2 et tester les formule dans une boucle avec step( nombre de colonne ou de ligne
non réalisable mais trop compliqué
en plus je fait ca par gentillesse mais bon je suis quand meme pas une banque de code non plus hein ;)
26/08/2018, 21h20
bencelui

Mea-culpa

Toutes mes excuses,

Après avoir utilisé excel de manière classique pendant de nombreuses années, je suis aujourd'hui contraint de mettre en place des feuilles un peu plus complexes que celles avec "juste" des formules..
Je suis donc archi-débutant en VBA...

Alors je me suis documenté et en attendant que mon institution m'envoie en formation VBA niv 1, je grenouille, pour avancer sur les projets....
Mais la formation ne sera pas du luxe :)

Vraiment désolé pour le dérangement,

Bien cordialement