Discussion :

[ChristianBosch]

Bonjour,

Dans une feuille j'execute une action à chaque changement de valeur dans une cellule, j'utilise donc le "worksheet_selectionchange".

Ca fonctionne assez bien sauf pour le "filldown" (action de faire du copier coller incrémental via la souris)

VBA ne le detecte pas comme un changement.

Quelqu'un a une idée ?

Merci

update : ca ne fonctionne pas non plus avec le copier coller, je pense que cela vient du fait que ce soit un tableau structuré

[EricDgn]

Bonjour,

Sur mon pc, Excel 365, cela fonctionne:

Cordialement.

[ChristianBosch]

Salut Eric,

J'ai modifié l'appel "SelectionChange" à "Change" et ça a l'air de fonctionner

en fait j'ai fait un petit programme pour changer facilement les données d'une base en directement dans la requête Excel

Ça donne ça :

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
Private Sub Worksheet_Change(ByVal Target As Range)
Dim NoBDD As Integer
Dim champ As String
Dim MyCell As Range
 
On Error GoTo fin
If Not Intersect(Target, Feuil12.ListObjects(1).DataBodyRange) Is Nothing Then
    For Each MyCell In Target
        champ = Cells(1, MyCell.Column).Value
        NoBDD = Cells(MyCell.row, 1)
        ModifOF Feuil12.ListObjects(1).ListColumns(1).Name, NoBDD, "Ordonancement", champ, MyCell.Value, Feuil6.Range("BDDOrdo").Value
    Next MyCell
End If
fin:
End Sub