Discussion :

[edouardM]

Bonjour,

Je viens de m'inscrire car je n'ai pas trouvé un sujet me permettant de trouver la solution par moi-même. Je suis novice en macros (je commence aujourd'hui...).
Ma question est la suivante:
J'ai une balance générale (comptabilité) de 3 colonnes: colonne A ==> numéro de compte comptable ; colonne B ==> libellé de compte comptable ; colonne C ==> solde du compte. Petite précision, les comptes comptables sont tous composés de 8 caractères (exemple: 1000000)
Avant d'exploiter cette balance générale, je dois faire quelques retraitements (qui peuvent être assez longs).
Premier retraitement: supprimer les lignes dont les comptes comptables (colonne A) commencent par "T"
Deuxième retraitement: supprimer les lignes dont les comptes comptables (colonne A) commencent par "8"
Troisième retraitement : supprimer les lignes dont les comptes comptables (colonne A) commencent par "9"
==> J'ai réussi à bidouiller une formule qui me les identifie: if((OR((MID(A2;1;1)="T");(MID(A2;1;1)="8");(MID(A2;1;1)="9"));"à supprimer";A2)
Le problème est que je n'arrive pas à supprimer la ligne via cette formule (j'utilise une formule "if" pour les identifier).

Quatrième et dernier retraitement: transformer les comptes comptables qui commencent par "I" en un véritable compte comptable. Exemple: I222222 devient 22222220. pour cela, j'utilise habituellement la formule (dans le cas où I222222 est en cellule A1): =Right(A1;7)*10

J'espère que l'exposé des différents retraitements est clair. Ce que je chercher à faire c'est supprimer les lignes des comptes T, 8 et 9 (pas seulement effacer le contenu de la ligne mais la supprimer) et transformer le compte I.
Est-ce que vous pourriez-m'aider pour automatiser tout cela via une macro ? Je précise que je vraiment débutant !

[EngueEngue]

Remplace les trois petits points par le numero de la colonne ou tu as ton à supprimer écrit..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
numerocolonne=...
 
If Cells(i, numerocolonne)="à supprimer" then
Cells(i, numerocolonne).EntireRow.Delete 
End If

[edouardM]

Merci pour ta réponse.
Comme je le disais, je suis vraiment novice. Où dois-je écrire ta réponse ? Il faut créer une nouvelle macro ?
Est-ce que je dois remplacer "cells" et "numérocolonne". Je suppose que oui mais par quoi ?
J'espère que je ne te paraîtrai pas trop idiot !
Encore merci !

[EngueEngue]

==> J'ai réussi à bidouiller une formule qui me les identifie:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if((OR((MID(A2;1;1)="T");(MID(A2;1;1)="8");(MID(A2;1;1)="9"));"à supprimer";A2)

Le problème est que je n'arrive pas à supprimer la ligne via cette formule (j'utilise une formule "if" pour les identifier).


Supposons que tu aies marqué ça dans la colonne F ( A = 1 B = 2 F = 6 )

Tu cliques sur ALT F11 et tu crees un module tu copies colles ADAPTES et fait tourner

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub supprimer
Dim i as long
numerocolonne=6
 
For i = 1 to Range("A1").end(Xldown).row
If Cells(i, numerocolonne)="à supprimer" then
Cells(i, numerocolonne).EntireRow.Delete 
End If
Next i
End Sub