Conversion formule en VBA.. Résolu

Question

Bonjour chers tous
une fois de plus je reviens solliciter votre aide. 
Je souhaiterai convertir cette formule en VBA pour l'appliquer sur toute une colonne.
=SI($A3>DATE(C$1;12;31);"absent";SI($B3="";"present";SI(C$1<=ANNEE($B3);"present";"absent"))
Merci de votre aide
je vous lie le fichier 
http://www.cjoint.com/c/GIfiBBTQxqN
Cordialement




Configuration: Windows / Firefox 55.0

ccm81 · Answer

Bonjour

http://www.cjoint.com/c/GIfnGHaCrDB

Cdlmnt

Patrice33740 · Answer

Bonjour,

Pour recopier la formule depuis C2 vers C1000 :
With Worksheets("Feuil1")
  .Range("C2").AutoFill Destination:=.Range("C2:C1000")
End With 
Ou pour l'écrire directement :
Worksheets("Feuil1").Range("C2:C1000").FormulaR1C1 = _
  "=IF(RC1>DATE(R1C,12,31),""absent"",IF(RC2="""",""present""," & _
  "IF(R1C<=YEAR(RC2),""present"",""absent"")))"

julia Namor · Answer

Bonjour

 C'est tout ce qu'il me fallait  Ça frôle la perfection mon cher ccm81. 
Reste plus qu'a l'adapter a mon travail.
Merci Patrice , mais mon souhait n'était pas de "coller" les formules par VBA. 

Bien merci à vous deux .

Bien cordialement

ccm81 · Answer

De rien

Si tu as beaucoup de lignes, tu peux ajouter un
Application.ScreenUpdating = False
en début de code (après les déclarations de variables)

Si c'est fini, peux tu mettre le sujet à résolu (en dessous du titre de ton premier message)

Cdlmnt

Conversion formule en VBA..

4 réponses

Votre réponse

Discussions similaires