Aide à la saisie d’une date

[lanoe]

Bonjour,

Je cherche une aide à la saisie des informations :

Admettons que la date d’aujourd’hui soit le 15/10 : si je saisie 16 Excel doit inscrire 16/10/07 (la pas de problème) si j’inscris 10 Excel doit inscrire 10/11/07, en claire si le date du jours est passé il doit inscrire la date plus un mois (uniquement dans la colonne H).

Merci d'avance
Lanoe

 

[Excel-lent]

Re : Aide à la saisie d’une date

Bonjour Lanoe,

Voici un début de solution en VBA :
(solution correspondant le plus à ta question)

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
  
Dim Jrs As Integer
  
  If Target.Column = 8 Then Cells(Target.Row, Target.Column) = Jrs
       If Jrs <= [COLOR="Magenta"][I]JOUR(AUJOURDHUI())[/I][/COLOR] Then
       [COLOR="Magenta"][I]DATE(ANNEE(AUJOURDHUI());MOIS(AUJOURDHUI()+1);A5)[/I][/COLOR]
       Else: [COLOR="Magenta"][I]DATE(ANNEE(AUJOURDHUI());MOIS(AUJOURDHUI());A5))[/I][/COLOR]
       End If
   End If

End Sub

Remplacer les formules en magenta+italique en language VBA

Code à placer sur ta feuille (et non pas dans "module")

Solution complète en formule :
(a mettre en [H1])

=SI([COLOR="Magenta"][B]A1[/B][/COLOR]<JOUR(AUJOURDHUI());DATE(ANNEE(AUJOURDHUI());MOIS(AUJOURDHUI()+1);[COLOR="Magenta"][B]A1[/B][/COLOR]);DATE(ANNEE(AUJOURDHUI());MOIS(AUJOURDHUI());[COLOR="Magenta"][B]A1[/B][/COLOR]))

[A1] cellule où l'on saisit le nombre
[H1] la cellule on s'écrit la date voulu

 

[lanoe]

Re : Aide à la saisie d’une date

Bonjour,

Le code VBA de Excel-lent me conviendrais malheureusement je n'a pas les compétences pour le finir...merci por votre aide...

Lanoe