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

Signaler
Messages postés
196
Date d'inscription
jeudi 15 juillet 2004
Statut
Membre
Dernière intervention
14 avril 2009
-
 mlous -
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

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

Messages postés
196
Date d'inscription
jeudi 15 juillet 2004
Statut
Membre
Dernière intervention
14 avril 2009

'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
Messages postés
196
Date d'inscription
jeudi 15 juillet 2004
Statut
Membre
Dernière intervention
14 avril 2009

'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
Messages postés
196
Date d'inscription
jeudi 15 juillet 2004
Statut
Membre
Dernière intervention
14 avril 2009

'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
Afficher les 9 commentaires