extraire couples

[phil59110]

Bonjour a tous et a toutes !!!

mon probléme et asser compliqué!!! donc je prefaire vous montré un exemple avec un fichier joint si vous le voulais bien

bien sur si c'est possible vu le compliqué de ma demande!

merci beaucoup

 

[wilfried_42]

Re : extraire couples

bonjour


ton fichier en retour, 1 essai

 

[bqtr]

Re : extraire couples

Bonjour wilfried, phil,

Un exemple par macro, c'est fait alors je l'a met 🙂

Sub Couple()

Dim k As Long, m As Long

m = 5
For k = 2 To Range("C65536").End(xlUp).Row
  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, 10) = Mid(Cells(k, 3), 2, 2)
        Cells(m, 11) = Mid(Cells(k, 3), 5, 2)
        m = m + 1
     End If
  End If
Next

End Sub

Macro à placer dans un module de code standard.

Bonne journée

Edit : Où va tu chercher des formules comme ça 😀, Wilfried

 

[Catrice]

Re : extraire couples

Bonjour,

ci-joint 3 solutions basées sur des filtres

 

[phil59110]

Re : extraire couples

bonjour Wilfried , Bqtr,Catrice

pour votre formule Wilfried elle va super ainsi que votre macro Bqtr

par contre pour la macro le poid vari celon les couplés donc est ce que je peut modifier et aussi si je veut changer d'emplacement est ce que c'est compliqué pour modifier la macro

merci beaucoup !!!!!!!!!!!!

 

[phil59110]

Re : extraire couples

Bonjour wilfried, phil,

Un exemple par macro, c'est fait alors je l'a met 🙂

Sub Couple()

Dim k As Long, m As Long

m = 5
For k = 2 To Range("C65536").End(xlUp).Row
  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, 10) = Mid(Cells(k, 3), 2, 2)
        Cells(m, 11) = Mid(Cells(k, 3), 5, 2)
        m = m + 1
     End If
  End If
Next

End Sub

Macro à placer dans un module de code standard.

Bonne journée

Edit : Où va tu chercher des formules comme ça 😀, Wilfried[/QUOT

bonjour Bqtr j'ai testé votre macros elle va super !!!
mais si je veut changer de colonne pour les couplés et pour la destination est ce compliqué?

merci beaucoup!!

 

[bqtr]

Re : extraire couples

Re,

Non c'est pas compliqué de faire des modifs :

- Si tu veux changer la colonne où sont tes couples c'est cette ligne :
For k = 2 To Range("C65536").End(xlUp).Row
2 correspond à la première ligne prise en compte.
Pour la colonne Change C avec la lettre de la colonne adéquat

- If Len(Cells(k, 3)) > 2 : Cela signifie si le nombre de caractère est > à 2, pour ne pas prendre en compte les cellules contenant C1,C2,C3.... Si tu change de colonne il faudra changer le 3, par le n° de la nouvelle colonne (1 pour A, 2 pour B ......) le faire aussi à chaque fois que tu as ce code.

- Range("J2") c'est la cellule où tu as le poid choisi comme référence, à modifier si nécessaire.

- Cells(m, 10) et Cells(m, 11) le 10 et le 11 correspondent au n° des colonnes J et K donc à modifer si tu extrait dans d'autres colonnes. Le m est une variable qui correspond au n° de la ligne où seront copier les données. Au départ m = 5 puisque l'extraction commence en ligne 5 (cellule J5 et K5). Ensuite m s'incrémente à chaque fois que le test est bon
Donc m est à modifer en fonction du n° de la première ligne où seront extrait les données.

A+