Formule excel
Résolu/Fermé
am59
Messages postés
19
Date d'inscription
mardi 13 janvier 2009
Statut
Membre
Dernière intervention
6 février 2009
-
6 févr. 2009 à 14:45
am59 Messages postés 19 Date d'inscription mardi 13 janvier 2009 Statut Membre Dernière intervention 6 février 2009 - 6 févr. 2009 à 15:41
am59 Messages postés 19 Date d'inscription mardi 13 janvier 2009 Statut Membre Dernière intervention 6 février 2009 - 6 févr. 2009 à 15:41
A voir également:
- Formule excel
- Formule excel pour additionner plusieurs cellules - Guide
- Formule excel - Guide
- Formule excel si et - Guide
- Formule moyenne excel - Guide
- Liste déroulante excel - Guide
2 réponses
biloue
Messages postés
82
Date d'inscription
jeudi 17 juin 2004
Statut
Membre
Dernière intervention
20 juillet 2011
7
6 févr. 2009 à 15:19
6 févr. 2009 à 15:19
Bonjour,
Il faut que tu fasse le calcul dans le script VBA que tu le mette dans une variable toto et que tu recopie la variable dans la cellule de ton choix.
Les modifications sont en gras
Dim CelDateNaissance As String
Dim DateNaissance As Long
Dim toto as integer
CelDateNaissance = Sheets("Application").cmbDateNaissance.Value
DateNaissance = Sheets("Lecteur").Cells.Range((CelDateNaissance & k))
MsgBox DateNaissance
Sheets("Statistiques").Select
MsgBox Int((Now() - DateNaissance) / 365.25 & k)
toto = Int((Now() - DateNaissance) / 365.25 & k)
Sheets("Statistiques").Cells.Range("BA" & k) = = toto
Bon courage
Biloue
Il faut que tu fasse le calcul dans le script VBA que tu le mette dans une variable toto et que tu recopie la variable dans la cellule de ton choix.
Les modifications sont en gras
Dim CelDateNaissance As String
Dim DateNaissance As Long
Dim toto as integer
CelDateNaissance = Sheets("Application").cmbDateNaissance.Value
DateNaissance = Sheets("Lecteur").Cells.Range((CelDateNaissance & k))
MsgBox DateNaissance
Sheets("Statistiques").Select
MsgBox Int((Now() - DateNaissance) / 365.25 & k)
toto = Int((Now() - DateNaissance) / 365.25 & k)
Sheets("Statistiques").Cells.Range("BA" & k) = = toto
Bon courage
Biloue
am59
Messages postés
19
Date d'inscription
mardi 13 janvier 2009
Statut
Membre
Dernière intervention
6 février 2009
2
6 févr. 2009 à 15:41
6 févr. 2009 à 15:41
Merci beaucoup pour ta réponse !!!
ça fonctionne nikel !!!
Balaise !!
@ bientot
am
ça fonctionne nikel !!!
Balaise !!
@ bientot
am