PB aléatoire avec une commande macro

[Michael]

J'ai crée la commande suivante permettant de supprimer automatiquement les lignes ayant un nom autre que DPUP

For lin=ActiveSheet.UsedRange.rows.count+Activesheet.UsedRanges.Row to 6 Step -1
If Cells(lin,18) <>"DPUP" Then Rows(lin).Delete Shift:=xlup
Next lin

Cette commande fonctionne de temps en temps selon le fichier (csv) traité

Je bloque sur ce bug, j'ai beau de retourner la cervelle dans tous les sens et toujours dans l'incompréhension

en comptant sur votre savoir MERCI

 

[Pascal76]

Bonjour Michael

Peux-tu dire quel problème ou quel message tu as quand cela ne fonctionne pas.

Merci

Pascal

 

[Michael]

j'avais oublié cette précision !!

message d'erreur :

"Erreur d'execution 13 - Incompatibilité de type"

 

[Pascal76]

Peus-tu envoyer un fichier pour regarder
Merci

Pascal

 

[Jean-Marie]

Bonjour

Quel est le type de la variable Lin ?

@+Jean-Marie

 

[Michael]

Pour tester cet exemple, placer le dossier dans C:

Ca bug quand il faut supprimer les lignes autres que DPUP

et pourtant avec un autre fichier ressemblant, cela fonctionne 😱(

 

[Pascal76]

re

Michael, je pense après étude de ta macro qu'une erreur surgie car peu de temps avant ton erreur tu as cette commande :

Range("R6:U880").Select

Donc ta formule esqt recopiée jusqu'en ligne 880 avec des erreurs (#REF)

Si tu changes en mettant :

Range("R6:U" & Selection.End(xlDown).Row).Select

cela devrait résoudre le problème

J'espère que cela va marcher

Bon courage

Pascal

 

[Michael]

Un grand MERCIIIIIIIIIIIIII

je pourrai enfin espérer une nuit plus tranquille

surtout quand y'a le chef qui presse pour que ce fichier soit terminé pour la fin de semaine ! 😱)