Re : procédures multiples
Re, j'ai trouvé la bonne macro grâce à vous.
En fait, pierre jean tu as juste fait une erreur pour la suppression des colonnes vides car avec ta macro ca ma supprimait tout.
J'ai juste mis ca à la fin
Sub Miseenforme()
Application.ScreenUpdating = False
Dim i As Integer
For i = Range("A65536").End(xlUp).Row To 1 Step -1
If Cells(i, 1).Value = "" Then Rows(i).Delete
Next i
For i = [a65536].End(xlUp).Row To 1 Step -1
If Left(Cells(i, 1), 1) = "2" Or Left(Cells(i, 1), 1) = "A" Or Cells(i, 1) Like "*05.02.2008*" Or Cells(i, 1) Like "*UID29699*" Or Cells(i, 1) Like "*Client*" Or Cells(i, 1) Like "*facturé*" Or Cells(i, 1) Like "*12200106*" Or Cells(i, 1) Like "*12200213*" Or Cells(i, 1) Like "*12100580*" Or Cells(i, 1) Like "*12100200*" Or Cells(i, 1) Like "*12102506*" Or Cells(i, 1) Like "*12102672*" Or Cells(i, 1) Like "*12200209*" Or Cells(i, 1) Like "*12103354*" Or Cells(i, 1) Like "*12200954*" Or Cells(i, 1) Like "*12201091*" Or Cells(i, 1) Like "*12102801*" Then
Cells(i, 1).EntireRow.Delete
End If
Next i
For i = 256 To 1 Step -1
If Cells(65536, i).End(xlUp).Row = 1 Then Cells(1, i).EntireColumn.Delete
Next i
Application.ScreenUpdating = True
End Sub
Merci de ton aide mais ca marche toujours pas.
J'ai rajouté quelques conditions pour supprimer des lignes supplémentaire en fonction des valeurs de la colonne 1 en suivant ton modèle.
Le probème c'est que cette macro me supprime tout lol.
A la fin me reste genre trois quatre ligne.