Discussion :

[Bubut]

Bonjour le forum,

Donc j'ai fini mon projet de stage et il me reste plus qu'à le finaliser.

Alors j'ai créé une macro avec Excel me permettant d'actualiser des données provenant d'Access et de me mettre en format blanc les valeurs que je ne désirais pas

Mon code:

Code :

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

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
Sub Actualisation()
 
'on classe d'abords la colonne par ordre alphabétique ou inverse
'au départ il faudrai d'abords compter les lignes
Range("A1:J10").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
 
 
With Cells                      'mettre la feuille au format par defaut
    .Font.ColorIndex = 0        'police noire
    .Interior.ColorIndex = 0    'sans fond
End With
Range("E1").Select             'Selection d'une cellule
Selection.QueryTable.Refresh BackgroundQuery:=False     'actualisation des données
 
 
'on compte nombre de ligne
nb_ligne = 1
While Cells(nb_ligne, 1) <> ""
    nb_ligne = nb_ligne + 1
Wend
 
 
'on enlève les doublons:
  For i = 2 To nb_ligne
    If Cells(i, 1) = Cells(i - 1, 1) Then
        Range("A" & i & ":J" & i).Font.ColorIndex = 2
 
 
    End If
  Next i
End Sub

Maintenant je voudrai faire un programme me permettant de faire la somme de certain prix, exemple en couleur en pièce jointe.


Je suis débutant en programmation.

Si vous désirez plus d'info.

Cordialement,
Bubut

[peaceandloveman01]

selectionne ta cellule, garde la valeur en memoire puis increment ta valeur temporaire avec chaque nouvelle valeur et sa passera.
ex:

Code :

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

1
2
3
4
5
6
7
Dim temp
temp = 0
For i = 1 To nblignes
    If Cells(i,"A") = "ce que tu veux" Then
          temp = temp + Cells(i,"A").Value
    End If
Next i

Ca devrait marcher ...

[Bubut]

Bonjour peaceandloveman01,

J'ai pas tout compris au niveau de la valeur temporaire et de ça :

Code :

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

    If Cells(i,"A") = "ce que tu veux" Then

[peaceandloveman01]

Dsl ...
La varialbe temporaire temp te permet de sommer des valeurs comprises dans certaines cellules sous Excel. J'utilise cette pirouette pour sommer des cellules avec un condition comme par exemple:

Code :

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

If Cells(i,"A")<>"" Then

La condition If que j'ai utilisé permet de choisir les cellules qu'on veut additionner entre elles. Est-ce un peu plus clair ?

[ouskel'n'or]

La solution de Bubut est une solution directe, je t'en propose une autre.
Au lieu de peindre ta cellule, masque temporairement les doublons

Code :

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

1
2
3
4
5
6
  For i = 2 To nb_ligne 'masque les lignes
    If Cells(i, 1) = Cells(i - 1, 1) Then
        Range("A" & i & ":J" & i).EntireRow.Hidden = True
        'Range("A" & i & ":J" & i).Font.ColorIndex = 2 
    End If
  Next

Ensuite il te reste à additionner les lignes visibles
J'aurais voulu faire ça

Code :

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

1
2
3
4
    'With Plage
        'Range("A1" & Range("A65535").End(xlUp).Row) = _
         Application.WorksheetFunction(Sum(.Address))
    'End With

mais j'ai un pb avec SUM et j'ai trouvé plus rapide d'écrire autre chose que de trouver pourquoi. Alors je te propose ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim Plage As Range
Dim Cell As Range
Dim Somme
    Set Plage = Application.Range("A1:A" & Range("A65535").End(xlUp).Row).SpecialCells(xlCellTypeVisible)
    For Each Cell In Plage
        Somme = Somme + Cell
    Next
    MsgBox Somme
    Cells.EntireRow.Hidden = False 'rétablit l'affichage de toutes tes lignes
    Set Plage = Nothing
    Set Cell = Nothing

Comme ça tu as le choix

[ouskel'n'or]

Voilà.
Tu remplaces tout le dernier code par

Code :

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

1
2
3
4
5
    Set Plage = Application.Range("A1:A" & Range("A65535").End(xlUp).Row).SpecialCells(xlCellTypeVisible)
    Cells(Range("A65535").End(xlUp).Row + 1, 1) = _
          Application.WorksheetFunction.Sum(Plage)
    Cells.EntireRow.Hidden = False 'rétablit l'affichage de toutes tes lignes
    Set Plage = Nothing

Je fais toujours la même bêtise, je veux absolument mettre WorksheetFunction(fonction Excel) alors que c'est WorksheetFunction.fonction Excel
Ce code place le résultat sur la première ligne vide

[Bubut]

Bonjour ouskel'n'or,

j'ai quasiment rien compris à tes lignes de programmation pour le calcul.

En faite j'avais pas utilisé le masquage de cellule car j'avai peur que lors des tries, ça me mélange tout.

Cordialement,
Bubut