Discussion :

[Rania1990]

Bonjour tout le monde,

J'ai besoin de filtrer la ligne des pays et que pour chaque pays on cherche les jours fériés dans une autre feuille (1 : si jour ouvré , 0 si jour férié ), en utilisant do while loop et nb.si.ens. je suis perdue, je n'ai pas su comment utiliser les deux

Exemple:

PAYS:
UK
FR
FR
ES
FR
PT
FR

PAYS:	Date
FR	15/08/2018	0
FR	16/08/2018	1
FR
FR

Merci beaucoup

J'ai tenté ce code mais il me manque quelque chose..

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
Sub Macro1()
Dim i As Integer: Dim drLig As Long
 
    Rows("3:3").Select
    Selection.AutoFilter
    ActiveSheet.range("$A$3:$DN$2434").AutoFilter Field:=1, Criteria1:="FR"
    Ligne = 4
    Do While range("_FilterDataBase").Rows(Ligne).Hidden
    Ligne = Ligne + 1
    range("_FilterDataBase").Cells(Ligne, 16).Select
    ActiveCell.FormulaR1C1 = _
        "=1-COUNTIFS(BankHolidays!C3,Data!R2C[-42],BankHolidays!C2,Data!RC1)"
    range("_FilterDataBase").Cells(Ligne, 16).Select
    Selection.Copy
    drcol = Cells(16, Cells.Columns.Count).End(xlToRight).Select
 
    Loop
 
 
    If .Cells(Ligne, 1).Value = "FR" Then
    .Cells(Ligne, 16).EntireRow.Copy
    NumLig = NumLig + 1
    End If
    End Sub

[Rania1990]

Aucune réponse ??