Fenetre format cellule...

[tbft]

Bonjour tout le monde

Pouvez vous me dire si il est possible sous vba d'ouvrir la fenêtre "Format de cellule"?
Je cherche un moyen simple de mettre en forme des nombres en ayant le choix comme dans l'onglet "Nombre" de la fenêtre "Format de cellule".

D'avance merci pour votre aide

 

[Guiv]

Re : Fenetre format cellule...

Bonjour tbft, le forum

Application.Dialogs(xlDialogFormatNumber).Show

Cordialement,
Guiv

 

[tbft]

Re : Fenetre format cellule...

bonjour Guiv

j'essaye tout de suite...

 

[tbft]

Re : Fenetre format cellule...

Je viens de tester

c'est la bonne fenêtre mais comment récupérer (sous vba toujours) la mise en forme sélectionné au lieu quelle soit affecté à la cellule active???

 

[Guest]

Re : Fenetre format cellule...

Bonjour,

Peut-être:

Application.Dialogs(xlDialogFormatNumber).Show

Application.Dialogs(xlDialogFormatNumber).Show ("dd/mm/yyyy")

qui affichera la boîte de dialogue Format/Cellule/Nombre et retournera le format dans la cellule sélectionnée.

A+

[Edit] J'avais pas rafraichit🙄

Pour ta deuxième question, pas possible directement.
Format=ActiveCell.NumberFormat

A+

 

[tbft]

Re : Fenetre format cellule...

j'ai essayé ça:

Sub test()
Dim toto
  toto = Application.Dialogs(xlDialogFormatNumber).Show("jj/mm/aaaa")
End Sub

et je récupère TOTO = TRUE quand je valide la boite de dialogue
je souhaiterai (si cela est possible) de récupérer la mise en forme par exemple "# ##0,00"
En espérant que cela soit possible

 

[tbft]

Re : Fenetre format cellule...

Message perso pour Hasco
merci pour ta réponse
tu dis : Faites de moi votre ami et vous gagnerez le droit de me bousculer par MP sinon c'est inutile! dans ta signature mais comment faire??

 

[mromain]

Re : Fenetre format cellule...

Bonjour tbft, Guiv, Hasco


Voici un essai (une fonction qui retourne le format sélectionné en String).
C'est du bidouillage, mais ça a l'air de fonctionner :

Public Function GetFormat() As String
Dim memFormat As String
    
    'mémoriser le format de la cellule active
    memFormat = ActiveCell.NumberFormat
    
    'appeler la boite de changement de format
    Application.Dialogs(xlDialogFormatNumber).Show
    
    'retourner le nouveau format sélectionné avec la boite de dialogue
    GetFormat = ActiveCell.NumberFormat
    
    'rétablir le format d'origine sur la cellule
    ActiveCell.NumberFormat = memFormat
    
End Function

a+

 

[Guest]

Re : Fenetre format cellule...

Re,

comment faire??

Quoi?

Pour ta question au sujet de la récupération direct du format de la boîte de dialogue, je te l'ai dit, ce n'est pas possible. Tu peux contourner le problème en activant une cellule quelconque au préalable et récupérer son format par

Fmt=ActiveCell.NumberFormat

A+

 

[tbft]

Re : Fenetre format cellule...

Merci pour vos réponses