Conversion formule en VBA..
Résolu
julia Namor
Messages postés
524
Date d'inscription
Statut
Membre
Dernière intervention
-
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
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.
Merci de votre aide
je vous lie le fichier
http://www.cjoint.com/c/GIfiBBTQxqN
Cordialement
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
A voir également:
- Conversion formule en VBA..
- Formule si et - Guide
- Excel mise en forme conditionnelle formule - Guide
- Formule moyenne excel plusieurs colonnes - Guide
- Formule mathématique - Télécharger - Études & Formations
- Formule somme excel colonne - Guide
4 réponses
Bonjour,
Pour recopier la formule depuis C2 vers C1000 :
Ou pour l'écrire directement :
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"")))"
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
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