[AIDE] Macro commande De date sous excel

Résolu

ribery_7_91 Messages postés 240 Statut Membre -
ribery_7_91 Messages postés 240 Statut Membre - 10 juin 2008 à 14:48

Bonjour à tous
Je suis etudiant en BTS Informatique et je suis en stage ou je dois faire différentes choses sous excel et la j'ai un petit probléme. Je vous explique
Dans une base de donnée la personne qui a rentré la date l'a rentré comme ça : ( ce que j'ai dans la cellule )
60201 en fait correpond au 01/02/2006 donc voila ce que je voudrais faire

diviser ce chiffre par 10000 ce qui donne 6.0201
je garde uniquement la partie entiére ici 6
je lui rajoute 2000 et la j'ai l'année => 2006
ensuite je reprends le 6 et je le mulitplie par 10000 ce qui me donne 60000
je récupére mon chiffre du début (60201) et je lui soustrait 60000
il me reste donc 201
je divise 201 par cent il me reste 2.01
je garde uniquement la partie entiére ici 2 ce qui correspond au mois => fevrier = 2eme mois
ensuite je reprends le 2 et je le mulitplie par 100 ce qui me donne 200
je fais 201 moins 200 et la il me reste 1 ce qui correspond au premier jour du mois

J'éspére que je me suis bien expliqué. Je souhaite faire une macro qui me ferait ça mais je ne sais pas comment faire alors si vous avez une idée ou si méme vous pouvez me faire cette macro ça serait cool
Merci a tous

Configuration: Windows XP
Firefox 2.0.0.14

Afficher la suite

9 réponses

Réponse 1 / 9
onesdf Messages postés 375 Date d'inscription Statut Membre Dernière intervention 120

Pas de date antérieure à 2000 ?
0

ribery_7_91 Messages postés 240 Statut Membre 16

non je ne pense pas
on va considérer sue non
si tu peux m'aider pour toutes les dates aprés 2000 ça serait deja cool et sa me donnerais une idée
je te remercie

onesdf Messages postés 375 Date d'inscription Statut Membre Dernière intervention 120

Essaies ca :

    'Cellule Supposée en A1, sinon changer ligne = colonne
    ligne = 1
    colonne = 1
    Do While Not (IsEmpty(Cells(ligne, colonne)))
        annee = 2000 + Int(Cells(ligne, colonne).Value / 10000)
        mois = Int((Cells(ligne, colonne).Value - 60000) / 100)
        Jour = Cells(ligne, colonne).Value - 60000 - 100 * mois
        If mois < 10 Then mois = "0" & mois
        If Jour < 10 Then Jour = "0" & Jour
        NouvelleDate = Jour & "/" & mois & "/" & annee
        ' DECOMMENTER LA LIGNE SUIVANTE POUR AFFICHAGE SEULEMENT
        'MsgBox NouvelleDate
        
        ' DECOMMENTER LA LIGNE SUIVANT POUR METTRE LE RESULTAT EN COLONNE B
        'Cells(ligne, colonne + 1).Value = CDate(NouvelleDate)
        ligne = ligne + 1
    Loop

onesdf Messages postés 375 Date d'inscription Statut Membre Dernière intervention 120 > onesdf Messages postés 375 Date d'inscription Statut Membre Dernière intervention

Tu lances l'éditeur Visual Basic (Outils, Macro, Visual Basic Editor ou ALT + F11)

Une fois l'éditeur lancé tu fais Insertion, Module

Et tu y copies le code suivant :

Sub ChangeDate()
    'Cellule Supposée en A1, sinon changer ligne + colonne
    ligne = 1
    colonne = 1
    Do While Not (IsEmpty(Cells(ligne, colonne)))
        annee = 2000 + Int(Cells(ligne, colonne).Value / 10000)
        mois = Int((Cells(ligne, colonne).Value - 60000) / 100)
        Jour = Cells(ligne, colonne).Value - 60000 - 100 * mois
        If mois < 10 Then mois = "0" & mois
        If Jour < 10 Then Jour = "0" & Jour
        NouvelleDate = Jour & "/" & mois & "/" & annee
        ' DECOMMENTER LA LIGNE SUIVANTE POUR AFFICHAGE SEULEMENT
        'MsgBox NouvelleDate
        
        ' DECOMMENTER LA LIGNE SUIVANT POUR METTRE LE RESULTAT EN COLONNE B
        'Cells(ligne, colonne + 1).Value = CDate(NouvelleDate)
        ligne = ligne + 1
    Loop
End Sub

Tu peux ensuite exécuter la macro en faisant Outils, Macro, Macros ... ou ALT + F8

Réponse 3 / 9
ribery_7_91 Messages postés 240 Statut Membre 16

