enlever des données automatiquement

[Cavare]

Bonjour,

J'exporte des données d'un programme de gestion sur excel pour pouvoir travailler dessus (tableau croisés dynamique).

Le probleme c'est que j'ai des données qui s'inserent automatiquement (inutiles) et qui m'obligent a retravailler le tableau.


Y'aurait'il un moyen de les enlever automatiquement? Regardez mon fichier joint ca sera plus clair.

Merci d'avance à tous.

 

[Rai]

Bonsoir,

Est-ce que les données à enlever sont toujours avec ce fond de couleur ??

Si c'est le cas, tu n'as qu'à utiliser la procédure ci-dessous :

Sub epurer()
With Sheets("FEUILLE BRUTE")
DerLig% = .[A65536].End(xlUp).Row
For Lig% = DerLig To 1 Step -1
If .Cells(Lig, 1).Interior.ColorIndex = 36 Then .Rows(Lig).Delete
Next Lig
End With
End Sub

Bonne soirée

Rai