Calcul dans un tableau en VBA

[zakou76]

Bonjour à tous.
Depuis 3 jours je suis en train de tourner en rond sur un problème de calcul dans tableau, je m'explique:
Mon tableau comporte 4 colonne et a la structure suivante
A B C D
1 Date Heure Libellé Etat
2 16-05-2010 08:32:16 Paris Opérationnel
3 16-05-2010 14:26:24 Paris Non opérationn
4 16-05-2010 14:26:26 Bordeau Non opérationn
5 16-05-2010 14:26:26 Nice Non opérationn
6 16-05-2010 14:26:32 Nice Opérationnel
7 16-05-2010 14:26:36 Bordeau Opérationnel
8 16-05-2010 14:26:36 Paris Opérationnel
9 16-05-2010 14:26:46 Paris Non opérationn
10 16-05-2010 14:27:49 Paris Opérationnel
11 16-05-2010 14:28:28 Paris Non opérationn
12 16-05-2010 14:30:40 Paris Opérationnel
13 16-05-2010 15:31:32 Paris Non opérationn
14 16-05-2010 15:31:39 Paris Opérationnel
15 16-05-2010 16:40:49 Paris Non opérationn

Je dois calculer le temps écoulé pour chaque ville. Par exemple pour PARIS le temps écoulé entre le moment ou elle est operationnel et non opérationnel.
Pour ce cas precis je pour Paris je calcul:
(B14-B13)+(B12-B11)+(B10-B9)+(B8-B3) je trouve 00:03:34 pour 4 fois etc...

J'aurais comme résultat ceci:

Libellé Temps Nbe
Paris 00:03:34 4
Bordeau 00:00:10 1
Nice 00:00:06 1

Je sais le faire avec des filtres automatiques mais le problème est que mon tableau n'a pas un nombre de lignes fixes. Il peut etre vide ou avoir 1000 lignes. Je prefère automatiser cela par module VBA.
J'espère avoir été assez exoresif et je vous remercie pour votre eventuelle aide. Merci.

 

[JHA]

Re : Calcul dans un tableau en VBA

Bonjour à tous,

Un début de piste avec sommeprod()
Le résultat dépendra du remplissage de ton tableau.

JHA

 

[zakou76]

Re : Calcul dans un tableau en VBA

Bonjour.
Merci JHA pour votre réponse, le problème dans ces calculs c'est que vous faites intervenir la colonne des dates. A la limite on peut ignorer cette colonne et ne travailler qu'avec les heures. Puis:Concernant Paris je ne fais pas le calcul quant la derniere valeur de ETAT_1 est egale à Non operationnel. Par contre quant j'ajoute une ligne(16) pour Paris à operationnel là le calcul est bon (C16-C15) et le total est 0:03:44
Voir la nouvelle feuille ci-jointe.

 

[Manu62]

Re : Calcul dans un tableau en VBA

salut

un essai avec un TCD

A+

Manu

 

[camarchepas]

Re : Calcul dans un tableau en VBA

Bonjour Zakou,

Voici un ptit code VBA :

 

[zakou76]

Re : Calcul dans un tableau en VBA

Bonjour Zakou,

Voici un ptit code VBA :

Bonsoir.
Merci à vous camarchepas. A 99% c'est ce que je voulais avoir comme résultat. Je m'excuse pour la mauvaise formulation de mon problème. Je vais tripoter un peu votre code et l'adapter au mien.
Un grand merci aussi à Manu62 car j'avoue que l'option TCD est subtile aussi.
Un grand merci à vous tous. A+

 

[zakou76]

Re : Calcul dans un tableau en VBA

Bonjour Zakou,

Voici un ptit code VBA :

Rebonsoir
Une toute petite question, et si mon tableau est vide ou contient une seule ligne est ce que je peux dire à mon code de sortir
Merci.

 

[camarchepas]

Re : Calcul dans un tableau en VBA

Bonjour,

Voici,

 

[zakou76]

Re : Calcul dans un tableau en VBA

Bonjour,

Voici,

ReBonsoir
Extra mais il y a un seul hic, c'est que mon tableau est fixe c.a.d:
Colonne A====> Date
Colonne B====> Heure
Colonne C====> Libellé
Colonne D====> Etat
Est-il possible de faire ces calculs en gardant mon tableau ainsi sans concaténation.
Un gand merci à vous.

 

[camarchepas]

Re : Calcul dans un tableau en VBA

Un ptit avant après sur une feuille car là , plus de batterie dans ma boule de cristal ( l'heure avancée peut être , lol)

Mais ci les colonnes sources sont sur A b c et D

 

[zakou76]

Re : Calcul dans un tableau en VBA

Bonsoir
Merci comme meme pour tout. Bye

 

[camarchepas]

Re : Calcul dans un tableau en VBA

Bonjour,
Et hop, une version nouvelle , tiens comme le beaujolais: