extraire Couples

[phil59110]

re bonjour a tous et a toutes

j'ai juste encore une petite faveur a vous demander au sujet des couples est ce qu'il serait possible d'afficher la course en fonction du résultats ?
je rejoint l'exemple

merci beaucoup

vraiment je galére j'ai tout testé formules macro mais ça donne rien

 

[bqtr]

Re : extraire Couples

Re,

Toujours par macro :

Sub Couple()

Dim k As Long, m As Long, y As Integer

m = 5
For k = 1 To Range("C65536").End(xlUp).Row
  If Len(Cells(k, 3)) = 2 Then y = k
  If Len(Cells(k, 3)) > 2 Then
     If Val(Mid(Cells(k, 3), 2, 2)) + Val(Mid(Cells(k, 3), 5, 2)) = Range("J2") Then
        Cells(m, 9) = Cells(k, 3)
        Cells(m, 10) = Mid(Cells(k, 3), 2, 2)
        Cells(m, 11) = Mid(Cells(k, 3), 5, 2)
        If y < k Then Cells(m, 8) = Cells(y, 3)
        m = m + 1
     End If
  End If
Next

End Sub

Je t'ai répondu sur ton autre fil, d'ailleurs tu aurais dû continuer sur ce dernier, c'est plus facile pour suivre 🙂

A+

 

[phil59110]

Re : extraire Couples

Re,

Toujours par macro :

Sub Couple()

Dim k As Long, m As Long, y As Integer

m = 5
For k = 1 To Range("C65536").End(xlUp).Row
  If Len(Cells(k, 3)) = 2 Then y = k
  If Len(Cells(k, 3)) > 2 Then
     If Val(Mid(Cells(k, 3), 2, 2)) + Val(Mid(Cells(k, 3), 5, 2)) = Range("J2") Then
        Cells(m, 9) = Cells(k, 3)
        Cells(m, 10) = Mid(Cells(k, 3), 2, 2)
        Cells(m, 11) = Mid(Cells(k, 3), 5, 2)
        If y < k Then Cells(m, 8) = Cells(y, 3)
        m = m + 1
     End If
  End If
Next

End Sub

Je t'ai répondu sur ton autre fil, d'ailleurs tu aurais dû continuer sur ce dernier, c'est plus facile pour suivre 🙂

A+[/QUOT
c'est super de super merci beaucoup Bqtr !!!!!!!
oui et pour le 2éme post tu as raison
j'aurais du continuer sur le premier ça aurais été plus simple

merci encore