Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

PB aléatoire avec une commande macro

M

Michael

Guest
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
 
M

Michael

Guest
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 (
 

Pièces jointes

  • exemple.zip
    45.5 KB · Affichages: 30
  • exemple.zip
    45.5 KB · Affichages: 26
  • exemple.zip
    45.5 KB · Affichages: 28
P

Pascal76

Guest
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
 
M

Michael

Guest
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 ! )
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…