Sub Tiercé()
[Position].ClearContents
For Pro = 1 To 8
For Arr = 1 To 5
If [Arrivée].Cells(1, Arr) = [Prono].Cells(1, Pro) Then
[Position].Cells(1, Pro) = Arr
End If
Next Arr
Next Pro
End Sub
Bonjour,Bonjour Guismo,
Un essai en PJ avc ce petit bout de code :
On appuie sur le bouton pour avoir le résultat.VB:Sub Tiercé() [Position].ClearContents For Pro = 1 To 8 For Arr = 1 To 5 If [Arrivée].Cells(1, Arr) = [Prono].Cells(1, Pro) Then [Position].Cells(1, Pro) = Arr End If Next Arr Next Pro End Sub
re,Bonjour,
merci pour cette Vba,j'essaie et je reviens vers vous.
bien à vous
Oui je sais bien , car je pensais quand passent par Vba cela etait plus facile.Quelles cellules ?
Je ne fait que comparer votre pronostic par rapport à l'arrivée.
Je ne modifie que les cellules en rouge ( B4:I4 ) : [Position].Cells(1, Pro) = Arr
Bonjour,Le fichier 2020-2 est protégé donc n'apporte rien.
Le fichier 2020-3 a toutes les cellules en #REF! donc inexploitable.
Dans le fichier 3 d'après ce que j'ai compris en B il doit y avoir les chevaux, En D vos pronostics, et en I:AM les ordres d'arrivées. Est ce cela ?
Dans ce cas, ou met-on les 1er, 2eme, 3eme ... ?
Impossible de vous aider sans plus de compréhension.