bonsoir tt le monde, y a t'il un moyen de lire ce code VBA crypter? Merci
Private Sub CommandButton_exporter_Click()
Application.ScreenUpdating = False
If e4bbb916b768fa62e2edfdc7b2c6ba8fa >= 0 Then
b4585cde2e81e688a446d496f2379a809 = 0
For i = 1 To 30
If Controls("CheckBox" & i).Value Then
b4585cde2e81e688a446d496f2379a809 = b4585cde2e81e688a446d496f2379a809 + 1
End If
Next
If b4585cde2e81e688a446d496f2379a809 = 0 Then
dd = MsgBox("Vous n'avez rien coché ...", 48, "Erreur")
Exit Sub
End If
BD_TEMP.Cells.ClearContents
For b05bb72f6e451cc37b7247f3aca01f69c = -1 To e4bbb916b768fa62e2edfdc7b2c6ba8fa
n6e909625e03d80f0913a1855c7b9e69f = 0
If e4bbb916b768fa62e2edfdc7b2c6ba8fa > xlEntireChart Then Exit For
For bb7a1e2a3fdf57e659da8c898e3737416 = 1 To 30
If Controls("CheckBox" & bb7a1e2a3fdf57e659da8c898e3737416).Value Then
n6e909625e03d80f0913a1855c7b9e69f = n6e909625e03d80f0913a1855c7b9e69f + 1
If b05bb72f6e451cc37b7247f3aca01f69c = -1 Then
w0f72c458a2dd643978e7aff6015d7700 = 1
Else
w0f72c458a2dd643978e7aff6015d7700 = e85c33963b652c33f4b04519aa1c08dc8(b05bb72f6e451cc37b7247f3aca01f69c)
End If
BD_TEMP.Cells(b05bb72f6e451cc37b7247f3aca01f69c + 2, n6e909625e03d80f0913a1855c7b9e69f) = BD_CONTACTS.Cells(w0f72c458a2dd643978e7aff6015d7700, bb7a1e2a3fdf57e659da8c898e3737416)
If IsDate(BD_CONTACTS.Cells(w0f72c458a2dd643978e7aff6015d7700, bb7a1e2a3fdf57e659da8c898e3737416)) Then
BD_TEMP.Cells(b05bb72f6e451cc37b7247f3aca01f69c + 2, n6e909625e03d80f0913a1855c7b9e69f).NumberFormat = "m/d/yyyy"
End If
End If
Next
Next
BD_TEMP.Range("1:" & e4bbb916b768fa62e2edfdc7b2c6ba8fa + 2).Copy
ba5b1fb13e8879ea12cf0153494604367 = ActiveWorkbook.Name
Dim Classeur_export As Workbook
Set Classeur_export = Workbooks.Add
Classeur_export.ActiveSheet.Paste
With ActiveWindow
.SplitColumn = 0
.SplitRow = 1
End With
ActiveWindow.FreezePanes = True
If Val(Application.Version) >= 12 Then
ActiveSheet.Cells.Select
ActiveSheet.Sort.SortFields.Clear
If Controls("CheckBox1").Value = True Or (Controls("CheckBox1").Value = False And Controls("CheckBox2").Value = False) Then
ActiveSheet.Sort.SortFields.Add Key:=Range("A2:A" & e4bbb916b768fa62e2edfdc7b2c6ba8fa + 2 _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
End If
If Controls("CheckBox1").Value = False Or (Controls("CheckBox1").Value = True And Controls("CheckBox2").Value = False) Then
ActiveSheet.Sort.SortFields.Add Key:=Range("B2:B" & e4bbb916b768fa62e2edfdc7b2c6ba8fa + 2 _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
End If
ActiveSheet.Sort.SortFields.Add Key:=Range("C2:C" & e4bbb916b768fa62e2edfdc7b2c6ba8fa + 2 _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveSheet.Sort
.SetRange Range("A1:AE" & e4bbb916b768fa62e2edfdc7b2c6ba8fa + 2)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End If
ActiveSheet.Range("1:1").Font.Bold = True
ActiveSheet.Range("A1").Select
Application.CutCopyMode = False
Unload Me
Unload UserForm_STOCK
Workbooks(ba5b1fb13e8879ea12cf0153494604367).Sheets("BD_TEMP").Cells.ClearContents
Else
Unload Me
End If
End Sub
Private Sub CommandButton_exporter_Click()
Application.ScreenUpdating = False
If e4bbb916b768fa62e2edfdc7b2c6ba8fa >= 0 Then
b4585cde2e81e688a446d496f2379a809 = 0
For i = 1 To 30
If Controls("CheckBox" & i).Value Then
b4585cde2e81e688a446d496f2379a809 = b4585cde2e81e688a446d496f2379a809 + 1
End If
Next
If b4585cde2e81e688a446d496f2379a809 = 0 Then
dd = MsgBox("Vous n'avez rien coché ...", 48, "Erreur")
Exit Sub
End If
BD_TEMP.Cells.ClearContents
For b05bb72f6e451cc37b7247f3aca01f69c = -1 To e4bbb916b768fa62e2edfdc7b2c6ba8fa
n6e909625e03d80f0913a1855c7b9e69f = 0
If e4bbb916b768fa62e2edfdc7b2c6ba8fa > xlEntireChart Then Exit For
For bb7a1e2a3fdf57e659da8c898e3737416 = 1 To 30
If Controls("CheckBox" & bb7a1e2a3fdf57e659da8c898e3737416).Value Then
n6e909625e03d80f0913a1855c7b9e69f = n6e909625e03d80f0913a1855c7b9e69f + 1
If b05bb72f6e451cc37b7247f3aca01f69c = -1 Then
w0f72c458a2dd643978e7aff6015d7700 = 1
Else
w0f72c458a2dd643978e7aff6015d7700 = e85c33963b652c33f4b04519aa1c08dc8(b05bb72f6e451cc37b7247f3aca01f69c)
End If
BD_TEMP.Cells(b05bb72f6e451cc37b7247f3aca01f69c + 2, n6e909625e03d80f0913a1855c7b9e69f) = BD_CONTACTS.Cells(w0f72c458a2dd643978e7aff6015d7700, bb7a1e2a3fdf57e659da8c898e3737416)
If IsDate(BD_CONTACTS.Cells(w0f72c458a2dd643978e7aff6015d7700, bb7a1e2a3fdf57e659da8c898e3737416)) Then
BD_TEMP.Cells(b05bb72f6e451cc37b7247f3aca01f69c + 2, n6e909625e03d80f0913a1855c7b9e69f).NumberFormat = "m/d/yyyy"
End If
End If
Next
Next
BD_TEMP.Range("1:" & e4bbb916b768fa62e2edfdc7b2c6ba8fa + 2).Copy
ba5b1fb13e8879ea12cf0153494604367 = ActiveWorkbook.Name
Dim Classeur_export As Workbook
Set Classeur_export = Workbooks.Add
Classeur_export.ActiveSheet.Paste
With ActiveWindow
.SplitColumn = 0
.SplitRow = 1
End With
ActiveWindow.FreezePanes = True
If Val(Application.Version) >= 12 Then
ActiveSheet.Cells.Select
ActiveSheet.Sort.SortFields.Clear
If Controls("CheckBox1").Value = True Or (Controls("CheckBox1").Value = False And Controls("CheckBox2").Value = False) Then
ActiveSheet.Sort.SortFields.Add Key:=Range("A2:A" & e4bbb916b768fa62e2edfdc7b2c6ba8fa + 2 _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
End If
If Controls("CheckBox1").Value = False Or (Controls("CheckBox1").Value = True And Controls("CheckBox2").Value = False) Then
ActiveSheet.Sort.SortFields.Add Key:=Range("B2:B" & e4bbb916b768fa62e2edfdc7b2c6ba8fa + 2 _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
End If
ActiveSheet.Sort.SortFields.Add Key:=Range("C2:C" & e4bbb916b768fa62e2edfdc7b2c6ba8fa + 2 _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveSheet.Sort
.SetRange Range("A1:AE" & e4bbb916b768fa62e2edfdc7b2c6ba8fa + 2)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End If
ActiveSheet.Range("1:1").Font.Bold = True
ActiveSheet.Range("A1").Select
Application.CutCopyMode = False
Unload Me
Unload UserForm_STOCK
Workbooks(ba5b1fb13e8879ea12cf0153494604367).Sheets("BD_TEMP").Cells.ClearContents
Else
Unload Me
End If
End Sub