Sub cartman()
'ici on la boucle est dans la feuille resultat recherche
Sheets("resultat recherche").Select
For z = 3 To 16
'on récupere le num adhérent et le num du contrat
num_client = Cells(z, 1)
num_dossier = Cells(z, 2)
'ici on va dans la feuille extraction2
Sheets("extraction2").Select
For i = 2 To 15
'ici on va découper le nom pour avoir le numéro adhérent , et le num de dossier
contrat_ex2 = Cells(i, 2)
'taille de notre mot contrat
taille_contrat_ex2 = Len(contrat_ex2)
'ici on récupere la place du numéro du /
num_slash_ex2 = InStr(contrat_ex2, "/")
'ici on récupere le numéro du dossier
num_dossier_ex2 = Mid(contrat_ex2, num_slash_ex2 + 1)
num_dossier_ex2 = CLng(num_dossier_ex2)
'ici on récupere le numéro du client
num_client_ex2 = Mid(contrat_ex2, 2, num_slash_ex2 - 3)
num_client_ex2 = CLng(num_client_ex2)
'A ce moment la on a donc le numéro du dossier et du client pour chaque ligne
'donc on va commencer a voir si c est on est bien dans la bonne ligne dans la feuille extraction2
If num_client = num_client_ex2 And num_dossier = num_dossier_ex2 Then
prime = Cells(i, 7)
End If
Next i
'on copie la prime dans la feuille
Sheets("resultat recherche").Select
Cells(z, 4) = prime
'on remet la prime a zéro
prime = 0
'ici on va dans la feuille extraction 1
Sheets("extration1").Select
For i = 2 To 15
num_client_ex1 = Cells(i, 17)
num_dossier_ex1 = Cells(i, 18)
'donc on va commencer a voir si c est on est bien dans la bonne ligne dans la feuille extraction1
If num_client = num_client_ex1 And num_dossier = num_dossier_ex1 Then
'on compte le nombre d accident
cpt = cpt + 1
'on fais le total
total_crash = total_crash + Cells(i, 31)
End If
Next i
'on copie les résultat dans la recherche
Sheets("resultat recherche").Select
Cells(z, 5) = cpt
cpt = 0
Cells(z, 6) = total_crash
total_crash = 0
Next z
End Sub