Bonjour

Voilà, j'ai une formule qui s'applique à la colonne D et qui est rentré en C
=SI(JOURSEM($D3;2)=7;"Dimanche";SI(ESTNA(RECHERCHE V(D3;JoursFerie;1;FAUX));"";"Férié"))
Comment puis je adapté cette formule en VBA, car celle que j'ai écrit me renvois Faux a chaque fois.de plus par rapport à l'exemple j'ai rajouté " SI(JOURSEM($D3;2)=7;"Dimanche";



Code :


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
Private Sub CB_OK_Click()
 
With Sheets("base de donnees")
 
             Set c = .Range("A" & .Cells(.Rows.Count, 1).End(xlUp).Row)(2)
 
            'y mettre le nom
             c.Value = CDec(TB_Annee)
             c(1, 2) = CDec(Lab_Mois) & "/" & CDec(TB_Jour) & "/" & CDec(TB_Annee)
             c(1, 4) = CDec(Lab_Mois) & "/" & CDec(TB_Jour) & "/" & CDec(TB_Annee)
 
            c(1, 3) = "=IF(ISNA(VLOOKUP(RC[1]),JoursFerie,1,FALSE)),""Normal"",""Férié"")"
 
            If Lab_Nom = "" Then
             MsgBox "Veuillez sélectionner un Nom"
             Else
             c(1, 5) = Lab_Nom
             End If
 End With
 
 End Sub
Voilà, ceci est la première chose.

Merci

Didier