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 :

Fonction Right et valeur de cellule [XL-2013]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Août 2017
    Messages
    16
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Maine et Loire (Pays de la Loire)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Finance

    Informations forums :
    Inscription : Août 2017
    Messages : 16
    Par défaut Fonction Right et valeur de cellule
    Bonjour,

    Je rencontre un probleme concernant ma function Right dans mon code.

    Ma colonne M contient des dates (format mm/jj/aaaa) qui sont directement extraites de Bloomberg (via une formule "=BDP("BBID Yellow Key";"NXT_CALL_DT")".

    Le code suivant vise a me renvoyer dans la colonne C les deux derniers chiffres (et donc l'année au format aa) de la date de la colonne M.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
     
    Sub Macro5()
    For k = 2 To 200
       Cells(k, 3).Value = Right(Cells(13, k).Value, 2)
    Next k
    End Sub
    Je n'obtiens toutefois a aucun moment la valeur choisie...

    Quelqu'un aurait-il une idée de la source de ce probleme?

    Merci d'avance

  2. #2
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Août 2017
    Messages
    16
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Maine et Loire (Pays de la Loire)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Finance

    Informations forums :
    Inscription : Août 2017
    Messages : 16
    Par défaut Avancement
    J'avance en tentant de contourner le probleme.

    J'utilise le code suivant pour copier uniquement la valeur, et non la formule, dans la colonne N.


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    Sub MacroPasteValue()
     
            Columns("M").Copy
                Columns("N").PasteSpecial Paste:=xlPasteValues
     
        For k = 2 To 200
            Cells(k, 3).Value = Right(Cells(14, k).Value, 2)
        Next k 
     
    End Sub
    Cependant, la macro me renvoit toujours des valeurs aléatoires (chiffres, lettres ou rien).
    Le probleme vient donc de l'utilisation de la function Right... Quelqu'un aurait-il une idée?

  3. #3
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Août 2017
    Messages
    16
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Maine et Loire (Pays de la Loire)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Finance

    Informations forums :
    Inscription : Août 2017
    Messages : 16
    Par défaut Solution
    J'avais betement inversé la colonne et la ligne dans la formule Right... Problem solved

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

Discussions similaires

  1. Réponses: 5
    Dernier message: 18/12/2014, 15h22
  2. Copie de x feuilles en fonction de x valeurs de cellules
    Par jtk77 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 28/02/2013, 09h01
  3. [XL-2003] Supprimer une ligne en fonction d'une valeur de cellule
    Par FCL31 dans le forum Macros et VBA Excel
    Réponses: 15
    Dernier message: 02/09/2009, 17h20
  4. [XL-2007] Extraire des lignes en fonction d'une valeur de cellule dans un autre fichier
    Par MisterTambo dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 19/08/2009, 10h42
  5. Réponses: 1
    Dernier message: 19/04/2007, 10h14

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