Bonjour le forum
ci joint un fichier avec une feuille base avec un tableau à 5 colonnes.
Je souhaite dénombrer le nombre d'épreuves qu'un sportif a fait puis mettre une note selon le nombre trouvé
Mais si le sportif a fait 2 fois la même épreuve, alors cela compte pour 1 . En gros, je supprime le doublon avant de dénombrer
1- j'ai d'abord copier le tableau de la feuille "base" vers la feuille "0doublon" puis supprimer les doublons coïncidant aux 3 1eres colonnes du tableau
==> j'ai trouvé ce code qui fonctionne
<code>
Columns("A:F").Select
Selection.Copy
Sheets("dedoubler").Select
Sheets("dedoubler").Name = "dedoubler"
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
Range("a2:f" & Cells(Rows.Count, 1).End(3).Row).RemoveDuplicates Columns:=Array(1, 2, 3)
<code>
2- dans la feuille dénombrer
je souhaite connaitre pour chaque sportif (nom-classe) le nombre de fois qu'il apparait en feuille 0doublon
3-Evaluer
et je souhaite utiliser recherchev dans une boucle pour que tous els sportifs soient évaluer selon le tableau de la feuille parametre
Un colistier pourrait-il m aider car je n'ai pas connaissance des boucles vba
merci d avance
chvalet
ci joint un fichier avec une feuille base avec un tableau à 5 colonnes.
Je souhaite dénombrer le nombre d'épreuves qu'un sportif a fait puis mettre une note selon le nombre trouvé
Mais si le sportif a fait 2 fois la même épreuve, alors cela compte pour 1 . En gros, je supprime le doublon avant de dénombrer
1- j'ai d'abord copier le tableau de la feuille "base" vers la feuille "0doublon" puis supprimer les doublons coïncidant aux 3 1eres colonnes du tableau
==> j'ai trouvé ce code qui fonctionne
<code>
Columns("A:F").Select
Selection.Copy
Sheets("dedoubler").Select
Sheets("dedoubler").Name = "dedoubler"
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
Range("a2:f" & Cells(Rows.Count, 1).End(3).Row).RemoveDuplicates Columns:=Array(1, 2, 3)
<code>
2- dans la feuille dénombrer
je souhaite connaitre pour chaque sportif (nom-classe) le nombre de fois qu'il apparait en feuille 0doublon
3-Evaluer
et je souhaite utiliser recherchev dans une boucle pour que tous els sportifs soient évaluer selon le tableau de la feuille parametre
Un colistier pourrait-il m aider car je n'ai pas connaissance des boucles vba
merci d avance
chvalet