Discussion :

[goul2015]

Bonjour à tous,

Je suis un peu perdu , j'essaye de fabriquer une macro excel qui permettrai de ranger différemment & clairement un tableau de prime pour mes équipes.

je n'arrive pas à trouver de solution avec des boucles & copier coller .

En gros mon tableau actuel de 3 colonnes que me sort un logiciel maison :




J'ai en plus comme difficulté , le fait que suivant les jours , j'ai des équipes en plus ou en moins ....

Et je souhaite faire un tableau de ce style :




Merci pour votre aide pour des pistes de boucle, de code, qui pourrait m'aider à comprendre et fabriquer cette macro magique ..... cela m’éviterai de tuer des arbres en impression inutiles

Bonne soirée à tous !!

[geogeo70]

bonsoir

pas besoin de faire des macros on obtient facilement le résultat par un tableau croisé dynamique (TCD)

voila mon essai :


mettre date en colonne et equipe en ligne ; ensuite les primes en somme de valeurs

bonsoir

geogeo

[goul2015]

Coucou

merci GeoGeo , Effectivement le tableau croisé dynamique fonctionne bien et je vous remerci pour l'astuce
Le soucis c'est qu'il faut que je définisse à chaque fois les colonnes & autres pour chaque extraction : les étiquettes , dans quel sens va les colonnes & les lignes...
je n'arrive pas à le faire " a grande echelle " et de façon rapide. Je pensais qu'une macro aurai pu m'aider à remettre tout dans le bon sens ... mais j'arrive pas à faire des boucles ...

[geogeo70]

Voila mes recherches en vba

J'ai voulu pour question de temps ne boucler qu'une fois par ligne donc faire ligne colonne et prime en une seule fois!
Ca demande de bien définir les indices...

Enfin ça fonctionne!

A vous de vous y mettre...

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
Sub tcd_vba()
 
Dim c As Integer, i As Integer, j As Integer
Dim deja As Boolean
 
 c = 7
 For i = 2 To Range("A1000").End(xlUp).Row 'lecture des lignes
  If Cells(1, c - 1) <> Cells(i, 1) Then
         Cells(1, c) = Cells(i, 1)                     ' choix de date si non doublon
         c = c + 1
  End If
  Cells(2, 6) = Cells(2, 2)                           ' Premier élément equipe
  deja = False
  fin = Range("F1000").End(xlUp).Row
  j = 2
        While Not deja And j <= fin                ' recherche doublon equipe
           deja = Cells(j, 6) = Cells(i, 2)
           j = j + 1
        Wend
        If Not deja Then
            Cells(fin + 1, 6) = Cells(i, 2)          'nouvelle equipe
            Cells(j, c - 1) = Cells(j, c - 1) + Cells(i, 3)                'prime  '
                    Else
            Cells(j - 1, c - 1) = Cells(j - 1, c - 1) + Cells(i, 3)       'prime en plus      '
        End If
 Next i
End Sub

Voici une copie d'écran :


bon courage

geogeo

[Marc-L]

Bonjour, bonjour !

geogeo, c'est dommage de ne pas utiliser les fonctions de formules de calculs d'Excel même en VBA !

goul2015 : joindre un classeur exemple enregistré en .xlsx (donc sans macro), je posterai une p'tite démo …


______________________________________________________________________________________________________
Je suis Paris, Charlie, …

[geogeo70]

hello,

Bien sûr mais la demande était de se retrouver dans les "boucles", on peut même éviter le VBA.
bonne journée à tous
geogeo

______________________________________________________________________________________________________
Je suis "aussi" Paris, Charlie, …