modif macro de Roger

[olive323]

Bonjour,

Roger2327 en creant cette macro "Merci Roger" avait fait reference à la cellule A3 aujourd'hui je souhaite faire reference a la derniere valeur qui s'affiche de la colonne A + 15minutes
Par exemple dans ce cas le 03/08/2010 à 14:33:40.

Cordialement

Olive

 

[ROGER2327]

Re : modif macro de Roger

Bonjour olive323

Peut-être comme ceci :

[COLOR="DarkSlateGray"][B]Sub toto_2()
Dim f, c, n, l, v
   With Sheets("suivi_semaine_31")
      f = .Cells(.Rows.Count, 5).End(xlUp).Row
      c = 2
      n = 2
      Do While n <= f
         v = .Cells(n, 5)
         l = 4
         Do While .Cells(n, 5).Value = v
            Sheets("feuil2").Cells(l, c).Value = v
            Sheets("feuil2").Cells(l, c - 1).Value = .Cells(n, 4)
            l = l + 1
            n = n + 1
         Loop
         [COLOR="Red"]Sheets("feuil2").Cells(l, c - 1).Value = Sheets("feuil2").Cells(l - 1, c - 1) + 1 / 96[/COLOR]
         c = c + 6
      Loop
   End With
End Sub[/B][/COLOR]

ROGER2327
#4050

Mercredi 25 Phalle 137 (Nativité apparente d' Artaud le Momo, SQ)
18 Fructidor An CCXVIII
2010-W35-6T05:31:24Z

 

[olive323]

Re : modif macro de Roger

Bonjour Roger,

Merci,

La derniere valeur = la derniere valeur je l'avais bien compris avec l'explication de la macro!!! Mais il me manquait le 1/96.

Et pensez vous qu'il soit possible d'intégrer dans cette macro une fonction qui ferait D3-D2; D4-D3; D5-D4 (t'en qu'il y a des valeurs) et de faire la somme des resultats qui sont > à 00:15:00 mais < à 06:00:00.
et pour chaque code opérateur Maj ( colonne E)
J'ai essayé avec ce genre de code FormulaR1C1 = "=R[1]C[-4]-RC[-4]" > 00:15:00 < 06:00:00 mais ça ne fonctionne pas.

Exemple:
opérateur nombres de jours traités somme > à 00:15 et < à 06:00

C02 3 jours 02:20:00
C10 5 jours 03:16:00

Est ce qu'il est possible de faire mouliner la macro, comme celle ci le fait, mais en affichant que ces resultats? Comme ci dessus.

les fichiers comportent un grand nombre de ligne il y a plus de 50 opérateurs, du coup ca fait 50 colonnes.

Merci encore de m'avoir répondu

Cordialement

Olive