XL 2016 POINTAGE LETTRAGE AVEC MISE EN COULEUR

[GADENSEB]

Hello Le forum
Je recherche à réaliser une macro XLA pour le pointage de comptes

Objectif :.
MSGBOX : pour choisir la colonne MONTANT et la Colonne LETTRAGE
Créer un lettrage/rapprochement pour chaque ENTITE (colonneA)
Exemple pour Entité AA : -6 et -4 sont l'addition de 10
Dans la colonne LETTRAGE (colonne C) créer une incrémentation de lettrage 1 puis 2 puis 3
L'incrémentation se fait pour l'ensemble des ETENTITES (colonne A) --> pas de doublons dans la colonne C
Une couleur aléatoire est posée sur le LETTRAGE et les montants correspondants

J'ai trouve ce post (avec la réponse de PIERREJEAN)

Rapprochement Bancaire par VBA (pb de boucles)

Bonjour à tous, J'utilise un petit code de rapprochement automatique avec un lettrage et un code couleur basés sur INDEXCOLOR. Il permet normalement de ne pas écraser la colonne de lettrage si on a déjà effectué un premier passage en rapprochant des sommes manuellement (commence par "L"). Ce...

www.excel-downloads.com

Au top.... mais je ne vois pas comment adapter le travail fait.....

Qqn aurait une idée ?

Bonne soirée.
Seb

 

[GADENSEB]

Hello !!!
un petit Up !!!
Sui qqn à une idée ;-)
Bonne am
Seb

 

[sylvanu]

Bonsoir Gadenseb
Une tentative en PJ.
Mais j'ai supposé qu'une somme nulle l'était que pour trois cellules consécutives.

 

[GADENSEB]

Bonsoir,
Cela me semble très bien.
Par contre, désolé j'aurais du être plus précis, les lignes formant une somme nulle ne sont pas forcément consécutives .

Je complète la demande :
Comment faire choisir la colonne à l’exécution de la macro, ici A à C
mais cela pourrait être N à T

bonne soirée

 

[GADENSEB]

hello
j'ai un peu avancé
j'ai mis en place les inputbox pour renseigner les colonnes :
- de début : sélection de regroupement pour les calculs les AA vont avec les AA ......
- de fin : colonne pour faire des sommes nulles mais pas forcement consécutives

Bonne am
Seb

 

[GADENSEB]

j'ai refais une version en annotant ton code pour les modifs !!!

Sub LettrageCouleur()
Dim colonne1 As String
Dim colonne2 As String

'Demander quelle est la colonne de début (regroupement) et celle de fin (calcul pour somme nulle)

colonne1 = InputBox("Colonne début : ")
colonne2 = InputBox("Colonne fin : ")

'Dans le regroupement (AA ou BB Ou CC.....) trouver quelles lignes font une somme nulle)

    Derlig = Range("A65500").End(xlUp).Row
    Range(Cells(2, 1), Cells(Derlig, 3)).Interior.Color = RGB(255, 255, 255)
    Lettrage = 1
' Pour chaque ligne dont la somme est nulle, inscrire un numéro de lettrage (1,2,3,.....)
' et colorier les lignes de chaque lettrage avec une couleur aléatoire.

    For L = 2 To Derlig
        If Cells(L, 2) + Cells(L + 1, 2) + Cells(L + 2, 2) = 0 Then
            Range(Cells(L, 1), Cells(L + 2, 3)).Interior.Color = _
            RGB(Int(255 * Rnd), Int(255 * Rnd), Int(255 * Rnd))
            Cells(L, 3) = Lettrage
            Lettrage = Lettrage + 1
            L = L + 3
        End If
    Next L
    
    
End Sub

 

[GADENSEB]

Hello
Un peu up si qqn à une idée .
Bonne journée
Sébastien