Discussion :

[dyerwolf]

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

[Ashireon]

SAlut

Ajoute des " "

tel que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Cel2 = "absent"

[dyerwolf]

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 :

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
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

[SfJ5Rpw8]

Bonjour,

à quoi sert ta ligne 12 ?

[dyerwolf]

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

[Philippe Tulliez]

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