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 : Sélectionner tout - Visualiser dans une fenêtre à part
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