Discussion :

[Didpa]

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

[gFZT82]

Bonjour,

Essaie avec

Code :

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

C(1, 3).FormulaR1C1 = "=IF(WEEKDAY(RC4,2)=7,""Dimanche"",IF(ISNA(VLOOKUP(RC[1],JoursFerie,1,FALSE)),""Normal"",""Férié""))"

Cordialement.

[Didpa]

Merci