Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !
C'est formellement possible, tant en VisualBasic qu'en d'autres langages. C'est pratiquement possible si n n'est pas trop grand. Si le temps de calcul est t pour n et p donnés, le temps de calcul passe à t*(n+1)/(n+1-p) lorsqu'on passe de n à n+1. Si p est petit, le temps de calcul n'augmente pas trop vite avec n. Si p est voisin de n/2, le temps de calcul double approximativement lorsqu'on passe de n à n+1. Pour fixer les idées, si on passe de n=10 à n=11 pour p=5, le facteur de croissance du temps de calcul est de l'ordre de 11/6 (environ 1,83). Si on passe de n=10 à n=11 pour p=2, le facteur de croissance du temps de calcul est de l'ordre de 11/9 (environ 1,22).
Pour éviter les répétitions, il faut qu'on connaisse une règle de choix de la valeur à retenir le cas échéant. Quelle est-elle ?
Sub mamacro()
Dim i As Integer, j As Integer, k As Integer, m As Double
Application.ScreenUpdating = False
Range(Cells(5, 3), Cells(24, 24)).Interior.ColorIndex = xlColorIndexNone
For j = 5 To 24
m = Cells(j, 1)
For i = 24 To 3 Step -1
If Cells(j, i) = m Then
Cells(j, i).Interior.ColorIndex = 6
k = i
End If
Next i
Cells(j, 25) = Cells(j, 2) & ", " & Cells(4, k)
Next j
Application.ScreenUpdating = True
End Sub
