Probleme des totaux

[poussy67]

Bonsoir le forum

J’ai un classeur qui contient plusieurs feuilles qui contient une liste variable de chauffeurs avec une colonne qui contient le total des heures effectué par chaque chauffeur par semaines (au max que 5 semaines). Ces totaux que je voudrais récupérer dans une feuille les heures travaillé par chauffeur. J’ai eu un exemple de FANFAN38 qui me conviendrais mais fonctionne que sur 3 lignes car j’ai omise de dire que les lignes pouvant être variable. J’ai essayé plusieurs manières sans succès ces pour cela que je demande de l’aide.

ci joint le fichier avec la modif de fanfan

cdt poussy

 

[Excel-lent]

Re : Probleme des totaux

Bonjour Poussy67,

Essaye le code suivant :

Sub Bouton1_Clic() 'transfert
 dercol = Sheets("TOTAL").Range("iv6").End(xlToLeft).Column
 Sheets("TOTAL").Cells(4, dercol + 1).Value = Sheets("TOTAL").Cells(4, dercol).Value + 1
 Sheets("TOTAL").Cells(6, dercol + 1).Value = Sheets("Semaine").Range("iv8").End(xlToLeft).Value
 Sheets("TOTAL").Cells(7, dercol + 1).Value = Sheets("Semaine").Range("iv9").End(xlToLeft).Value
 Sheets("TOTAL").Cells(8, dercol + 1).Value = Sheets("Semaine").Range("iv10").End(xlToLeft).Value
End Sub

C'est ce que tu veux?

Bonne fin de soirée

 

[ledzepfred]

Re : Probleme des totaux

Bonsoir poussy

pas sur d'avoir tout compris mais vois si ce code te convient

With Sheets("TOTAL")
 dercol = .Range("iv6").End(xlToLeft).Column + 1
 derlig = .Cells(65536, 1).End(xlUp).Row + 1
 .Cells(4, dercol).Value = .Cells(4, dercol).Value - 1
 For i = 6 To derlig
 .Cells(i, dercol).Value = Range("ac" & i + 2).Value
 Next
 End With
End Sub

EDIT : bing! pardon excel-lent

a+

 

[poussy67]

Re : Probleme des totaux

re bonjour


C'est presque cela, mais l'exemple est que sur 3 lignes. Le nombre de ligne peut être plus élevé celons les saisons. Dans l'exemple je n'ai que 3 chauffeurs. En pleine saison je pourrai avoir 80 chauffeur ou plus (= 80 lignes) total à exporter dans la page des total


ci joint un nouvel exemple

cdt Poussy

 

[poussy67]

Re : Probleme des totaux

RE

Ce matin je n'étais pas bien réveillé quand j'ais testé les code. La VBA de ledzepfred fonctionne tres bien

merci à vous de m'avoir aider sur ce probleme