VBA - Problème de formule.

[Didier972]

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(RECHERCHEV(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";

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

 

[Fred0o]

Re : VBA - Problème de formule.

Bonsoir Didier,

Voici la formule si tu veux par exemple qu'elle s'applique sur la plage C3:C20 :

[C3:C20] = "=IF(WEEKDAY(RC4,2)=7,""Dimanche"",IF(ISNA(VLOOKUP(RC[1],JoursFerie,1,FALSE)),"""",""Férié""))"

A+

 

[Didier972]

Re : VBA - Problème de formule.

Merci, pour ton aide, voilà ce que cela donne

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

 

[Fred0o]

Re : VBA - Problème de formule.

Bonjour,

Je ne comprends pas ta réponse. Est-ce cela que tu attendais ?

J'ai testé chez moi et cela fonctionne. Cela fonctionne-t-il chez toi ? tu ne le dis pas.

A+