extraire Couples

bqtr à dit:

Re,

Toujours par macro :

Code:

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

Cliquez pour agrandir...