Squoltahthx94
XLDnaute Occasionnel
Bonjour le Forum,
a peine ma macro démarre que cela m'affiche 'Dépassement de Capacité' mais je ne vois pas pourquoi!!!
Quelqu'un a une idée???
Merci
a peine ma macro démarre que cela m'affiche 'Dépassement de Capacité' mais je ne vois pas pourquoi!!!
Quelqu'un a une idée???
Merci
Code:
Private Sub TriSupp_Click()
' je vais garder que ce qui contient esso et supprimé touts les BT annulée.....
Dim i As Integer
With Sheets("ifs")
'supprimer toute les lignes commençant par 2013 dans la colonne G
For i = .Range("d65536").End(xlUp).Row To 1 Step -1
If Not .Range("d" & i) Like "ESSO*" Then .Rows(i).Delete
Next i
End With
Dim j As Integer
With Sheets("IFS") 'je supprime les personnes non concernées
Application.ScreenUpdating = False
For j = .Range("AC65536").End(xlUp).Row To 1 Step -1
If .Range("AC" & j) Like "*BMAUNAC*" Then .Rows(j).Delete
If .Range("AC" & j) Like "*GLOBOUE*" Then .Rows(j).Delete
If .Range("AC" & j) Like "*CCHAUMON*" Then .Rows(j).Delete
If .Range("AC" & j) Like "*DCHAMEK*" Then .Rows(j).Delete
If .Range("AC" & j) Like "*SGUEGUEN*" Then .Rows(j).Delete
Next j
End With
Dim k As Integer
With Sheets("IFS") 'je supprime les VE
For k = .Range("A65536").End(xlUp).Row To 1 Step -1
If .Range("A" & k) Like "751*" Then .Rows(k).Delete
Next k
End With
Dim l As Integer
With Sheets("IFS") 'je supprime les etats de BT inutile
For l = .Range("f65536").End(xlUp).Row To 1 Step -1
If .Range("f" & l) Like "Annulé" Then .Rows(l).Delete
If .Range("A" & l) Like "Finished" Then .Rows(l).Delete
If .Range("A" & l) Like "Workdone" Then .Rows(l).Delete
Next l
End With
Application.ScreenUpdating = True
MsgBox "Mise à jour Terminée !! ", vbOKOnly + vbInformation, "Info"
End Sub