Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

incrémentation de dates

F

François

Guest
Bonjour à tous,

bon, je suis vraiment un tout jeune utilisateur de VBA et je voudrais réaliser une macro me permettant, après avoir rentrer une date, que dans une cellule le nombre de jours restant à parcourir s'affiche (avec la possibilté d'aller dans les négatifs).
Par exemple, je rentre dans une cellule la date du 10/01/2005, eh ben dans une cellule à coté apparaisse le nombre 4 si jamais on est le 06/01/2005.
et une fois la date dépassée, que ce nombre (donc négatif) s'affiche en rouge.
j'espere que j ai été assez clair, merci d'avance de vos conseils car ca commance à fumer !
 
T

tatiak

Guest
Bonsoir,
pas besoin de VBA pour cela
voir fichier joint
 

Pièces jointes

  • Francois.zip
    2.5 KB · Affichages: 15
  • Francois.zip
    2.5 KB · Affichages: 14
  • Francois.zip
    2.5 KB · Affichages: 12
C

ChTi'160

Guest
Salut"François"
un petit exemple de ce qui peut se faire
Private Sub Worksheet_Change(ByVal Target As Range)
Dim celDate As Date
celDate = Format(Date, "00000") 'CelDte variable Date aujourdhui au format numerique
If Not Intersect(Target, Range("C9")) Is Nothing Then 'celà ce passe en cellule C9
Range("C9") = Format(Range("C9"), "00000")'au format Numerique
Range("E9") = Format(Range("C9").Value - celDate) 'la cellule E9 est la difference de la date entrée et la date d'aujourdhui
End If
End Sub
à mettre dans Worksheet feuil1
A+++
Jean Marie
 

Discussions similaires

Réponses
4
Affichages
383
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…