Distinction ecritures comptables

[Pol]

Bonjour à tous,

Quand j'exporte les écritures comptables de mon logiciel, on ne distingue pas bien chaque écriture. (voir feuil1 et feuil2)

La tache est simple à faire manuellement mais tellement répétitive que je souhaiterais l'automatiser.

Manuellement, je fais une recherche 0,00 (totalité du contenu de la cellule coché) sur la colonne K et je trace une bordure inférieure sur chaque occurrence.

Quand je fais la même manip avec l'enregistreur macro, ça ne marche pas.

Est-ce que quelqu'un a une idée ?

Merci, Merci et Re merci.

 

[Dull]

Re : Distinction ecritures comptables

Salut Pol, le Forum

Essaye avec une Mise en forme conditionnelle

sélectionne les colonnes de A:K
Accueil/Mise en Forme Conditionnelle/Nouvelle Règle
Utiliser une Formule pour déterminer pour quelles cellules le format sera appliqué

Dans Appliquer une mise en forme... écrit

=ET ($K1=0;$K1<>"")

et dans Format onglet Bordure sélectionne le trait du bas
Ok
Ok
Ok
et ça devrait le faire

PS: pour la Formule en Col K

=K2+J3

écrit plutôt cette Formule

=ARRONDI(K2+J3;2)

car ton 0,00 n'est pas tout à fait un Zéro🙂

Bonne Journée

 

[Pol]

Re : Distinction ecritures comptables

Merci Dull,

Effectivement on peut aussi le faire avec une MFC, par contre ce que je souhaiterais faire c'est automatiser l'opération par un bouton macro,

Connais-tu le code VBA correspondant ?

 

[mutzik]

Re : Distinction ecritures comptables

bonjour,

l'opération est automatique, sans aucune intervention, dès lors que la plage d'application est suffisamment grande

 

[Dull]

Re : Distinction ecritures comptables

Salut Bertrand🙂, Re le fil

Même réflexion que toi pourquoi réinventer la roue 😕
M'enfin!!! le Monsieur veut une macro et bien on va lui en fournir une😉

Essaye

Sub EssAi()
Dim i As Long, DerLig As Long

DerLig = Range("A" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
For i = 1 To DerLig
If Range("K" & i) = 0 Then
    With Range("A" & i & ":K" & i).Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
End If
Next i
Application.ScreenUpdating = True
End Sub

Bonne Journée

 

[Pol]

Re : Distinction ecritures comptables

Merci Dull,

Désolé de t’embêter à nouveau mais le code ne fonctionne pas sur toutes les lignes à "zéro". Je ne comprends pas pourquoi ? voir fichier case rouge sans bordure inférieure

Je ne suis pas contre la MFC, mais le problème c'est qu'il faut que je la reconfigure à chaque nouveau classeur ouvert, non ?

Merci encore pour ton aide.

 

[Dull]

Re : Distinction ecritures comptables

Salut Pol, le Forum

...PS: pour la Formule en Col K

=K2+J3

écrit plutôt cette Formule

=ARRONDI(K2+J3;2)

car ton 0,00 n'est pas tout à fait un Zéro🙂

Bonne Journée

As-tu lu TOUTE ma Réponse. Pour preuve reprends ton dernier fichier et fait: format de cellule en K41 avec 14 chiffres après la virgule et tu ne trouve pas 0.00 mais -0.000000000005912 d’où la recommandation d'ajouter la fonction

= ARRONDI(TaFormule;2) 2 étant le nombre de décimales après la virgule

Merci Dull,

...Je ne suis pas contre la MFC, mais le problème c'est qu'il faut que je la reconfigure à chaque nouveau classeur ouvert, non ?
Merci encore pour ton aide.

Pas du tout: en sélectionnant les colonnes de A à K et en suivant le pas à pas du post #2, à chaque nouvelle ligne et s'il y a un Zéro en Col K la MFC se met automatiquement.

Ton Fichier en retour

Bonne Journée

 

[Pol]

Re : Distinction ecritures comptables

Merci Dull pour ta réponse,

OK pour la fonction arrondi, effectivement ce n'est pas un vrai zéro.

Par contre, pour la mise en forme conditionnelle, je me suis mal exprimé. L'automatisation est bien effective pour le classeur courant, mais si j'ouvre un nouveau classeur vierge que j'importe des écritures, il faut que je re-paramètre ma mise en forme conditionnelle, à moins qu'on puisse enregistrer une mise en forme conditionnelle applicable à n'importe quel classeur ??

La macro, elle, est appplicable, à n'importe quel classeur (si inséré dans personal.xlsb).

C'est pour ça que je préfère la macro, mais peut-être que je me plante et que l'on peut faire autant avec la MFC.

Merci pour ton aide précieuse,

 

[Si...]

Re : Distinction ecritures comptables

salut

Si... tu ne veux (peux) pas toucher à ta feuille, arrondis comme l'a si bien dit Dull 😀, mais avec la macro

Option Explicit
Sub EssAi()
  Dim i As Long
  Application.ScreenUpdating = False
  For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
    If Round(Range("K" & i), 2) = 0 Then
      With Range("A" & i & ":K" & i).Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 3
        .TintAndShade = 0
        .Weight = xlThin
      End With
    End If
  Next
End Sub