Repérer une ligne colorée

Version imprimable

1 pièce(s) jointe(s)

Salut,
Je suis débutant en VBA excel.
Est ce que quelqu'un peut me dire comment faire pour définir une ligne colorée???
Je dois au fait détecter les lignes colorées que j'ai dans mon fichier pour que après si elles ont la même donnée dans la cellule de la colonne B, j'ajoute une ligne dans la quelle je copie les données des cellules des colonnes A et B et en C, je fais la somme des 2 montants que j'avais pour les lignes colorées dans les cellules de la colonne C.

voici mon code:
Code:

1 2 3 4 5 6 7 Sub Agregate() Set CL1 = ThisWorkbook Set FL1 = CL1.ActiveSheet Worksheets("Feuil1").Copy before:=Worksheets("Feuil1") CL1.ActiveSheet.Name = "Copie_Feuil1" ligne = FL1.Range("A1").Interior.ColorIndex.Row
Ci-joint un fichier exemple

Merci :)

13/06/2008, 15h01
mayekeul

Bon si je comprend bien, tu veux la somme du montant groupé par nom et ville.
ensuite tu veux voir apparaitre un format sur les lignes aggrégées

c'est bien cela?
13/06/2008, 15h07
doremifaso

Alors au fait, dans ma première feuille "Feuil1", j'ai déjà mis les doublons en vert, puis je copie cette feuille dans "Copie_Feuil1".
Je voudrais maintenant sur "Copie_Feuil1", pouvoir repérer ces lignes en vert et voir si elles ont la même donnée dans la colonne B (en conséquence ici ville), ajouter une nouvelle ligne dans laquelle je copie les colonnes A et B et faire la somme du "montant" dans la colonne C.
Mais mon fichier est trop grand et j'ai plusieurs lignes.

Salut doremifaso

Citation:

Je suis débutant en VBA excel.
Est ce que quelqu'un peut me dire comment faire pour définir une ligne colorée???

petite erreur : les lignes ne sont pas colorées. Seules les cellules le sont.
Ton exemple ne correspond pas à ta demande.
Pour ta demande :

Code:

if FL1.rows(1).cells.interior.colorindex <> xlnone then

Dans le début de code, il y a confusion : tu fixe FL1 comme étant le classeur contenant la macro. Ensuite, tu ne fixe plus le classeur dans tes instructions => donc, c'est le classeur actif que ce soit celui qui contient la macro ou un autre qui est concerné. Je conseillerais, soit de ne défibir aucune variable pour le classeur, toutes les instructions concernant le classeur actif, soit de fixer une variable pour chaque classeur et de les mentionner à chaque instruction.
un bout de code suivant l'exemple donné :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 Sub Agregate() Dim CL1 As Workbook Dim FL1 As Worksheet Dim Coul As Long Dim X As Long Set CL1 = ThisWorkbook 'classeur qui contient la macro Set FL1 = CL1.ActiveSheet 'feuille active du classeur qui contient la macro Worksheets("Feuil1").Copy before:=Worksheets("Feuil1") 'créer une copie de Feuil1 du classeur actif CL1.ActiveSheet.Name = "Copie_Feuil1" 'renommer la Feuil1 du classeur contenant la macro ? '*** 'CL1.Sheets("Feuil1").Copy before:=CL1.Sheets("Feuil1") 'ActiveSheet.Name = "Copie_Feuil1" 'copie dans CL1 'ou 'CL1.Sheets("Feuil1").Copy before:=Sheets("Feuil1") 'ActiveSheet.Name = "Copie_Feuil1" 'Copie de Cl1 dans le classeur actif For X = 1 To Range("A65536").End(xlUp).Row 'Pour x=1 à dernière ligne non vide en A If Range(Range("A" & X), Cells(X, "C")).Interior.ColorIndex <> xlNone Then 'si la plage Ax:Cx a une couleur Coul = Range("A" & X).Interior.ColorIndex 'index couleur dans coul Exit For 'sortir de la boucle End If Next X End Sub
Comme tu te dis débutant, je ne suis pas allé plus loin, le but étant que tu te trouves une méthodologie de travail. On peut te donner la notre, mais la méthode de raisonnement est assez personnelle, bien que le nombre d'algorythmes rationnels soit assez limité pour un problème donné. Mais les instructions utilisées dépendent de tes habitudes, de tes connaissances, etc. Et il est important que tu utilises correctement ce que tu sais, les dépannages, modifications étant plus aisés, plutot que d'apprendre (ou de copier) des instructions toutes nouvelles, qui feront la même chose, sans être mieux.

