Discussion :

[teddy72000]

Bonjour,



J’aimerai faire une macro afin de faire un traitement sur des données. Je ne suis pas du tout calé dans ce domaine…

Chaque semaine je fais un export Excel de certaines données, le nombre de ligne peut varier selon la semaine.

J’ai ajouté en I6 :I11, 6 paramètres.

J’aimerai que la macro (quelques soit le nombre de ligne dans la feuille) :

-Me calcule le trajet total (colonne D) et mette le résultat en J11.
-Me calcule le nombre de ticket CAC (colonne B), compter un ticket si caractère numérique, si égal à « NULL » ne pas le prendre en compte, et mettre le résultat en J10.

-Me calcule le temps total sur les activités de nature CORR-DISTANCE et CORR-ASSIST (nature colonne A et temps en colonne E) et mette le résultat en J8.

-Me calcule le temps total pour des activités de nature PREVENTIF avec un code équipement commençant par « TTF » (colonne A C et E). Puis mettre ce résultat en J6

-Me calcule le temps total pour des activités de nature CORR-SITE avec un code équipement commençant par « TTF » (colonne A C et E).Puis mettre ce résultat en J7.

-Me calcul le temps total pour le reste des activités
Nature différente de corr-assit et corr-distance
Equipement différent de TTF
Mettre le résultat en J9


Merci par avance!!!

[steph6499]

Bonsoir,

Je suppose que ton export Excel commence à la ligne 1 de la feuille avec des titres, donc que les valeurs sont à partir de la ligne 2.

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
'Je parcours ton tableau de la première à la dernière ligne de ce tableau :
 
For numeroLigne = 2 To Range("A1").End(xlDown).Row Step 1 'sachant que la colonne A ne doit pas contenir de cellule vide, sinon choisir une colonne qui ne contient aucune cellule vide jusqu'à la fin du tableau, si colonne B, on aura ...To Range("B1").End(xlDown)
 
'trajet total
varTrajet = varTrajet + Range("D" & numeroLigne).value
 
'nb tickets
if Worksheetfunction.IsNumber(range("B" & numeroLigne)) then 'si vraiment ce sont des nombres sinon IsError(range...) = false
nbreTicket = nbTicket + 1
end if
 
'Autre
 
if range("C" & numeroLigne) = "PREVENTIF" And Left(range("E" & numligne,3) = "TTF" then
tempsTotalPreventif = tempsTotalPreventif + range("A" & numeroLigne)
end if
 
if range("C" & numeroLigne) <> "CORR-ASSIT" And range("C" & numeroLigne) <> "CORR-DISTANCE" and Left(range("E" & numligne,3) = "TTF" then
tempsTotalPreventif = tempsTotalPreventif + range("A" & numeroLigne)
end if
 
Next numeroLigne
 
 
range("J11") = varTrajet
range("J10") = nbreTicket
....

Je pense t'avoir donné toutes les informations, à toi de finir.

[teddy72000]

merci beaucoup, c cool