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

  1. #1
    Candidat au Club
    Obtenir format cellules pour ensuite afficher (CAD ou USD) dans d'autres
    Salut,

    Je souhaite savoir si les cellules dans la "colonne x" sont en

    • CAD -> _ * #,##0.00_) [$CAD]_ ;_ * (#,##0.00) [$CAD]_ ;_ * "-"??_) [$CAD]_ ;_ @_


    Ou

    • USD -> _ * #,##0.00_) [$USD]_ ;_ * (#,##0.00) [$USD]_ ;_ * "-"??_) [$USD]_ ;_ @_


    Si en CAD ou USD, j'aimerais simplement les différencier une de l'autre à partir d'une autre "colonne y", comme ça je vais pouvoir créer une formule.

    Merci d'avance!

  2. #2
    Rédacteur/Modérateur

    Salut,

    gratte du côté de NumberFormat de ta cellule
    Cycle de vie d'un bon programme :
    1/ ca fonctionne 2/ ca s'optimise 3/ ca se refactorise

    Pas de question technique par MP, je ne réponds pas

    Apprendre à programmer avec Access 2016 et Access 2019

    Pensez à consulter la FAQ Excel et la FAQ Access

    Derniers tutos
    Excel et les paramètres régionaux
    Les fichiers Excel binaires : xlsb,

    Autres tutos

  3. #3
    Expert éminent sénior
    Il est aussi possible de faire ça sans macro avec la fonction CELLULE("format";A1).
    Lire ça : https://support.microsoft.com/fr-fr/...f-955d67c2b2cf

    Mais selon moi tu prends le problème à l'envers.
    Il serait plus logique de spécifier la monnaie dans une cellule et de modifier le format avec une fonction TEXTE().
    Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion.

  4. #4
    Candidat au Club
    Salut,

    Pour ce qui est de la fonction CELLULE, je ne trouve pas l'équivalent de

    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    Debug.Print .Text


    en VBA ?

    Je regarde toujours du côté de NumberFormat entre temps, mais mon bas niveau de connaissance ne m'aide pas haha.

    Je creuse du côté de TEXTE() aussi.

    Merci.

  5. #5
    Candidat au Club
    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    CELLULE("format";A1)


    Ne peux pas fonctionner pour mon exemple puisque CAD ou USD donne le même résultat -> P2

  6. #6
    Candidat au Club
    Re,

    Est-ce quelqu'un peut m'aider à écrire un code en vba

    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
     
    Dim formatcell As String
     
    formatcell = Selection.NumberFormat
     
    If formatcell = _
                            "_ * #,##0.00_) [$CAD]_ ;_ * (#,##0.00) [$CAD]_ ;_ * ""-""??_) [$CAD]_ ;_ @_ " Then
     
    .......


    J'aimerais que dans la colonne X de la même ligne, le code écrive CAD tout simplement svp.

  7. #7
    Candidat au Club
    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Dim formatcell As String
     
    formatcell = Selection.NumberFormat
     
    If formatcell = _
                            "_ * #,##0.00_) [$CAD]_ ;_ * (#,##0.00) [$CAD]_ ;_ * ""-""??_) [$CAD]_ ;_ @_ " Then
     
    Selection.Offset(0, 24).Value = "USD"

###raw>template_hook.ano_emploi###