VBA EXCEL CONVERTIR EN NOMBRE, APPLIQUER UN FORMAT MONETAIRE OU POURCENTAGE

FENETRES 205 Messages postés jeudi 15 juillet 2004Date d'inscription 14 avril 2009 Dernière intervention - 29 janv. 2007 à 17:12 - Dernière réponse :  mlous
- 29 nov. 2017 à 11:25
Commentaires sur une source Créer une discussion Signaler Répondre
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

http://codes-sources.commentcamarche.net/source/41270-vba-excel-convertir-en-nombre-appliquer-un-format-monetaire-ou-pourcentage

Afficher la suite 
FENETRES 205 Messages postés jeudi 15 juillet 2004Date d'inscription 14 avril 2009 Dernière intervention - 6 févr. 2007 à 16:40
Proverbe du jour :
« Cent fois sur le métier, tu remettras ton ouvrage.»
FENETRES 205 Messages postés jeudi 15 juillet 2004Date d'inscription 14 avril 2009 Dernière intervention - 2 mars 2007 à 11:43
'Ajouter la procédure ci-dessous pour créer une nouvelle barre d'outils
Sub CreateCommandBar()

On Error Resume Next
CommandBars("BTD Consulting").Delete
On Error GoTo 0

With CommandBars.Add(Name:="VB France")
With .Controls.Add(Type:=msoControlPopup)
.Caption = "Macros" + Space(25)
.TooltipText = ""
With .Controls.Add(msoControlButton)
.OnAction = "ConvertStrToDbl"
.Caption = "Convertir en nombre (format standard)"
End With
With .Controls.Add(msoControlButton)
.FaceId = 0
.OnAction = "ApplyCurrencyFormat"
.Caption = "Appliquer le format monétaire"
.BeginGroup = True
End With
With .Controls.Add(msoControlButton)
.FaceId = 0
.OnAction = "ApplyPercentageFormat"
.Caption = "Appliquer le format pourcentage"
End With
With .Controls.Add(msoControlButton)
.FaceId = 0
.OnAction = "ModifyDateFormat"
.Caption = "Corriger les dates enregistrées au format anglais"
.BeginGroup = True
End With
End With
.Visible = True
End With

End Sub
FENETRES 205 Messages postés jeudi 15 juillet 2004Date d'inscription 14 avril 2009 Dernière intervention - 2 mars 2007 à 12:00
'Annule et remplace le commentaire précédent

Sub CreateCommandBar()
'Ajoute la barre d'outils "VB France"

On Error Resume Next
CommandBars("VB France").Delete
On Error GoTo 0

With CommandBars.Add(Name:="VB France")
With .Controls.Add(Type:=msoControlPopup)
.Caption = "Macros" + Space(25)
With .Controls.Add(msoControlButton)
.OnAction = "ConvertStrToDbl"
.Caption = "Convertir en nombre (format standard)"
End With
With .Controls.Add(msoControlButton)
.OnAction = "ApplyCurrencyFormat"
.Caption = "Appliquer le format monétaire"
.BeginGroup = True
End With
With .Controls.Add(msoControlButton)
.OnAction = "ApplyPercentageFormat"
.Caption = "Appliquer le format pourcentage"
End With
With .Controls.Add(msoControlButton)
.OnAction = "ModifyDateFormat"
.Caption = "Corriger les dates enregistrées au format anglais"
.BeginGroup = True
End With
End With
.Visible = True
End With

End Sub
FENETRES 205 Messages postés jeudi 15 juillet 2004Date d'inscription 14 avril 2009 Dernière intervention - 2 mars 2007 à 16:35
'Pour ceux qui souhaitent ajouter un bouton dans la barre de commandes
'pour afficher les sources de données (ODBC).
'(http://www.vbfrance.com/codes/AFFICHER-INTERFACE-ODBC-POUR-CREER-SOURCE-DONNEE-DSN_32954.aspx)

Sub CreateCommandBar()
'Ajoute la barre de commandes "VB France"

On Error Resume Next
CommandBars("VB France").Delete
On Error GoTo 0

With CommandBars.Add("VB France")
With .Controls.Add(msoControlButton)
.Caption = " Source de données (ODBC) "
.OnAction = "DisplayODBCManager"
End With
With .Controls.Add(msoControlPopup)
.Caption = " Macros "
.BeginGroup = True
With .Controls.Add(msoControlButton)
.Caption = "Convertir en nombre (format standard)"
.OnAction = "ConvertStrToDbl"
End With
With .Controls.Add(msoControlButton)
.Caption = "Appliquer le format monétaire"
.BeginGroup = True
.OnAction = "ApplyCurrencyFormat"
End With
With .Controls.Add(msoControlButton)
.Caption = "Appliquer le format pourcentage"
.OnAction = "ApplyPercentageFormat"
End With
With .Controls.Add(msoControlButton)
.Caption = "Corriger les dates enregistrées au format anglais"
.BeginGroup = True
.OnAction = "ModifyDateFormat"
End With
End With
.Visible = True
End With

End Sub
Commenter la réponse de FENETRES

9 réponses

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.