probleme boucle VBA

Bonjour à tous

Je suis tout nouveau dans le monde du VBA (commencé hier)

Je tente de faire une macro pour excell mais elle ne fonctionne pas comme je voudrais

Pour faire simple :

Dans la feuille 1 du classeur je rentre les absences ou présence des personnes. Je voudrais qu'à chaque absence une variable se met dans la feuille 3 du classeur en face du même nom.

Mais dès le debut je rencontre un probleme. La valeur est de 1 même si la personne est présente.

Voici ci dessous la première ébauche du programme. ( je sais je suis newbie mais je n'ai commencé qu'hier soir

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 27 28 29 30 31 32 33 34 35

Sub Anomalie() Dim Cel As Range, Cel2 As Range Dim Presence As String Dim Anomalie As Integer Dim x As Integer 'On affecte la plage de cellules "B2:B15" 'à la variable Cel Set Cel = Range("B2:B4") Presence = Range("B2") Worksheets("feuil3").Range("B2") = x   'Pour chaque cellule de la plage de cellule For Each Cel2 In Cel If Cel2 = absent Then Anomalie = x + 1 Worksheets("feuil3").Select Cel2 = Anomalie End If Next   For Each Cel2 In Cel If Cel2 = present Then Worksheets("feuil3").Select Cel2 = 0 End If Next     If Anomalie > 0 Then Range("B2").Font.Color = RGB(255, 0, 0)   End If     End Sub

---

SAlut

Ajoute des " "

tel que

Code:

---

If Cel2 = "absent"

---

Je te remercie beaucoup pour le temps que tu me consacres.
J'ai modifié le code et maintenant il me met la valeur 0 uniquement pour le premier nom alors que la valeur doit être 1

Je pense savoir d'où cela vient mais je ne sais pas comment faire pour mettre une colonne complete il y a une erreur à chaque fois.

Voila le code avec un commentaire à la ligne où il y a peut être l'errer.
Merci encore

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 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41

Sub Anomalie() Dim Cel As Range, Cel2 As Range Dim Presence As String Dim Anomalie As Integer Dim x As Integer   Set Cel = Range("B2:B4")   Presence = Range("B2") 'erreur ??     Worksheets("feuil3").Range("B2") = x     For Each Cel2 In Cel   If Cel2 = "absent" Then Anomalie = x + 1 Worksheets("feuil3").Select Cel2 = Anomalie End If   Next   For Each Cel2 In Cel If Cel2 = "present" Then Worksheets("feuil3").Select Cel2 = 0   End If   Next     If Anomalie > 0 Then Range("B2").Font.Color = RGB(255, 0, 0)   End If     End Sub

---

Bonjour,

à quoi sert ta ligne 12 ?

en fait je donne une valeur x afin de pouvoir comptabiliser le nombre d'absence dans le futur.
C'est pour cela que j'inscrit la ligne 18

Mais le code est surement truffé d'erreur lol

Bonjour,
As-tu essayé d'utiliser les tableaux croisés dynamiques ?
En quelques clics tu obtiendras tous les résultats voulus.

Très bon conseil.
Je ne connaissais pas et il est vrai que ça évite bien de se triturer les méninges.
Y a t-il un moyen de voir la traduction en VBA ue je vois tout de même où se situe mon erreur ?

En tout cas merci beaucoup ( j'ai mis résolu)

Bonjour,

Citation:

---

Y a t-il un moyen de voir la traduction en VBA ue je vois tout de même où se situe mon erreur ?

---

Je ne saisi pas la question