Traitement de données

Bonjour,

Si jamais je souhaite analyser plus de statistiques, comme savoir s’il y a plus de 3,5 buts dans un match et créer la série qui lui correspond, comment est ce que je réécris la macro ? Peux-tu repartir de la macro précédente et ajouter ces deux colonnes. J'aimerai voir ce que tu modifies dans la macro.

Je t'envoie le fichier joint avec les colonnes 3,5 et série crées. Mon but serait d'étendre mes statistiques en augmentant les colonnes sur la droite. Qu'est-ce que je dois modifier dans le code ?

Je te remercie par avance et te souhaite un bon week-end.

Laplacea

5test-macro.xlsm (299.20 Ko)

bonjour,

macro modifiée

Option Explicit
Sub Macro1()
    '
    Dim nbserie&, i&, j&, dl&, ng&

    nbserie = 3 ' nbseries à créer, progression linéaire

    With ActiveSheet

        dl = .Cells(Rows.Count, 2).End(xlUp).Row 'dl= dernière ligne utilisée en colonne 2 (colonne B)

        For j = 1 To nbserie ' titre colonne en ligne 2
            .Cells(2, 6 + j * 2) = "Serie"
            .Cells(2, 5 + j * 2) = j + 0.5
        Next j

        For i = 3 To dl 'on parcourt toutes les lignes
            If .Cells(i, 2) = "" Then Exit For 'on quitte la boucle si journée=""
            ng = .Cells(i, 4) + .Cells(i, 5) 'ng nombres de goals =somme colonne D+colonne E pour la ligne i
            .Cells(i, 6) = ng 'mettre nombre de goals  en colonne F

            For j = 1 To nbserie ' nbseries à créer

                If ng > j + 0.5 Then 'test si nombre de goals supérieur à la valeur pivot pour la série j ( donc 1.5 pour série 1, 2.5 pour série 2, ....)
                    If .Cells(i - 1, 3) = .Cells(i, 3) Then 'equipe sur la ligne = equipe sur la ligne précédente
                        .Cells(i, 6 + j * 2) = .Cells(i - 1, 6 + j * 2) + 1 'incremente compteur de la série
                        'sinon
                    Else
                        .Cells(i, 6 + j * 2) = 1 'initialise compteur à 1
                    End If
                    .Cells(i, 5 + j * 2) = "Oui" 'score pivot dépassé
                Else
                    .Cells(i, 6 + j * 2) = 0 'initialise compteur à 0
                    .Cells(i, 5 + j * 2) = "Non" 'score pivot pas dépassé
                End If

            Next j 'série suivante

        Next i 'ligne suivante

    End With
    '
End Sub

Génial merci !

Ca à l'air de bien fonctionné !

Je te remercie beaucoup !

Passes un bon week-end, et prends soin de toi !

Laplacea

Hello,

j'aimerai demander un nouvel élément suite aux dernières macro :

J'aimerai créer une macro ou dans les colonnes suivantes on inclut une colonne WDL (Win, Draw, Loss) et ou l'on fait des séries de victoires, de nul et de defaites sur les 3 colonnes suivantes.

Dans la feuille 20 équipes j'ai mis un exemple

Je te remercie par avance pour toute ton aide !

Laplacea

3macro-serie.xlsm (339.05 Ko)

Salut à toi !

Petit message de relance

Je te remercie par avance et te souhaite une bonne journée

Laplacea

Rechercher des sujets similaires à "traitement donnees"