Classer des âges par tranches d'âges via un code VBA - Erreur 1004
Bonjour,
Dans le cadre d'un projet informatique à l'université, il nous a été demandé de coder en VBA sur excel en vue de produire des analyses statistiques à partir de données (que nous avons purement inventées) d'Access.
Le codage en VBA est quelque chose de nouveau pour moi, donc il se peut que le problème ne soit pas trop compliqué à résoudre.
J'ai crée une feuille Excel dans laquelle j'ai calculé l'âge des personnes fictive de mon projet. Ensuite, j'ai voulu, avec un code, classer ces âges (34 ans, 18 ans, 62 ans ...) dans un tableau qui se divise par tranche d'âge :
A26 Tranche d'âge : B26 Nbre de personnes :
A27 18-25 ans
A28 26-35 ans
A29 36-45 ans
A30 45-55 ans
A31 55-100 ans
J'aimerais que mon code regarde chaque valeur et la classe dans mon tableau pour que je puisse savoir à la fin qu'elle est la tranche d'âge la plus volumineuse.
Mes valeurs "Âge" sont de (C4:C24) et les valeurs de mon tableau doivent s'inscrire dans A27, A28, A29, A30, A31.
Malheureusement, le message d'erreur "Erreur d'exécution 1004. Erreur définie par l'application ou par l'objet" apparaît quand je lance le code.
Le voici :
---
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
| Sub Public_Cible()
For i = 4 To 24
agei = Range("C" & i).Value
If 18 <= agei <= 25 Then
Range(B27).Value = Range(B27).Value + 1
ElseIf 26 <= agei <= 35 Then
Range(B28).Value = Range(B28).Value + 1
ElseIf 36 <= agei <= 45 Then
Range(B29).Value = Range(B29).Value + 1
ElseIf 45 <= agei <= 55 Then
Range(B30).Value = Range(B30).Value + 1
ElseIf 56 <= agei <= 100 Then
Range(B31).Value = Range(B31).Value + 1
End If
Next i
End Sub |
---
Désolée, je suis nouvelle sur le forum, en espérant pouvoir trouver l'erreur de ce code... S'il faut le moindre screenshot (je ne sais pas si c'est ok par rapport aux règles du forum), vous pouvez me le demander.
Dans l'espoir qu'un(e) magicien(ne) des codes puisse éclairer mon chemin :)
Bien à vous et bonne soirée,
Estriny
Merci ! Le code fonctionne !
Après avoir fait toutes les rectifications que vous m'aviez conseillées, le code fonctionne ! Je vous suis extrêmement reconnaissante car c'est mon " 1er code en VBA" "toute seule" qui donne le résultat escompté :)
Merci en tout cas de vos réponses, passez une très bonne soirée
Estriny