Bonjour,
Lors de la validation d'une UF, je souhaite qu'une cellule de ma base soit mise à jour avec la formule suivante :
ActiveCell.Offset(0, 1).Value = DateMariage.Value
ActiveCell.Offset(0, 2).Value = (DROITE(DateMariage.Value;4)&"/"&STXT(DateMariage.Value;4;2)&"/"&GAUCHE(DateMariage.Value;2))
Or, si la formule marche manuellement dans le tableau excel
=(DROITE(B13;4)&"/"&STXT(B13;4;2)&"/"&GAUCHE(B13;2))
Elle ne fonctionne pas dans le VBA. Où est mon erreur ?
D'avance merci pour votre aide
Lisa
Lors de la validation d'une UF, je souhaite qu'une cellule de ma base soit mise à jour avec la formule suivante :
ActiveCell.Offset(0, 1).Value = DateMariage.Value
ActiveCell.Offset(0, 2).Value = (DROITE(DateMariage.Value;4)&"/"&STXT(DateMariage.Value;4;2)&"/"&GAUCHE(DateMariage.Value;2))
Or, si la formule marche manuellement dans le tableau excel
=(DROITE(B13;4)&"/"&STXT(B13;4;2)&"/"&GAUCHE(B13;2))
Elle ne fonctionne pas dans le VBA. Où est mon erreur ?
D'avance merci pour votre aide
Lisa