Jute un conseil : déclare tes variables, et dans le type où tu prévois de les utiliser. D'abord, ça économise de la RAM, ça peut déclecher des erreurs visibles, qui ne sont pas occultées pas l'adaptation de la variable, mais surtout ça évite les fautes de frappe (quand c'est obligatoire, Option Explicit visible en haut de la feuille macro), responsable de tant de vente de perruques et de valises sous les yeux :P
A+

13/06/2008, 15h50
doremifaso

Merci Beaucoup Gorfael pour tes conseils et de ton aide. :king:
Mais est ce que vous m'aider à comparer la donnée des cellules de la colonne B pour les lignes colorées???

bon

si on admets que la liste est correctement triées et que sa plage démarre en "A1"

ce qui suis te donne une approche que l'on pourrais appliquer

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
Sub AGGnFORM()
Dim I, J, K, U
Dim nTab()
I = 2
J = 3
ro = Cells(2, 1).End(xlDown).Row
U = 0
 
ReDim nTab(3, 0)
For I = 2 To ro
    If Cells(I, 1) = Cells(I + 1, 1) Then
        If Cells(I, 2) = Cells(I + 1, 2) Then
            K = nTab(2, U) + Cells(I, 3)
            nTab(0, U) = Cells(I, 1): nTab(1, U) = Cells(I, 2): nTab(2, U) = K
            nTab(3, U) = -1
        Else
        End If
    Else
        nTab(0, U) = Cells(I, 1): nTab(1, U) = Cells(I, 2): nTab(2, U) = nTab(2, U) + Cells(I, 3)
        U = UBound(nTab, 2) + 1
        ReDim Preserve nTab(3, U)
    End If
Next I
 
For I = 0 To UBound(nTab, 2) - 1
    For J = 0 To 2
        Cells(I + 2, 5).Offset(0, J) = nTab(J, I)
    Next J
    If nTab(J, I) = -1 Then Range(Cells(I + 2, 5), Cells(I + 2, 7)).Interior.Color = RGB(255, 255, 0)
Next I
 
 
End Sub

13/06/2008, 16h15
doremifaso

ça marche.
Merci beaucoup.
Mais est ce que tu peux juste m'expliquer un peu ce code?
Merci encore.

pas de problemes

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
 
Sub AGGnFORM()
Dim I, J, K, U
 
Dim nTab()
'ici, on initialise les valeurs
I = 2 'on veux commencer sur la ligne deux
J = 3 'sert à rien, tu peux l'enlever
ro = Cells(2, 1).End(xlDown).Row 'connaitre la dernière ligne pour s'arreter
'cette variable nous sert pour initialiser le tableau et rendre le code plus lisible
U = 0
'ici on redimensionne le tableau pour la première ligne 
ReDim nTab(3, 0)
 
'une boule pour toute les lignes du tableau
For I = 2 To ro
     'cette condition regarde si us rla colonne A la ligne suivante est identique
    If Cells(I, 1) = Cells(I + 1, 1) Then
        'le même test pour la colonne B
        If Cells(I, 2) = Cells(I + 1, 2) Then
            'on effectue la somme
            K = nTab(2, U) + Cells(I, 3)
             'on remplit le tableau
            nTab(0, U) = Cells(I, 1): nTab(1, U) = Cells(I, 2): nTab(2, U) = K
            nTab(3, U) = -1 'c'est un tag pour dire qu'il faudra formatter cette ligne
        Else
        End If
    Else
        'on rempli le tableau en ajoutant la valeur du montant
        ' la raison en est que la dernière ligne ne sera pas 
        ' prise en compte dans la condition
        ' ensuite, si la condition n'est pas remplie, c'est que
        ' c'est peut etre une nouvelle ligne et il faut donc l'ajouter égalemnt
        nTab(0, U) = Cells(I, 1): nTab(1, U) = Cells(I, 2): nTab(2, U) = nTab(2, U) + Cells(I, 3)
        'la boucle étant finie, nous ajoutons une ligne au tableau en prévision
        'on commence par établir la taille du tableau et on ajoute 1
        U = UBound(nTab, 2) + 1
        on redimensionne en préservant les données
        ReDim Preserve nTab(3, U)
    End If
Next I
 
' ici, on décharge le tableau sur la feuille
For I = 0 To UBound(nTab, 2) - 1
    For J = 0 To 2
        Cells(I + 2, 5).Offset(0, J) = nTab(J, I)
    Next J
    'on applique le format si besoin
    If nTab(J, I) = -1 Then Range(Cells(I + 2, 5), Cells(I + 2, 7)).Interior.Color = RGB(255, 255, 0)
Next I
 
 
End Sub

13/06/2008, 16h47
doremifaso

Merci
mais je ne comprends pas cette ligne:

Code:

nTab(0, U) = Cells(I, 1): nTab(1, U) = Cells(I, 2): nTab(2, U) = K

Au fait, ce que je ne comprends pas c'est les numéro de nTab Cad nTab(0, U), nTab(1,U)...
Merci encore
16/06/2008, 09h26
mayekeul

bonjour,
c'est simplement un tableau à deux dimension, "U" étant la variable de la deuxième dimension dont on se sert pour redimensionner la table à chaque passage dans la boucle