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 :

Sauvegarder valeur au lieu de la formule - Userform [XL-2013]


Sujet :

Macros et VBA Excel

  1. #1
    Membre à l'essai
    Homme Profil pro
    Analyste d'exploitation
    Inscrit en
    Avril 2018
    Messages
    39
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 47
    Localisation : Canada

    Informations professionnelles :
    Activité : Analyste d'exploitation

    Informations forums :
    Inscription : Avril 2018
    Messages : 39
    Points : 15
    Points
    15
    Par défaut Sauvegarder valeur au lieu de la formule - Userform
    Bonjour,
    J'ai créé un formulaire, certains champs sont des formules, exemple:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    ActiveCell.Value = "=ROW(RC[1])"
    Mon problème est que lorsque j'enregistre, il enregistre la formule et pas la valeur, j'aimerai enregistré la valeur seulement. mais je ne sais pas comment.

    Merci pour votre aide!

  2. #2
    Membre confirmé
    Homme Profil pro
    Responsable des études(en disponibilité)
    Inscrit en
    Juin 2007
    Messages
    365
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Responsable des études(en disponibilité)
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 365
    Points : 631
    Points
    631
    Par défaut
    Bonjour:

    Par exemple

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    ActiveCell.Value = "=ROW(RC[1])"
    ActiveCell.Value = ActiveCell.Value
    ou directement

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    ActiveCell.Value = ActiveCell.Row

  3. #3
    Expert éminent sénior 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
    Points : 31 877
    Points
    31 877
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    With ActiveCell
        .FormulaR1C1 = "=ROW(RC[1])"
        .Value = .Value
    End With
    Ou simplement pour ton cas
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    ActiveCell.Value = ActiveCell.Row
    Cordialement.
    J'utilise toujours le point comme séparateur décimal dans mes tests.

  4. #4
    Membre à l'essai
    Homme Profil pro
    Analyste d'exploitation
    Inscrit en
    Avril 2018
    Messages
    39
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 47
    Localisation : Canada

    Informations professionnelles :
    Activité : Analyste d'exploitation

    Informations forums :
    Inscription : Avril 2018
    Messages : 39
    Points : 15
    Points
    15
    Par défaut
    Merci!
    Je cherchait une solution dans la même ligne de code, c'est aussi simple que ça

    Merci encore Bonne journée,


    Citation Envoyé par a_diard Voir le message
    Bonjour:

    Par exemple

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    ActiveCell.Value = "=ROW(RC[1])"
    ActiveCell.Value = ActiveCell.Value

  5. #5
    Membre à l'essai
    Homme Profil pro
    Analyste d'exploitation
    Inscrit en
    Avril 2018
    Messages
    39
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 47
    Localisation : Canada

    Informations professionnelles :
    Activité : Analyste d'exploitation

    Informations forums :
    Inscription : Avril 2018
    Messages : 39
    Points : 15
    Points
    15
    Par défaut
    Merci,
    Bonne journée,

    Citation Envoyé par mercatog Voir le message
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    With ActiveCell
        .FormulaR1C1 = "=ROW(RC[1])"
        .Value = .Value
    End With
    Ou simplement pour ton cas
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    ActiveCell.Value = ActiveCell.Row

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [Débutant] Sauvegarde valeurs dans boucle
    Par tnb_neb dans le forum MATLAB
    Réponses: 3
    Dernier message: 11/04/2008, 16h06
  2. Réponses: 2
    Dernier message: 15/10/2007, 13h28
  3. Sauvegarde valeur en jsf
    Par stephane92400 dans le forum JSF
    Réponses: 7
    Dernier message: 14/08/2007, 13h57
  4. Renvoi a la valeur plutot qu a une formule
    Par nicoroth dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 10/07/2007, 19h09
  5. [VBA Excel] sauvegarde avec le contenu de la formule
    Par comme de bien entendu dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 26/07/2006, 16h19

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