Formule qui permet d'ajouter 42 à une date dans un TextBox

Bonsoir à toutes et tous,

Récemment, Eriiic m'avait donné une solution pour régler mon problème sur une feuille excel

Le même problème se répète avec deux TextBox au lieu de deux cellules.

Dans le 1ER TBDatePédicure, la date du jour,

dans le 2ème TBProchaine Pédicure : la date du 1er plus 42 jours.

j'ai essayé avec TB.Value mais cela ne marche pas

Dans l'attente d'une aide précieuse, un grand merci a tous ceux qui pourront m'aider, j'ai juste besoin d'une ligne de code

amicalement

Pierrot

Bonsoir

TBProchaine Pédicure.Value = CDate(TBDatePédicure.Value) + 42

A tester

Merci pour ta réponse, mais rien ne s'affiche dans le 2ème TBProchaine Pédicure

Amicalement

Pierrot

Re

Regarde

24cappepierre.xlsm (15.83 Ko)

ou alors en tapant ta date dans ce cas mettre seulement

Private Sub TBDatePédicure_AfterUpdate()
    TBProchaine_Pédicure = CDate(TBDatePédicure) + 42
End Sub

Ta dernière solution fonctionne bien et me permet d'entrer la date souhaitée mais après sauvegarde des données, la date de départ revient à la date du jour et la date + 42 à disparut

Je t'envoie tout le fichier, si tu as le temps, moi, à 77 ans j'arrête

Un gros merci pour ton aide

amicalement

Pierrot

13pedicure-cp002.xlsm (117.81 Ko)

Bonjour

Teste avec mes corrections. J'ai rajouté deux colonnes (M & N) pour la mémorisation des dates

A l'ouverture la date du jour et la dateprévision ( + 42) s'affichent

si modif ou recherche, les valeurs se modifient suivant la modif de la date du jour ou sur recherche d'une personne

40cappepierre.xlsm (74.53 Ko)

Bonjour, M12,

c'est parfait, le tout fonctionne parfaitement

mais je souhaiterais la TBDatePédicure reste vièrge, quoique on sache la modifier sur place

Je vais tenter avec un DTPicker

merci pour tout ce que tu as fais

Bonne journée et à charge de revanche

Amitiés

Pierrot

Rechercher des sujets similaires à "formule qui permet ajouter date textbox"