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

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

Merci d’avance pour votre aide

[Bob78280]

J'avoue ne pas bien comprendre ce que tu veux.
Tu as un onglet avec la liste des pays et un onglet avec une liste de date (colonne C, indiquant si c'est férié ou pas).

Tu veux avoir pour chaque pays le nombre de jours fériés définis dans le second onglet?

[sogedic]

Tu as 2 "copie" mais pas de "coller

et

Code :

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

1
2
3
If .Cells(Ligne, 1).Value = "FR" Then
.Cells(Ligne, 16).EntireRow.Copy
NumLig = NumLig + 1

est en dehors du Loop

Tu peux revoir ta copie

[Rania1990]

Merci Sogedic