Discussion :

[salluste]

bonjour à toute et à tous

je suis tres novice en programmation et je vous demande de l'aide, j'expose le projet que je dois faire, j'ai des personnes qui ont des sequences numerotés et des temps qui leur sont attribue voici le chier résumant cela [ATTACH=CONFIG]. 139437[/ATTACH] je dois faire 2 sortes de calcul:
calculer le temps entre 2 changements changement de séquences pour chaque personnes
calculer le temps avant changement de séquences pour chaque personne

J'ai pensé à faire une boucle tant que mais j'ai du mal en plus je dois indiquer le numero de sequence et le temps impartie

merci pour votre aide

[bboy-eazy]

Bonjour,

Je n'ai pas très bien compris. Que représente les séquences? Le temps doit il est en heure? en min?

Pour la boucle il faut utiliser un for .. next.

Code :

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

1
2
3
4
for  i = 1 to 10
'mettre ce que vous voulez faire pour i allant de 1 à 10 par exemple
 
next i 'passe à la valeur de i suivante.

Il ne faut pas oublier de déclarer i ("as long" si c'est une valeur numérique)

[salluste]

merci pour ta reponse,
en fait il sagit d'un intitule de sequence, dans l'exemple tintin fait la sequence N°7 2 fois et la sequence numero 8 1 fois.
la duree est en jour, ce que je cherche a faire :
dans l'exemple calculer le nombre de jour avant que tournesol passe à la sequence 1 c'est a dire 35
ou pour haddock le nombre de jour avant qu'il passe à 1 c'est a dire 11 + 7 + 1

merci

[YanBos]

Bonjour,

Est ce que la mise en forme est obligatoirement à conserver de cette façon? Si oui, de quelle façon est ce que tu veux afficher tes résultats?

Il serait à mon sens plus lisible de faire quelque chose arrangé en colonnes du type: en A le nom des personnes (répété pour chaque séquence), puis la séquence, puis le temps.

ex:

   A       B         C
Tintin     7        14
Tintin     8        12
Tintin     8        32
Haddock    1         0

...

[salluste]

le tableau d'entree je ne peux pas le modifier mais à partir de cleui ci je souhaiterai obtenir

tintin 7 14
tintin 8 44
tournesol 8 35
tournesol 1 10
tournesol 8 18
tournesol 1 99

merci de votre aide

[Igloobel]

Bonjour à tous,

Après avoir regarder attentivement ton fichier et ta demande voici ce que je te propose :

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Option Explicit
Public Lign, Lign2 As Long
Public Coln As Integer
Public SavSeq As Integer   'Sauvegarde N° de la séquence
Public CumSeq As Integer    'Cumul le Tps par séquence
 
'-----------------------------------------------------------------------
' Macro Tot_seq permettant de connaitre le début de la seq par personne
'-----------------------------------------------------------------------
Sub Tot_seq()
    Call Entete_F2
    Lign = 2
    Lign2 = 2
    Coln = 2
    SavSeq = Cells(Lign, Coln).Value
    CumSeq = 0
 
    Do
        If Cells(Lign, Coln).Value <> "" Then
            If SavSeq = Cells(Lign, Coln).Value Then
                CumSeq = CumSeq + Cells(Lign, Coln + 8).Value
            Else
                Sheets("Feuil2").Select
                Cells(Lign2, 1).Value = Sheets("Feuil1").Cells(Lign, 1).Value
                Cells(Lign2, 2).Value = SavSeq
                Cells(Lign2, 3).Value = CumSeq
                Sheets("Feuil1").Select
 
                Lign2 = Lign2 + 1
                SavSeq = Cells(Lign, Coln).Value
                CumSeq = Cells(Lign, Coln + 8).Value
 
            End If
            Coln = Coln + 1
        Else
            Sheets("Feuil2").Select
            Cells(Lign2, 1).Value = Sheets("Feuil1").Cells(Lign, 1).Value
            Cells(Lign2, 2).Value = SavSeq
            Cells(Lign2, 3).Value = CumSeq
            Sheets("Feuil1").Select
 
            Lign2 = Lign2 + 1
            Lign = Lign + 1
            SavSeq = Cells(Lign, 2).Value
 
            CumSeq = 0
            Coln = 2
        End If
    Loop While Cells(Lign, 1) <> ""
 
End Sub
 
Sub Entete_F2()
    Sheets("Feuil2").Select
    Cells(1, 1).Value = "Personne"
    Cells(1, 2).Value = "Sequence"
    Cells(1, 3).Value = "Temps"
    Sheets("Feuil1").Select
End Sub

Normalement ça fonctionne bien avec ton exemple

Tu dis si cela te convient

@ +