Microsoft 365 Recherche critères par vba

[duplaly]

Bonjour
Je fais une recherche avec critères sous vba et je n'arrive pas à la faire pour prendre en compte les cellule avec (Accepted et Pending) en fonction de l'année.
Dans mon fichier joint, cela fonctionne avec seulement un critère (Accepted)
Merci de le regarder pour moi!

 

[job75]

Bonjour duplaly,

For Each c In plage
    If c = "Accepted" Then
        '---
    ElseIf c = "Pending" Then
        '---
    Else
        '---
    End If
Next

Attention à ne pas mettre d'espaces superflus dans plage.

A+

 

[duplaly]

Bonjour
Le code dans mon fichier me donne 3 informations qui sont:
les #semaines
nombre en 2024
nombre en 2025

 

[Dranreb]

Bonjour.
Essayez comme ça :

Sub Formules_Week_Accepted()
   If Worksheets("Accepted").Range("A3").value = "" Then Exit Sub
   Worksheets("Accepted").Range("B3:C" & Cells(Rows.Count, "A").End(xlUp).Row).FormulaR1C1 _
      = "=IFERROR(SUMPRODUCT((ann=R2C)*OR(cen=""Accepted"",cen=""Pending"")*(sem=RC1)),"""")"
   End Sub

 

[Dranreb]

Non, pas bon, rectifié :

Sub Formules_Week_Accepted()
   If Worksheets("Accepted").Range("A3").value = "" Then Exit Sub
   Worksheets("Accepted").Range("B3:C" & Cells(Rows.Count, "A").End(xlUp).Row).FormulaR1C1 _
      = "=IFERROR(SUMPRODUCT((ann=R2C)*((cen=""Accepted"")+(cen=""Pending""))*(sem=RC1)),"""")"
   End Sub