Problème formule automatique quand la cellule est vide

polska_diane · 4 Janvier 2017

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 · 4 Janvier 2017

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..

VB:

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

à tester

polska_diane · 4 Janvier 2017

vgendron à dit:
Hello

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

VB:

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 · 4 Janvier 2017

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 · 4 Janvier 2017

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 · 4 Janvier 2017

re

peut-être

Code:

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 · 4 Janvier 2017

Re

pour info un fichier exemple cela se fait

polska_diane · 8 Janvier 2017

merci bcp tout fonctionne maintenant !

Problème formule automatique quand la cellule est vide

polska_diane

XLDnaute Nouveau

vgendron

XLDnaute Barbatruc

polska_diane

XLDnaute Nouveau

ERIC S

XLDnaute Barbatruc

polska_diane

XLDnaute Nouveau

ERIC S

XLDnaute Barbatruc

ERIC S

XLDnaute Barbatruc

Pièces jointes

polska_diane

XLDnaute Nouveau

Discussions similaires