Bonjour,
J'ai besoin d'effectuer une macro pour me recopier des données d'une feuille à une autre.
Or, sur la feuille de destination 'données-substances dangereuses' il existe ce code :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x%, Plg As Range
If Not Application.Intersect(Target, Range("b6")) Is Nothing Then
Application.ScreenUpdating = False
On Error Resume Next
ActiveSheet.ShowAllData
On Error GoTo 0
If Target.Count > 1 Or Target = "" Then Exit Sub
Set Plg = Range("a10:aq" & [C65000].End(xlUp).Row)
Select Case UCase(Target)
Case Is = "ARTICLE": x = 3
Case Is = "DESIGNATION": x = 5
Case Is = "UTILISE": x = 9
Case Else: Exit Sub
End Select
'-- tri (x = N°colonne à trier) --
Plg.Sort Key1:=Cells(10, x), Order1:=xlAscending, Key2:= _
Cells(10, "i"), Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom
'-- filtre --
If x = 9 Then
Range("o2") = "=i11>0"
Plg.AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=Range("o1:o2"), Unique:=False
Range("o2").ClearContents
End If
End If
End Sub
Comment à partir d'une macro exécutée a partir de la feuille 'Pas à pas' faire un copier/coller de certaines colonnes sur la feuille ''données-substances dangereuses'.
Il faudrait désactivée cette "Private Sub Worksheet_Change" , exécuter la macro de copie, et réactiver la "Private Sub Worksheet_Change".
Merci
Zyglur