Actualité informatique
Test comparatif matériel informatique
Jeux vidéo
Astuces informatique
Vidéo
Télécharger
Services en ligne
Forum informatique
01Business

|-  LOGICIELS


|||-  

question excel

 

2 utilisateurs anonymes et 84 utilisateurs inconnus
Ajouter une réponse
 

 
Page photos
 
 Mot :  Pseudo :  
Vider la liste des messages à citer
 
 Page :
1
Auteur
 Sujet :

question excel

Prévenir les modérateurs en cas d'abus 
tha-pound
Tu cartonnes ! (de 500 à 999 messages postés)
  1. Posté le 09/11/2001 à 21:09:16  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
voilà, j'aimerais trouvé une formule qui me dit le nombre de jour de aujourdhui au 15janvier 2002
 
 J'ai fais 15/01/2002 - aujourdhui() mais sa marche po  :(  
 
 on fait comment ???

rimbaud
Bébé forumeur (De 10 à 49 messages postés)
  1. Posté le 09/11/2001 à 21:42:05  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Une date moins une date = une date, donc tu dois formater ta cellule en "Nombre", ça donne 25696 - 25800 = le nombre de jour (pour excel une date c'est un nombre par rapport à 1 qui est le 01/01/00 ) voilà de quoi t'amuser avec du vb, une bonne dose... c'est encore plus amusant que de formater une cellule
 
 Sub nbr_jour()
 On Error GoTo nbjou
 jan = Date
 bk1: dates = InputBox("Tapez la date depuis laquelle vous voulez déterminer le nombre de jours écoulés ou à venir ( Ex : 05-07-1987 ) :", "Jours écoulés et à venir...", " Une date ?" )
 If dates = "" Then Exit Sub
 dates1 = dates
 sel_date
 If Not IsDate(dates) Then
 MsgBox "Tapez une date entre le 1 er Janvier 100 et le 31 Décembre 9999.( Vous avez tapé " & dates1 & " )", 16, "Jours écoulés et à venir..."
 GoTo bk1
 Exit Sub
 End If
 moisnum = (Mid(dates, 4, 2))
 journum = (Left(dates, 2))
 tilu = Len(Mid(dates, 7, 7))
 If tilu < 3 Or tilu > 4 Then
 MsgBox "Tapez une date entre le 1 er Janvier 100 et le 31 Décembre 9999.( Vous avez tapé " & dates1 & " )", 16, "Jours écoulés et à venir..."
 GoTo bk1
 Exit Sub
 End If
 If tilu = 3 Then anneenum = (Right(dates, 3))
 If tilu = 4 Then anneenum = (Right(dates, 4))
 If journum > 31 Or moisnum > 12 Then
 If journum > 31 Then MsgBox "Revoir votre date. Plus de 31 jours. ( Vous avez tapé " & dates1 & " )", 16, "Jours écoulés ou à venir..."
 If moisnum > 12 Then MsgBox "Revoir votre date. Seulement douze mois !!( Vous avez tapé " & dates1 & " )", 16, "Jours écoulés ou à venir..."
 GoTo bk1
 End If
 joursemain = DateSerial(anneenum, moisnum, journum)
 luti = Len(Left(dates, 12))
 If luti < 9 Or luti > 10 Then
 MsgBox "Tapez une date entre le 1 er Janvier 100 et le 31 Décembre 9999.( Vous avez tapé " & dates1 & " )", 16, "Jours écoulés ou à venir..."
 GoTo bk1
 Exit Sub
 End If
 If joursemain > Date Then
 MsgBox "Il reste " & (joursemain - jan) & " jours avant le " & dates & ".", 64, "Jours écoulés ou à venir..."
 Exit Sub
 End If
 MsgBox "Le nombre de jours écoulés depuis le " & dates & " est " & (jan - joursemain) & ".", 64, "Jours écoulés"
 Exit Sub
 nbjou: MsgBox "Inscrivez une date. Ex : 29-08-1959 ( Vous avez tapé " & dates1 & " )", 16, "Jours écoulés ou à venir..."
 End Sub

(Publicité)
duke41
Présent de temps en temps (De 50 à 99 messages postés)
  1. Posté le 09/11/2001 à 23:39:12  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 

Tha Pound a écrit :

voilà, j'aimerais trouvé une formule qui me dit le nombre de jour de aujourdhui au 15janvier 2002
 
 J'ai fais 15/01/2002 - aujourdhui() mais sa marche po  :(  
 
 on fait comment ???  
 



 Il te faut formater que la cellule où sera affiché le résultat.
 Format
 Nombre
 décimale 0

tha-pound
Tu cartonnes ! (de 500 à 999 messages postés)
  1. Posté le 10/11/2001 à 13:15:50  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 

Rimbaud a écrit :

Une date moins une date = une date, donc tu dois formater ta cellule en "Nombre", ça donne 25696 - 25800 = le nombre de jour (pour excel une date c'est un nombre par rapport à 1 qui est le 01/01/00 ) voilà de quoi t'amuser avec du vb, une bonne dose... c'est encore plus amusant que de formater une cellule
 
 Sub nbr_jour()
 On Error GoTo nbjou
 jan = Date
 bk1: dates = InputBox("Tapez la date depuis laquelle vous voulez déterminer le nombre de jours écoulés ou à venir ( Ex : 05-07-1987 ) :", "Jours écoulés et à venir...", " Une date ?" )
 If dates = "" Then Exit Sub
 dates1 = dates
 sel_date
 If Not IsDate(dates) Then
 MsgBox "Tapez une date entre le 1 er Janvier 100 et le 31 Décembre 9999.( Vous avez tapé " & dates1 & " )", 16, "Jours écoulés et à venir..."
 GoTo bk1
 Exit Sub
 End If
 moisnum = (Mid(dates, 4, 2))
 journum = (Left(dates, 2))
 tilu = Len(Mid(dates, 7, 7))
 If tilu < 3 Or tilu > 4 Then
 MsgBox "Tapez une date entre le 1 er Janvier 100 et le 31 Décembre 9999.( Vous avez tapé " & dates1 & " )", 16, "Jours écoulés et à venir..."
 GoTo bk1
 Exit Sub
 End If
 If tilu = 3 Then anneenum = (Right(dates, 3))
 If tilu = 4 Then anneenum = (Right(dates, 4))
 If journum > 31 Or moisnum > 12 Then
 If journum > 31 Then MsgBox "Revoir votre date. Plus de 31 jours. ( Vous avez tapé " & dates1 & " )", 16, "Jours écoulés ou à venir..."
 If moisnum > 12 Then MsgBox "Revoir votre date. Seulement douze mois !!( Vous avez tapé " & dates1 & " )", 16, "Jours écoulés ou à venir..."
 GoTo bk1
 End If
 joursemain = DateSerial(anneenum, moisnum, journum)
 luti = Len(Left(dates, 12))
 If luti < 9 Or luti > 10 Then
 MsgBox "Tapez une date entre le 1 er Janvier 100 et le 31 Décembre 9999.( Vous avez tapé " & dates1 & " )", 16, "Jours écoulés ou à venir..."
 GoTo bk1
 Exit Sub
 End If
 If joursemain > Date Then
 MsgBox "Il reste " & (joursemain - jan) & " jours avant le " & dates & ".", 64, "Jours écoulés ou à venir..."
 Exit Sub
 End If
 MsgBox "Le nombre de jours écoulés depuis le " & dates & " est " & (jan - joursemain) & ".", 64, "Jours écoulés"
 Exit Sub
 nbjou: MsgBox "Inscrivez une date. Ex : 29-08-1959 ( Vous avez tapé " & dates1 & " )", 16, "Jours écoulés ou à venir..."
 End Sub  
 



 waaaaaaaaaaaa dis donc tous ca pour une formule de date.... moi je voulais me mettre au vb mais je sais pas si c'est compliiqué vu que j'ai aucune notion de program.

num
  1. Posté le 10/11/2001 à 15:46:03  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
cellules a1 & b1 au format date xx/xx/xx
 a1: 15/01/2002      b1: =AUJOURDHUI()  
 cellule c1 au format standard ou nombre sans décimale
 c1: =+a1-b1     pour le nombre de jours restant

=+a1-b1+1   pour une période donnée

(Publicité)
 Page :
1

Aller à :
 

Sujets relatifs
Excel vba question sur une M.A.J windows update (résolu).
Question antivirus ... Question sur le Poste de Travail
question sur le bloc note question à la redaction de Microhebdo
[ Annuler question en double]Utliser le flux réseau sur VLC Question au sujet de Norton Ghost [RÉSOLU]
Question à yapaksa à propos de PocketDivXEncoder. Question à yapaksa à propos de PocketDivxEncoder
Plus de sujets relatifs à : question excel

Les 5 sujets de discussion précédents Nombre de réponses Dernier message
comment enlever... 7
recherche log ! 7
winzip ou winace ??? le quel est le meilleur 9
ou trouver neodivx 1
il faut mettre au kel format les divx pour que ca passe sur la play2 1