Passer en algo des calculs

Bonjour jack.

Pour ceux d'entre nous (et nous sommes nombreux) qui ne voient pas trop ce que tu appelles un algo, je précise que :

• L'algorithmique est l'étude et la production de règles et techniques qui sont impliquées dans la définition et la conception d'algorithmes, c'est-à-dire de processus systématiques de résolution d'un problème permettant de décrire précisément des étapes pour résoudre un problème algorithmique ;
• lorsqu'on applique un algorithme à un problème de bureautique, on passe généralement par le langage VBA, et on obtient une macro ;
• sinon on écrit un programme dans l'un des divers langages de programmation
• concrètement je déconseille d'utiliser le terme algo, qui est une abréviation rarement employée.

Là encore tu ouvres une nouvelle discussion sans savoir ma réponse-solution sur la précédente !!!!

Va regarder et dis moi si c'est ce qui te convient

Il te faut être plus méthodique si tu veux arriver à bout de ce que tu recherches !

1) mon post 1 concernait ma dernière réponse à la précédente discussion :

https://forums.commentcamarche.net/forum/affich-37995756-construire-un-tableau-excel-de-5-colonnes-en-y-retrouvant-au#dernier

2)  La macro complète que je t'avais fourni  :

Sub combi()
x = 2
Range("L6") = Now
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For a = 1 To 25
For b = a + 1 To 26
For c = b + 1 To 27
For d = c + 1 To 28
For e = d + 1 To 29
x = x + 1
tot = 0
Range("A" & x) = Cells(1, a)
tot = tot + WorksheetFunction.CountIf(ActiveSheet.Range("L3:P3"), Cells(1, a))
Range("B" & x) = Cells(1, b)
tot = tot + WorksheetFunction.CountIf(ActiveSheet.Range("L3:P3"), Cells(1, b))
Range("C" & x) = Cells(1, c)
tot = tot + WorksheetFunction.CountIf(ActiveSheet.Range("L3:P3"), Cells(1, c))
Range("D" & x) = Cells(1, d)
tot = tot + WorksheetFunction.CountIf(ActiveSheet.Range("L3:P3"), Cells(1, d))
Range("E" & x) = Cells(1, e)
tot = tot + WorksheetFunction.CountIf(ActiveSheet.Range("L3:P3"), Cells(1, e))
Range("G" & x) = tot
Next
Next
Next
Next
Next
Range("L7") = Now
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

 heure de début et de fin sont placés par la macro dans les cellules L6 et L7

Dans la cellule L8 il y avait la formule =L7 - L6  qui affichait donc le temps

Si tu préfères qu'au lieu d'une formule dans la feuille ce soit la macro qui effectue le calcul et l'inscrive dans la feuille il suffit de rajouter la signe suivante après la ligne Range(L7)= Now :

Range(L8)=Range(L7)-Range(L6)

bonjour 

peux tu m'aider

bonjour a tous un premier algo 

.....Next Next Next Next Next Range("L7") = Now Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

la durée du temps de calcul du temps de travail s'affiche bien heure de début et de fin du travail et temps mis pour calculer en L7 mon second algo

.... CreateBackup:=False Range("N7") = Now Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

seul en L7 affiche l'heure de début L heure de fin et le temps ne s'affiche pas ou est l'erreur merci a tous