VBA - Problème de formule.
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:
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
