Aide sur Erreur sur une MACRO de suppression de lignes à 0 et -
Résolu/Fermé
A voir également:
- Aide sur Erreur sur une MACRO de suppression de lignes à 0 et -
- Erreur 0x80070643 - Guide
- Forcer suppression fichier - Guide
- Comment aller à la ligne sur excel - Guide
- Erreur 0 free - Forum Mobile
- Macro word - Guide
1 réponse
Kuartz
Messages postés
850
Date d'inscription
vendredi 13 février 2015
Statut
Membre
Dernière intervention
15 février 2019
61
Modifié par Kuartz le 22/09/2015 à 15:38
Modifié par Kuartz le 22/09/2015 à 15:38
Cette macro est beaucoup trop complexe pour ce qu'elle est censée faire. Pourquoi faites-vous des tris systématiquement?
Un simple :
Ou expliquez mieux ce que vous voulez.
Cordialement.
Un simple :
Sub TEST() Dim DL As Long, i As Long DL = Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit la dernière ligne du tableau en prenant en référence la colonne A For i = DL To 1 Step -1 If Range("A" & i) = "" Or Range("A" & i) = "-" Then Rows(i).Delete End If Next i End Sub
Ou expliquez mieux ce que vous voulez.
Cordialement.
22 sept. 2015 à 15:52
on fait cette Macro existe déjà dans ce fichier d'entreprise et il donne une erreur maintenant et moi je sais enregistrer une macro seulement mais pas en VBA. Voila l'onglet utiliser avec la macro pour qu'elle marche si ca peut vous éclairer. (et est ce que je dois remplacer quelques données sur votre proposition ou je l'essaye directement? )
<<< paramétrage des suppressions des lignes à 0
Critère de suppression 1 0
Première ligne EQUIV(B1;'BDD à trier'!L:L;0)
Dernière ligne EQUIV(B1;'BDD à trier'!L:L;1)
<<< paramétrage des suppressions des lignes dont le montant est un tiret
Critère de suppression 2 -
Première ligne EQUIV(B6;'BDD à trier'!L:L;0)
Dernière ligne EQUIV(B6;'BDD à trier'!L:L;1)
Je vous remercie beaucoup.
22 sept. 2015 à 15:58
22 sept. 2015 à 16:02
1:/ Quand la ligne doit-elle être supprimée? Quand elle est vide? Quand il y a "0" en A?
2:/ le 2ème critère est "-", mais qu'est ce qui est égal à "-"? La colonne A?
Sinon pour me joindre le fichier : https://www.cjoint.com/
Cordialement.
22 sept. 2015 à 16:31
Cordialement.
Modifié par Kuartz le 22/09/2015 à 16:42
Allons y :
Si le code ne vous va pas, merci de joindre un fichier afin que je puisse voir exactement quelle est la demande.
Cordialement.