Discussion :

[iZinoux]

Bonjour à tous et à toutes !

Je viens vers vous car j'ai un problème que je dois régler au plus vite, et j'ai beau chercher une solution, je ne trouve pas !
Je vous explique le contexte :
Dans une fiche regroupant plusieurs informations, je dois déterminer un stock restant à l'aide des différentes infos (cases vides ou non)
Exemple :

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
Sub Workbook_Open()
Dim i, Somme As Long
    Sheets("Fiche de vie").Unprotect Password:="12643"
    'Calcul du stock restant
    With Sheets("Fiche de vie")
        For i = 6 To 1000
            If IsDate(.Cells(i, 1)) And .Cells(i, 4) = 0 And .Cells(i, 3) - 15 > Now() Then
            Somme = Somme + 1
            ElseIf IsDate(.Cells(i, 1)) And .Cells(i, 4) = 0 And .Cells(i, 3) = "NA" Then
            Somme = Somme + 1
            ElseIf IsDate(.Cells(i, 1)) And .Cells(i, 4) = 0 And .Cells(i, 3) = "remp a ouv" Then
            Somme = Somme + 1
            End If
            
            If IsDate(.Cells(i, 3)) And .Cells(i, 3) - 15 < Now() Then
            .Cells(i, 3).Select
            Selection.Font.Bold = True
            Selection.Font.ColorIndex = 3
            End If
        Next i
    End With
    'Envoie de la valeur dans la cellule
    Sheets("Fiche de vie").Cells(2, 14) = Somme
    Sheets("Fiche de vie").Protect Password:="12643"
End Sub

Donc mon code regarde si la case 1 est vide ou non, si la case 4 est vide ou non, jusque la, il n'y a pas de soucis.
Mon problème est sur la colonne 3, car nous pouvons avoir, soit une date, soit "NA" si cette information n'est pas donnée OU "Remp a ouv" si l'information n'est pas disponible maintenant.
Je me doute que l'erreur vient sur la ligne surlignée en rouge (C'est moi qui l'ai mise, et non excel), car il regarde comme si la case 3 était une date, hors ce n'est pas le cas. Mais je n'arrive pas à trouver les modifications requises pour que cela fonctionne..
J'ai essayé avec un On Error Resume Next, l'erreur ne vient pas, mais mon 2éme IF met "NA" en rouge, et je ne veux pas.

Merci d'avance de votre aide!

[MarcelG]

Bonjour Izinoux, et bienvenu sur ce Forum,

Remarque préliminaire.
Ce dénombrement ne peut-il pas s'exécuter par les fonctions statistiques, ou autres, natives d'Excel?
(NB.SI.ENS, SommeProd...)

Cela dit pour répondre à ta question, il te faut d'abord tester si ta cellule en 3ème colonne est une date.
Sauf erreur, Excel effectue d'abord l'opération puis regarde la condition.

Pour plus de clarté, et de rigueur, mieux vaut à mon avis utiliser la méthode Select Case (True, valeur...)

Reviens si nécessaire

[iZinoux]

Bonjour, merci de votre réponse.

J'avais déjà essayer avec des fonctions propres à excel, je ne sais plus exactement pourquoi mais je ne pouvais pas, ou je n'y arrivais pas. J'ai préféré me pencher sur le vba car je trouvais ça plus simple.

J'ai essayé avec le Select Case True, mais rien ne s'affiche dans la cellule au finale :

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
Sub Workbook_Open()
Dim i, Somme, x As Long
    Sheets("Fiche de vie").Unprotect Password:="11009"
    'Calcul du stock restant
    With Sheets("Fiche de vie")
        For i = 6 To 1000
        Select Case True
            Case IsDate(.Cells(i, 1)) And .Cells(i, 4) = 0 And .Cells(i, 3) - 15 > Now()
            Somme = Somme + 1
            Case IsDate(.Cells(i, 1)) And .Cells(i, 4) = 0 And .Cells(i, 3) = "NA"
            Somme = Somme + 1
            Case IsDate(.Cells(i, 1)) And .Cells(i, 4) = 0 And .Cells(i, 3) = "remp a ouv"
            Somme = Somme + 1
            Case IsDate(.Cells(i, 1)) And .Cells(i, 4) = 0 And .Cells(i, 3) = 0
            Somme = Somme
            End Select
 
            If IsDate(.Cells(i, 3)) And .Cells(i, 3) - 15 < Now() Then
            .Cells(i, 3).Select
            Selection.Font.Bold = True
            Selection.Font.ColorIndex = 3
            End If
        Next i
    End With
    'Envoie de la valeur dans la cellule
    Sheets("Fiche de vie").Cells(2, 14) = Somme
    Sheets("Fiche de vie").Protect Password:="11009"
End Sub

[MarcelG]

Salut Izinoux,

Utiliser Select Case ne te dispense pas de gérer chaque occurence

Code :

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

1
2
Case ..
     If .....

ou bien (en intégrant un choix de cas dans un cas)

Code :

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

1
2
Case....
     Select Case...

C'est ici le cas pour les cellules de la 3ème colonne.

[iZinoux]

Donc ça donnerais plus quelque chose du genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Select Case True
            Case IsDate(Cells(i, 3))
                If IsDate(.Cells(i, 1)) And .Cells(i, 4) = 0 And .Cells(i, 3) - 15 > Now() Then
                Somme = Somme + 1
                End If
            Case .Cells(i, 3) = "NA"
                If IsDate(.Cells(i, 1)) And .Cells(i, 4) = 0 And .Cells(i, 3) = "NA" Then
                Somme = Somme + 1
                End If
            Case .Cells(i, 3) = "remp a ouv"
                If IsDate(.Cells(i, 1)) And .Cells(i, 4) = 0 And .Cells(i, 3) = "remp a ouv" Then
                Somme = Somme + 1
                End If
            End Select

Ce code me donne toujours rien dans ma cellule, elle reste vide.
Merci

[MarcelG]

Salut,

Tu répètes le test sur

.Cells(i, 3)

dans chaque cas!

Essaie plutôt

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
If IsDate(.Cells(i, 1)) And .Cells(i, 4).Value = 0 Then
 
        Select Case True
 
                    Case IsDate(Cells(i, 3))
                        Somme = Somme + 1
 
                    Case .Cells(i, 3) = "NA" Or (.Cells(i, 3) = "remp a ouv")
                        Somme = Somme + 1
 
        End Select
 
End If

Attention! 0 ne veut pas dire vide!