VBA Excel

Bonjour,

Je souhaiterai que l'on m'aide, car je n'y arrive pas, je suis novice là dedans...

Pour vous expliquer : J'ai un tableau avec des noms et, sur d'autres colonnes j'ai une heure de début de commencement et une heure de fin.

Je souhaiterai faire une macro, qui calcul le temps entre la fin de l'ancienne prise et le début de la nouvelle sous condition que ce soit la même personne, sinon mettre "0" par exemple si changement de nom.

Je rentre en auto toutes les données le nombre de ligne peut varier.

Y'a t'il une âme charitable qui pourrait m'aider ?

Merci d'avance

Hi,

Un petit conditionnel et c'est tout bon.

Macro vite faite, à tester

Sub temps_arret

dim i&, derligne&, Tableau

With thisworkbook.sheets("nom_de_la_feuille")
derligne = .range("A" & rows.count).end(xlup).row 'on défini la dernière ligne de la colonne A
Tableau = .range("A2:E" & derligne) 'création du tableau de données

For i = 2 to ubound(Tableau,1) 'De la deuxième à la dernière ligne du tableau
If Tableau(i, 1) = Tableau(i-1,1) then 'si même nom
Tableau(i,5) = Tableau(i,3) - Tableau(i-1,4) 'différence d'heures
Else
Tableau(i,5) = "0" 'si nom différent, on met 0 dans la cellule
end if
next i
Tableau Copy .range("A2") 'On copie notre tableau sur la feuille
end with
end sub

Merci !

Mais n'y aurait-il pas moyen d'inscrire directement dans la colonne "E" ? et non pas à la fin ?

Car la macro marche partiellement sinon.

Bonjour,

En E2 :

=SI(ET(A2<>"";A2=A1);C2-D1;"")

Et tirer vers le bas...

Une macro est totalement superflue pour un tel calcul.

Cordialement.

Ouais mais la macro tu peux l'automatiser

(Sinon effectivement tu colle la mormule en début de colonne et tu demande un filldown automatique à l'ouverture du fichier ou via pressbuton pour pas avoir à étirer le truc à la main).

MFerrand a écrit :

Bonjour,

En E2 :

=SI(ET(A2<>"";A2=A1);C2-D1;"")

Et tirer vers le bas...

Une macro est totalement superflue pour un tel calcul.

Cordialement.

Oui effectivement, c'est beaucoup plus rapide, pas besoin de plus !

Merci