Passer en algo des calculs
Résoluvia55 Messages postés 14512 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
un tableau Excel de x cellules en A B C D F
je fais un trie des cellules résultants en calcul
est il possible de le transformer en algo:
total A+B+C+D+F supérieur à 75 inférieur à 170
Les cellules A+B+C+D+E les nombres de chaque cellule ne doivent jamais êtres tous paires ou tous impaires
si c'est possible en algo je gagnerais un temps fou de calcul
merci a tous
Windows / Edge 121.0.0.0
- Passer en algo des calculs
- Passer en azerty - Guide
- Passer a windows 10 - Accueil - Mise à jour
- Passer un texte en majuscule - Guide
- Roland souhaite calculer le montant total des ventes de son magasin. le fichier contient, pour chaque produit, la quantité vendue et le prix unitaire. calculez le montant total des ventes. ✓ - Forum Excel
- Barbara veut calculer automatiquement son budget dans un tableau. citez un des logiciels lui permettant de faire des calculs sur des tableaux de nombres (tableur). - Forum Excel
4 réponses
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 :
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
