IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

problème date excel


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Futur Membre du Club
    Profil pro
    Inscrit en
    Janvier 2011
    Messages
    4
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2011
    Messages : 4
    Par défaut problème date excel
    Bonjour à tous.
    J'ai un problème avec un code visual basic sur Excel. J'ai fait un userform pour archiver des données, je veux que la date s'ajoute pour chaque opération. Cependant à chaque fois que je fais une nouvelle opération cela me change les dates de toute la colonne. Voici le code, voyez vous le problème?
    Merci d'avance.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    Sheets("Hist").Select
     
    Range("A4").Select
     
    Do
    If ActiveCell.Value = "" Then
    GoTo archive
    End If
     
    If ActiveCell.Value <> "" Then
    ActiveCell.Offset(1, 0).Select
    End If
     
    Loop Until ActiveCell.Value = ""
     
    archive:
    ActiveCell.Formula = "=TODAY()"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = ComboBox3.Value
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = ComboBox1.Value
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = ComboBox2.Value
    ActiveCell.Offset(0, 2).Select
    ActiveCell.Value = TextBox2.Value
     
    ComboBox1.Value = ""
    ComboBox2.Value = ""
    ComboBox3.Value = ""
    TextBox2.Value = ""

  2. #2
    pgz
    pgz est déconnecté
    Expert confirmé Avatar de pgz
    Homme Profil pro
    Développeur Office VBA
    Inscrit en
    Août 2005
    Messages
    3 692
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 72
    Localisation : France

    Informations professionnelles :
    Activité : Développeur Office VBA
    Secteur : Conseil

    Informations forums :
    Inscription : Août 2005
    Messages : 3 692
    Par défaut
    Bonjour.

    Si tu veux mémoriser la date du jour, tu dois écrire cette date en valeur, et non pas une formule qui sera réévaluée chaque jour!
    Donc
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    LaCellule.value = Date()
    Cordialement,

    PGZ

  3. #3
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    Et tu peux simplifier ton code sans les Select
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    Dim NewLig As Long
     
    With Sheets("Hist")
       NewLig = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 'NewLig première cellule vide de la colonne 1
       .Range("A" & NewLig) = Date
       .Range("B" & NewLig).Value = Me.ComboBox3.Value
       .Range("C" & NewLig).Value = Me.ComboBox1.Value
       .Range("D" & NewLig).Value = Me.ComboBox2.Value
       .Range("F" & NewLig).Value = Me.TextBox2.Value
    End With
    Me.ComboBox1.ListIndex = -1
    Me.ComboBox2.ListIndex = -1
    Me.ComboBox3.ListIndex = -1
    Me.TextBox2.Value = ""

  4. #4
    Futur Membre du Club
    Profil pro
    Inscrit en
    Janvier 2011
    Messages
    4
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2011
    Messages : 4
    Par défaut
    Merci pour vos réponses, je comprends bien ou vous voulez en venir avec la lourdeur des select, jvais faire comme vous le conseillez.

Discussions similaires

  1. [Débutant] Problèmes importation Excel avec dates
    Par lschneidpro dans le forum MATLAB
    Réponses: 12
    Dernier message: 18/06/2015, 08h25
  2. Import Excel dans Access, problème date et heure
    Par Car0le dans le forum Access
    Réponses: 1
    Dernier message: 20/01/2014, 12h17
  3. [Vxi3] Problème date excel => BO
    Par jibjib dans le forum Webi
    Réponses: 3
    Dernier message: 21/11/2011, 10h29
  4. [BO XI] Problème dates sous Excel
    Par Enthau dans le forum Deski
    Réponses: 10
    Dernier message: 24/07/2007, 11h08
  5. [MFC] [CRecordset] Problème avec Excel
    Par Yellowmat dans le forum MFC
    Réponses: 4
    Dernier message: 20/07/2005, 15h24

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo