Bonsoir tout le monde,
je rencontre un petit souci pour l’execution d’une mise a jour pour un tableau de rencontre de boxe.
Petit recapitulatif :
j’ai un classeur avec plusieurs feuille 2 feuille de catégorie par age et par poids, plusieures feuilles de clubs et d’autre viendront si ajouter dans le futur, une feuille recap et une feuille du fameux tableau de rencontre
Pour ce tableau de rencontre il y a plusieurs critère a respecter
pas le mm club
pas frère et sœur
mm sexe
age pas + 2ans d’ecart de date a date
mm categorie
un premier essai concluant a déjà été fait sauf que d’autre critère ont du être ajouter et du coup cela ne fonctionne plus
le premier pint ou je suis bloquer est au niveau de la mise a jour
Sub MettreAjour()
Set fr = Sheets("RECAP")
Set ft = Sheets("tableau de rencontre")
Set dico = CreateObject("Scripting.Dictionary")
ft.Range("I2").CurrentRegion.Offset(2, 0).ClearContents
Application.ScreenUpdating = False
For i = 2 To fr.Range("A" & Rows.Count).End(xlUp).Row
For ib = i + 1 To fr.Range("A" & Rows.Count).End(xlUp).Row
If fr.Range("A" & i) <> fr.Range("A" & ib) Then
If fr.Range("F" & i) = fr.Range("F" & ib) Then
If fr.Range("F" & i) = "AMATEUR" Then
**_If (fr.Range("G" & i) - fr.Range("G" & ib)) < 365 * 2 Then_** ===probleme
If fr.Range("D" & i) <> fr.Range("D" & ib) Then
If Abs(fr.Range("E" & i) - fr.Range("E" & ib)) <= 3 Then
If dico(fr.Range("A" & i) & fr.Range("A" & ib)) <= 2 Then
If ib - i <= 3 Then
lgn = ft.Range("B" & Rows.Count).End(xlUp)(2).Row
fr.Range("A" & i & ":G" & i).Copy
ft.Range("B" & lgn).PasteSpecial xlPasteValues
fr.Range("A" & ib & ":G" & ib).Copy
ft.Range("J" & lgn).PasteSpecial xlPasteValues
ft.Range("A" & lgn) = lgn - 3
dico(fr.Range("A" & i) & fr.Range("A" & ib)) = dico(fr.Range("A" & i) & fr.Range("A" & ib)) + 1
End If
End If
End If
End If
End If
End If
End If
End If
Next ib
Next i
la ligne ou j ai ecrit probleme est la ligne du critere age pas plus de 2 ans donc je ne vois pas ou est le souci
de plus je vous joint le fichier car vu que j’ai inserer de nouvelle categorie comme PRO ou TEST MATCH je ne sais pas comment le mettre a execution si vous pouvez a y voir plus clair cela serait très sympathique
Merci de vos futur reponseRENCONTRE SPORTIVE V3 (1).xlsm (75,5 Ko)