mais sa j'en fais quoi
je l'affecte à une cellule??
0
Réponse 4 / 9
ribery_7_91 Messages postés 240 Statut Membre 16

je ne sais pas comment faire pour l'executer
je suis novice et j'ai office 2007
je met le chiffre 60201 dans une cellule et je fais quoi aprés??
0
1. onesdf Messages postés 375 Date d'inscription Statut Membre Dernière intervention 120
  
  Je n'ai pas Office 2007, mais on doit pouvoir y arriver malgré tout, qu'a tu réussi à faire pour le moment ?
  
  0
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Réponse 5 / 9
ribery_7_91 Messages postés 240 Statut Membre 16

Pour le moment j'ai reussi a creer la macro mais je n'arrive pas a l'affecter a une cellule pour qu'elle me convertisse mon chiffre
j'ai mis 60201 dans une cellule maintenant je dois faire quoi pour que ça convertisse cette valeur??
0
1. onesdf Messages postés 375 Date d'inscription Statut Membre Dernière intervention 120
  
  Donc tu as copié la macro dans un nouveau module dans l'editeur Visual Basic, tu dois maintenant y décommenter une des deux lignes (ou les deux) en enlevant l'apostrophe parmi :
  
  ' DECOMMENTER LA LIGNE SUIVANTE POUR AFFICHAGE SEULEMENT
  'MsgBox NouvelleDate
  
  ' DECOMMENTER LA LIGNE SUIVANT POUR METTRE LE RESULTAT EN COLONNE B
  'Cells(ligne, colonne + 1).Value = CDate(NouvelleDate)
  
  La premiere commande affiche une boite de dialogue, la seconde transforme la date au format 60201 (de la colonne A) au format date en colonne B
  
  Une fois le commentaire supprimé, tu appuies simultanément sur ALT et F8 , tu sélectionnes la macro ChangeDate et tu cliques sur Executer
  
  0
Réponse 6 / 9
ribery_7_91 Messages postés 240 Statut Membre 16

c'est bon ça marche
merci
par contre une autre question
je voudrais faire ça pour toute une colonne et je voudrais que la date qui se "transforme" remplace l'ancinne dans la même cellule
comment faire???
0
1. onesdf Messages postés 375 Date d'inscription Statut Membre Dernière intervention 120
  
  Ca le fait déjà pour toute une colonne grâce à une boucle
  
  Do While Not(Isempty(Cells(ligne,colonne))) ' Tant que la cellule qui a pour numéro de ligne Ligne et pour une numéro de colonne Colonne n'est pas vide
  
  'Ici le code à executer
  Ligne = Ligne + 1 ' On incrémente Ligne pour pouvoir sauter de ligne
  Loop
  
  Pour remplacer la date dans la même cellule que celle d'origine, il suffit de remplacer
  
  Cells(ligne, colonne + 1).Value = CDate(NouvelleDate)
  
  par
  
  Cells(ligne, colonne).Value = CDate(NouvelleDate)
  
  0
Réponse 7 / 9
ribery_7_91 Messages postés 240 Statut Membre 16

Quand je mets dans une cellule
80201 par exemple il me met qu'il y a une erreur
il me souligne en jaune cette ligne
Cells(ligne, colonne + 1).Value = CDate(NouvelleDate)
pourquoi??
parce que il peut y avoir des dates différentes dans chaque cellule
0
1. onesdf Messages postés 375 Date d'inscription Statut Membre Dernière intervention 120
  
  Parce que j'avais bêtement recopié ton exemple (Retirer 60000) à la cellule, ca fonctionnait pour 2006, mais plus pour les autres :
  
  Lignes corrigées :
  
  Mois = Int((Cells(ligne, colonne).Value - (Annee - 2000) * 10000) / 100)
  Jour = Cells(ligne, colonne).Value - (Annee - 2000) * 10000 - 100 * Mois
  
  0
Réponse 8 / 9
ribery_7_91 Messages postés 240 Statut Membre 16

sa marche merci
par contre est ce que tu serais d'accord pour m'aider si j'ai besoin d'aide encore car je suis novice dans les macros et tout ça
si sa te dit laisse moi un MP ou un message ici
merci je pense que sa serait plus simple par mail
0
1. onesdf Messages postés 375 Date d'inscription Statut Membre Dernière intervention 120
  
  Autant que tu laisses un message sur ce forum, si je suis dispo je pourrais t'aider, sinon un autre le fera.
  
  Faut pas oublier que nous aussi on a un boulot ...
  
  0
Réponse 9 / 9
ribery_7_91 Messages postés 240 Statut Membre 16

merci quand méme
je met ce sujet resolu si j'ai un autre probléme je posterais un autre message
merci
0

[AIDE] Macro commande De date sous excel

9 réponses

Discussions similaires

Newsletters