bonjour le forum
une autre question pour les experts que vous êtes :
est-il possible de réduire le temps de traitement en ce qui concerne la purge de cellule vide sur un fichier excel.
ci dessous ma macro de purge qui suprrime les lignes vides une à une et cela prend donc environ 1.45min :
Sub purger()
Workbooks("TEST bon cde CODE BARRE Master 2012.xls").Activate
Application.DisplayAlerts = True
Dim NomFich As String, WkbC As Workbook, Wkb As Workbook
If MsgBox("Attention, voulez allez supprimer toutes les données saisies!", vbOKCancel + vbExclamation + vbDefaultButton2, "Suppression de toutes les données") = vbOKCancel Then
With Sheets("ORDER")
.Range("A20:A702").ClearContents
With Sheets("ORDER")
.Range("E13,E14,E15,E16,C708,C709,C710,C711,C712,C713").ClearContents
With Sheets("ORDER")
.Range("D20702").ClearContents
With Sheets("ORDER")
.Range("G20:G702").ClearContents
With Sheets("ORDER")
.Range("E13:G13").ClearContents
With Sheets("ORDER")
.Range("C708:F713").ClearContents
End With
End With
End With
End With
End With
End With
MsgBox "Toutes les données ont été supprimées"
End If
End Sub
gratitude _
une autre question pour les experts que vous êtes :
est-il possible de réduire le temps de traitement en ce qui concerne la purge de cellule vide sur un fichier excel.
ci dessous ma macro de purge qui suprrime les lignes vides une à une et cela prend donc environ 1.45min :
Sub purger()
Workbooks("TEST bon cde CODE BARRE Master 2012.xls").Activate
Application.DisplayAlerts = True
Dim NomFich As String, WkbC As Workbook, Wkb As Workbook
If MsgBox("Attention, voulez allez supprimer toutes les données saisies!", vbOKCancel + vbExclamation + vbDefaultButton2, "Suppression de toutes les données") = vbOKCancel Then
With Sheets("ORDER")
.Range("A20:A702").ClearContents
With Sheets("ORDER")
.Range("E13,E14,E15,E16,C708,C709,C710,C711,C712,C713").ClearContents
With Sheets("ORDER")
.Range("D20702").ClearContents
With Sheets("ORDER")
.Range("G20:G702").ClearContents
With Sheets("ORDER")
.Range("E13:G13").ClearContents
With Sheets("ORDER")
.Range("C708:F713").ClearContents
End With
End With
End With
End With
End With
End With
MsgBox "Toutes les données ont été supprimées"
End If
End Sub
gratitude _