[XL-2007] Subtotal avec clé de rapprochement [Résolu]

[somed]

Bonjour à tous,

Tout d'abord, meilleurs voeux pour l'année 2011 !

Parmi mes bonnes résolutions de cette nouvelle année c'est d'apprendre le VBA Excel Je suis débutant dans ce domaine et je galére depuis une semaine pour faire une macro simple !

L'objectif de ma macro est de colorer en Jaune les cellules de la colonne C dont la somme des montants est égale à zéro. Sachant que la clé de rapprochement à utiliser dépend des données existant dans les colonnes A, B et D.

Je joins un fichier qui contient mes données.

Ce que je voulais faire : Pour une clé de rapprochement (Ptf, Dev, abs(BA)), si subtotal(BA) = 0 => Colorer en Jaune les cellules coreespondantes de la colonne C.

Voici ma macro qui ne fonctionne pas :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Subtotal()
 
Dim Ptf As Range
Dim Dev As Range
Dim BA As Range
Dim abs(BA) As Range
 
Set Ptf = Range("A1")
Set Dev = Range("B1")
Set BA = Range("C1")
Set abs(BA) = Range("D1")
 
For Each xPtf  In Ptf 
For Each xDev In Dev
For Each xabs(BA) In abs(BA)
 
If BA.Formula = "=SUM(Range(C:C)) = 0" Then BA.Interior.Color = vbYellow
 
Next
Next
Next
 
End Sub

Est ce qu'il faut utiliser la boucle For... ?

Juste pour info. toutes les données de mon tableau sont variables hormi le nombre des colonnes.

Pourriez vous svp m'éclairer ?

Merci par avance

[wilfried_42]

Bonjour,

ton fichier est sous quel format, je vois xls mais il n'est pas reconnu comme une version 2003 ou inferieure.

Un suggestion : ne serait ce pas plus facile avec une mise en forme conditionnelle ?

[JML19]

Bonjour

Il y a une option Excel qui sert à cela dans le Menu - Format - Mise en forme conditionnelle de Excel 2002 et 2003.

[somed]

Je travaille sur Excel 2007, mon fichier est de type .xlsx

Quand j'ai voulu télécharger mon doc pour le mettre à votre disposition je n'ai pas réussi et j'ai eu un message d'erreur ("Format non valide") !!!

voici le fichier en format .txt

Merci

[somed]

Bonjour,

Enfin, j'ai trouvé une solution. Par contre, l'exécution de la macro est un peu lente (1 000 lignes => 1 min). Pourquoi ma macro n'est pas assez rapide ? Est ce que c'est normal ? Peut-on l'améliorer ?

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
Sub Colorier()
 
Dim startcell1 As Range
Set startcell1 = Range("A2")
 
Dim startcell2 As Range
Set startcell2 = Range("A2")
 
 
Dim subtotal As Currency
 
 
While startcell1.Value <> ""
 
    subtotal = 0
 
    While startcell2.Value <> ""
 
 
        If startcell1.Offset(0, 0).Value = startcell2.Offset(0, 0).Value And startcell1.Offset(0, 1).Value = startcell2.Offset(0, 1).Value Then
 
            subtotal = subtotal + startcell2.Offset(0, 2).Value
 
        End If
 
        Set startcell2 = startcell2.Offset(1, 0)
 
    Wend
 
    If subtotal = 0 Then
 
         startcell1.Offset(0, 2).Interior.Color = 65535   'Couleur Jaune
 
    End If
 
    Set startcell2 = Range("A2")
    Set startcell1 = startcell1.Offset(1, 0)
 
Wend
 
End Sub

Merci