Problème formule automatique quand la cellule est vide

[polska_diane]

Bonjour,
J'ai un problème lorsque je mets à jour mon fichier annuaire par le biais d'un formulaire qui va rechercher les données dans un listing, il bug sur le calcul des dates si les cellules de mon listing sont vides. Dans le sens de création d'une nouvelle fiche ma formule fonctionne bien mais pour une modification de fiche ça bug.
Je voudrai pouvoir préciser pour la modification : "si la textbox12 n'est pas vide alors faire le calcul sinon rien"
Voici mon code vba pour ce textbox en question:

Private Sub TextBox12_afterupdate()
TextBox84.Value = DateAdd("yyyy", 5, TextBox12.Value)
End Sub

merci pour votre aide.

 

[vgendron]

Hello

dans ta phrase

"si la textbox12 n'est pas vide alors faire le calcul sinon rien"

tu as, je pense, déjà la réponse..

Private Sub TextBox12_afterupdate()
if not TextBox12.Value is nothing then TextBox84.Value = DateAdd("yyyy", 5, TextBox12.Value)
End Sub

à tester

 

[polska_diane]

Hello

dans ta phrase
tu as, je pense, déjà la réponse..

Private Sub TextBox12_afterupdate()
if not TextBox12.Value is nothing then TextBox84.Value = DateAdd("yyyy", 5, TextBox12.Value)
End Sub

à tester

Merci pour ta réponse mais cela ne fonctionne pas...

 

[ERIC S]

Bonjour

en mettant un fichier exemple cela serait moins abstrait pour nous

qu-y a t'il dans textbox12 ? Sûr que c'est une date ? ...

 

[polska_diane]

Désolé mais je ne peux pas joindre le fichier.
Oui la textbox 12 contient une date ou pas quand la cellule est vide.

 

[ERIC S]

re

peut-être

Private Sub TextBox1_AfterUpdate()
If Not TextBox1.Value = "" Then
    TextBox2.Value = DateAdd("yyyy", 5, TextBox1.Value)
Else
    TextBox2.Value = ""
End If
End Sub

 

[ERIC S]

Re

pour info un fichier exemple cela se fait

 

[polska_diane]

merci bcp tout fonctionne maintenant !