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!

Salut,

gratte du côté de NumberFormat de ta cellule :)

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().

Salut,

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

Code:

---

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.

Code:

---

CELLULE("format";A1)

---

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

Re,

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

Code:

---

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.

Code:

---

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"

---