Je révise mon concour d'allemand et j'aurais besoin d'un fichier excel qui me serve à voir ou j'en suis dans mes révisions.
j'ai déja fais ce fichier mais j'aurais besoin d'aide pour la partie "automatique"
Pouvez vous regarder le fichier joins et m'aider? ( toutes les annotations sont marquées dessus) ( j'ai supprimé quasi tout les mots car le fichier ne passait pas sinon
En colonne K, une fonction personnalisée de Boisgontier :
Code:
Function CompteCouleur(champ As Range, couleurFond)
Dim Cel As Range, Temp As Integer
Temp = 0
For Each Cel In champ
If Cel.Interior.ColorIndex = couleurFond Then
Temp = Temp + 1
End If
Next Cel
CompteCouleur = Temp
End Function
et pour l'extraction, j'ai rajouté un titre en colonne E, puis je teste si la couleur de la cellule est standard, dans ce cas, je mets un "X"
et enfin, je fais un filtre élaboré vers le 2 ème onglet
j'ai également nommé ta zone de C1 à E 705 : "base"
Nota : si tu changes une couleur, il faut appuyer sur le bouton vert "Calcul"
Pour extraire, appuie sur le bouton jaune "Extraction"
Je ne les ai pas tous relevés, mais maintenant, c'est sans moi......
J'ai failli supprimer ma réponse, mais celle-ci peut également servir à d'autres, donc, je la laisse...