begin process at 2010 02 10 17:22:33
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

VBA

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

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


 Information sur la source

Note :
Aucune note
Catégorie :VBA Classé sous :convertir, nombre, format, pourcentage, date Niveau :Débutant Date de création :26/01/2007 Date de mise à jour :05/03/2007 11:17:04 Vu :26 736

Auteur : FENETRES

Ecrire un message privé
Commentaire sur cette source (8)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
Convertir en nombre (format standard) ou appliquer un format de type monétaire (deux décimales sans symbole) ou de type pourcentage à la plage sélectionnée (cf. saisie d'écran)

Source

  • Option Explicit
  • 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) "
  • ' .TooltipText = .Caption
  • ' .OnAction = "DisplayODBCManager"
  • ' End With
  • With .Controls.Add(msoControlButton)
  • .Caption = " Afficher la calculatrice "
  • .TooltipText = .Caption
  • ' .BeginGroup = True
  • .OnAction = "ShowCalculator"
  • End With
  • With .Controls.Add(msoControlPopup)
  • .Caption = " Macrocommandes "
  • .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
  • Sub ShowCalculator()
  • 'Affiche la calculatrice
  • On Error Resume Next
  • Shell ("calc.exe")
  • End Sub
  • Sub ConvertStrToDbl()
  • 'Pour la plage sélectionnée : convertir en nombre (format standard)
  • 'Variables de traitement
  • Dim myValue As Variant
  • Dim myRange As Range
  • 'Gestionnaire d'erreur
  • On Error GoTo Except
  • For Each myRange In Selection
  • With myRange
  • 'Conditions de conversion
  • If IsNumeric(.Value) Then
  • If Len(Trim(.Value)) > 0 Then
  • 'Conversion avec format standard
  • myValue = CDbl(.Value)
  • .NumberFormat = "General"
  • .Value = myValue
  • End If
  • End If
  • End With
  • Next
  • Exit Sub
  • Except:
  • 'Boîte de dialogue : message d'erreur
  • Call MsgBox(vbCr & "Erreur n° " & Err.Number & vbCr & vbCr & _
  • Err.Description & Space(6), vbCritical + vbOKOnly, " Macro de MAJ du format standard")
  • End Sub
  • Sub ApplyCurrencyFormat()
  • 'Pour la plage sélectionnée : appliquer le format monétaire
  • '(*) Le format est de type natif car les paramètres régionaux
  • ' sont gérés de façon implicite.
  • 'Variables de traitement
  • Dim myValue As Double
  • Dim myRange As Range
  • 'Gestionnaire d'erreur
  • On Error GoTo Except
  • For Each myRange In Selection
  • With myRange
  • If IsNumeric(.Value) Then
  • myValue = .Value
  • 'Format nombre* avec deux décimales
  • .NumberFormat = "#,##0.00"
  • .Value = myValue
  • End If
  • End With
  • Next
  • Exit Sub
  • Except:
  • 'Boîte de dialogue : message d'erreur
  • Call MsgBox(vbCr & "Erreur n° " & Err.Number & vbCr & vbCr & _
  • Err.Description & Space(6), vbCritical + vbOKOnly, " Macro de MAJ du format monétaire")
  • End Sub
  • Sub ApplyPercentageFormat()
  • 'Pour la plage sélectionnée : appliquer le format pourcentage
  • '(*) Le format est de type natif car les paramètres régionaux
  • ' sont gérés de façon implicite.
  • 'Variables de traitement
  • Dim myValue As Variant
  • Dim myRange As Range
  • 'Gestionnaire d'erreur
  • On Error GoTo Except
  • For Each myRange In Selection
  • With myRange
  • If Right(.Value, 1) = "%" Then
  • myValue = Left(.Value, Len(.Value) - 1)
  • If IsNumeric(myValue) Then
  • 'Format pourcentage* avec deux décimales
  • .NumberFormat = "#,##0.00%"
  • .Value = myValue / 100
  • End If
  • End If
  • End With
  • Next
  • Exit Sub
  • Except:
  • 'Boîte de dialogue : message d'erreur
  • Call MsgBox(vbCr & "Erreur n° " & Err.Number & vbCr & vbCr & _
  • Err.Description & Space(6), vbCritical + vbOKOnly, " Macro de MAJ du format pourcentage")
  • End Sub
  • Sub ModifyDateFormat()
  • 'Pour la plage sélectionnée : corriger les dates enregistrées au format anglais.
  • 'Variables de traitement
  • Dim myDate As Date
  • Dim myRange As Range
  • Dim i As Long, j As Long
  • 'Gestionnaire d'erreur
  • On Error GoTo Except
  • 'Boîte de dialogue : demande de confirmation
  • i = Selection.Cells.Count
  • If i = 1 Then
  • If MsgBox(vbCr & "Demande de confirmation" & vbCr & vbCr & _
  • "Une seule cellule est sélectionnée. Confirmez votre sélection ?" & Space(6), vbQuestion + vbYesNo, _
  • " Macro de correction du type date") = vbNo Then Exit Sub
  • End If
  • For Each myRange In Selection
  • If IsDate(myRange) Then
  • With myRange
  • 'Condition d'inversion
  • If .NumberFormat = "mm/dd/yyyy" Then
  • 'Mémorise la date
  • myDate = .Value
  • 'Transforme le type du format date
  • .NumberFormat = "dd/mm/yyyy"
  • 'Transforme la date en inversant les valeurs du mois et du jour
  • .Value = CDate(Month(myDate) & "/" & Day(myDate) & "/" & Year(myDate))
  • If Month(.Value) <> Month(myDate) Then j = j + 1
  • End If
  • End With
  • End If
  • Next
  • 'Boîte de dialogue : nbre de dates corrigées sur nbre de cellules vérifiées
  • Call MsgBox(vbCr & "Résultat du traitement :" & vbCr & vbCr & _
  • j & " date(s) corrigée(s) sur " & i & " cellule(s) sélectionnée(s)." & Space(6), vbInformation + vbOKOnly, _
  • " Fonction de correction du type date")
  • Exit Sub
  • Except:
  • 'Boîte de dialogue : message d'erreur
  • Call MsgBox(vbCr & "Erreur n° " & Err.Number & vbCr & vbCr & _
  • Err.Description & Space(6), vbCritical + vbOKOnly, " Fonction de correction du type date")
  • End Sub
Option Explicit

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) "
'         .TooltipText = .Caption
'         .OnAction = "DisplayODBCManager"
'      End With
      With .Controls.Add(msoControlButton)
         .Caption = " Afficher la calculatrice "
         .TooltipText = .Caption
'         .BeginGroup = True
         .OnAction = "ShowCalculator"
      End With
      With .Controls.Add(msoControlPopup)
         .Caption = " Macrocommandes "
         .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

Sub ShowCalculator()
   'Affiche la calculatrice

   On Error Resume Next
   Shell ("calc.exe")
   
End Sub

Sub ConvertStrToDbl()
'Pour la plage sélectionnée : convertir en nombre (format standard)

'Variables de traitement
Dim myValue As Variant
Dim myRange As Range

   'Gestionnaire d'erreur
   On Error GoTo Except

   For Each myRange In Selection
      With myRange
         'Conditions de conversion
         If IsNumeric(.Value) Then
            If Len(Trim(.Value)) > 0 Then
               'Conversion avec format standard
               myValue = CDbl(.Value)
               .NumberFormat = "General"
               .Value = myValue
            End If
         End If
      End With
   Next

   Exit Sub
Except:
   'Boîte de dialogue : message d'erreur
   Call MsgBox(vbCr & "Erreur n° " & Err.Number & vbCr & vbCr & _
                       Err.Description & Space(6), vbCritical + vbOKOnly, " Macro de MAJ du format standard")
End Sub

Sub ApplyCurrencyFormat()
'Pour la plage sélectionnée : appliquer le format monétaire
'(*) Le format est de type natif car les paramètres régionaux
'    sont gérés de façon implicite.

'Variables de traitement
Dim myValue As Double
Dim myRange As Range

   'Gestionnaire d'erreur
   On Error GoTo Except

   For Each myRange In Selection
      With myRange
         If IsNumeric(.Value) Then
            myValue = .Value
            'Format nombre* avec deux décimales
            .NumberFormat = "#,##0.00"
            .Value = myValue
         End If
      End With
   Next

   Exit Sub
Except:
   'Boîte de dialogue : message d'erreur
   Call MsgBox(vbCr & "Erreur n° " & Err.Number & vbCr & vbCr & _
                       Err.Description & Space(6), vbCritical + vbOKOnly, " Macro de MAJ du format monétaire")

End Sub

Sub ApplyPercentageFormat()
'Pour la plage sélectionnée : appliquer le format pourcentage
'(*) Le format est de type natif car les paramètres régionaux
'    sont gérés de façon implicite.

   'Variables de traitement
   Dim myValue As Variant
   Dim myRange As Range

   'Gestionnaire d'erreur
   On Error GoTo Except
   
   For Each myRange In Selection
      With myRange
         If Right(.Value, 1) = "%" Then
            myValue = Left(.Value, Len(.Value) - 1)
            If IsNumeric(myValue) Then
               'Format pourcentage* avec deux décimales
               .NumberFormat = "#,##0.00%"
               .Value = myValue / 100
            End If
         End If
      End With
   Next

   Exit Sub
Except:
   'Boîte de dialogue : message d'erreur
   Call MsgBox(vbCr & "Erreur n° " & Err.Number & vbCr & vbCr & _
                       Err.Description & Space(6), vbCritical + vbOKOnly, " Macro de MAJ du format pourcentage")

End Sub

Sub ModifyDateFormat()
'Pour la plage sélectionnée : corriger les dates enregistrées au format anglais.
  
'Variables de traitement
Dim myDate As Date
Dim myRange As Range
Dim i As Long, j As Long
  
   'Gestionnaire d'erreur
   On Error GoTo Except
    
   'Boîte de dialogue : demande de confirmation
   i = Selection.Cells.Count
   If i = 1 Then
      If MsgBox(vbCr & "Demande de confirmation" & vbCr & vbCr & _
                       "Une seule cellule est sélectionnée. Confirmez votre sélection ?" & Space(6), vbQuestion + vbYesNo, _
                       " Macro de correction du type date") = vbNo Then Exit Sub
   End If
   
   For Each myRange In Selection
      If IsDate(myRange) Then
         With myRange
            'Condition d'inversion
            If .NumberFormat = "mm/dd/yyyy" Then
               'Mémorise la date
               myDate = .Value
               'Transforme le type du format date
               .NumberFormat = "dd/mm/yyyy"
               'Transforme la date en inversant les valeurs du mois et du jour
               .Value = CDate(Month(myDate) & "/" & Day(myDate) & "/" & Year(myDate))
               If Month(.Value) <> Month(myDate) Then j = j + 1
            End If
         End With
      End If
   Next
    
   'Boîte de dialogue : nbre de dates corrigées sur nbre de cellules vérifiées
   Call MsgBox(vbCr & "Résultat du traitement :" & vbCr & vbCr & _
                  j & " date(s) corrigée(s) sur " & i & " cellule(s) sélectionnée(s)." & Space(6), vbInformation + vbOKOnly, _
                      " Fonction de correction du type date")
       
   Exit Sub
Except:
   'Boîte de dialogue : message d'erreur
   Call MsgBox(vbCr & "Erreur n° " & Err.Number & vbCr & vbCr & _
                       Err.Description & Space(6), vbCritical + vbOKOnly, " Fonction de correction du type date")
End Sub

 Conclusion

Avec la source de correction du format date en anglais, ces macros devraient permettre de traiter les erreurs les plus couramment rencontrées.

Le mode opératoire est simple. Après voir copié le code source dans l'éditeur VB, il vous suffit d'exécuter la procédure de création de la barre d'outils. Ensuite, vous n'aurez plus qu'à personnaliser celle-ci (facultatif) en choisissant les images qui vous conviennent.

Annulez la mise en commentaire si vous souhaitez affecter la macro permettant d'afficher les sources de données (ODBC)


 Historique

31 janvier 2007 12:10:01 :
Ajout du format pourcentage
01 février 2007 10:13:20 :
Selon le type de nombre (entier ou réel) le format nombre comprend zéro ou deux décimales(naturellement, il est possible de généraliser à n décimales).
01 février 2007 17:02:03 :
Ajout du format standard afin de le dissocier des formats spécifiques.
01 février 2007 17:23:52 :
Pour le format standard, la variable " myValue " doit être un " Variant " !
02 février 2007 16:51:07 :
Nouvelle saisie d'écran
05 février 2007 10:39:15 :
MAJ des mots clés
05 février 2007 10:50:51 :
format monétaire avec séparateur des milliers
05 février 2007 11:40:40 :
Format général avec conversion conditionnelle en nombre
05 février 2007 11:49:17 :
MAJ commentaires
05 février 2007 12:12:41 :
Format standard : ajout de la condition Len(.Value) > 0 (pas de conversion d'une chaîne vide).
05 février 2007 14:06:36 :
Séparation du format standard (convertir en nombre) des formats spécifiques (formats monéraire et pourcentage)
05 février 2007 15:04:55 :
Nouvelle saisie d'écran (menus avec nouveau groupe)
06 février 2007 09:37:47 :
Simplification pédagogique du code source de la méthode d'application d'un format pourcentage.
06 février 2007 11:22:00 :
La mise à jour mineure précédente (ApplyPercentageFormat) oblige à modifier le type de " MyValue " en variant sinon l'affectation retourne une erreur d'incompatibilité de type.
06 février 2007 13:50:49 :
MAJ commentaires
15 février 2007 14:30:03 :
Prise en compte des options régionales. Il y a toujours un petit malin pour ne pas faire comme tout le monde !
16 février 2007 16:09:46 :
La dernière mise à jour était incorrecte. Les paramètres régionaux sont gérés de façon implicite par le format natif de nombre.
16 février 2007 16:52:21 :
Erreur de manip.
16 février 2007 16:58:11 :
Jamais deux sans trois
20 février 2007 11:56:35 :
Ajout de commentaires dans le code source (format natif)
02 mars 2007 13:07:41 :
Ajout de la procédure de création de la barre d'outils
02 mars 2007 13:51:25 :
Mode opératoire
02 mars 2007 18:07:57 :
Nouvelle saisie d'écran
05 mars 2007 11:17:05 :
Ajout d'un bouton pour afficher la calculatrice (raccourci).

 Sources du même auteur

Source avec une capture VBA EXCEL TRANSFORME UNE DATE ENREGISTRÉE AU FORMAT ANGLAIS ...
Source avec une capture AFFICHER L'INTERFACE ODBC POUR CRÉER UNE SOURCE DE DONNÉE (D...
Source avec une capture VBA EXCEL : FONCTION ROUND POUR COMPATIBILITÉ EXCEL 97
Source avec Zip Source avec une capture CONTRÔLEUR NUMÉRIQUE DE SAISIE
Source avec Zip Source avec une capture GRADIENT ANIMÉ (BARRE DE PROGRESSION)

 Sources de la même categorie

Source avec Zip Source avec une capture METTRE À JOUR MASSIVEMENT L’ACTIVE DIRECTORY par legranche
SUPPRESSION DES DOUBLONS DANS PLAGE EXCEL par ucfoutu
Source avec Zip Source avec une capture SIMULATEUR DE VITESSE. par artgile
Source avec Zip Source avec une capture EDITEUR DE COMANDE VB6 ET VBA EXCEL par artgile
Source avec Zip Source avec une capture VBA EXCEL AFFICHER UN NUANCIER DES COULEURS AFIN DE CHOISIR ... par BILLOTmi

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture Source .NET (Dotnet) CONVERTIR FORMAT IMAGE par Le Pivert
Source avec Zip Source avec une capture FORMAT DE DATE SYSTEM ET PORTABILITÉ par pillsmen
Source avec Zip Source .NET (Dotnet) CLASSE QUI PERMET DE CONVERTIR UN NOMBRE EN LETTRES par Jun
Source avec Zip Source avec une capture CONVERSION D'UN STRING EN DATE SOUS UN FORMAT DONNÉ par Egalon
CHIFFRE EN LETTRE FONCTION par ElDoktor

Commentaires et avis

Commentaire de FENETRES le 29/01/2007 17:12:11

'Idem pour le format pourcentage

Sub setPercentageFormat()
'Affecte le format pourcentage à la plage sélectionnée

'Variables de traitement
Dim myNumber As Double
Dim myRange As Range

   'Gestionnaire d'erreur
   On Error GoTo Except

   For Each myRange In Selection
      With myRange
         If Right(.Value, 1) = "%" Then
            If IsNumeric(Left(.Value, Len(.Value) - 1)) Then
               myNumber = Left(.Value, Len(.Value) - 1)
               .NumberFormat = "#,##0.00 %"
               .Value = myNumber
            End If
      End If
      End With
   Next

   Exit Sub
Except:
   'Boîte de dialogue : message d'erreur
   Call MsgBox(vbCr & "Erreur n° " & Err.Number & vbCr & vbCr & _
                       Err.Description & Space(6), vbCritical + vbOKOnly, " Macro de MAJ du format nombre")

End Sub

Commentaire de FENETRES le 29/01/2007 17:17:06

'Plus exactement :
Sub setPercentageFormat()
'Affecte le format pourcentage à la plage sélectionnée

'Variables de traitement
Dim myNumber As Double
Dim myRange As Range

   'Gestionnaire d'erreur
   On Error GoTo Except

   For Each myRange In Selection
      With myRange
         If Right(.Value, 1) = "%" Then
            If IsNumeric(Left(.Value, Len(.Value) - 1)) Then
               myNumber = Left(.Value, Len(.Value) - 1)
               .NumberFormat = "#,##0.00 %"
               .Value = myNumber
            End If
         ElseIf IsNumeric(.Value) Then
            myNumber = .Value
            .NumberFormat = "#,##0.00 %"
            .Value = myNumber
         End If
      End With
   Next

   Exit Sub
Except:
   'Boîte de dialogue : message d'erreur
   Call MsgBox(vbCr & "Erreur n° " & Err.Number & vbCr & vbCr & _
                       Err.Description & Space(6), vbCritical + vbOKOnly, " Macro de MAJ du format pourcentage")

End Sub

Commentaire de FENETRES le 29/01/2007 17:28:05

'Annule et remplace les exemples précédents en commentaire car il ne faut pas oublier de diviser par 100.

Sub setPercentageFormat()
'Affecte le format pourcentage à la plage sélectionnée

'Variables de traitement
Dim myNumber As Double
Dim myRange As Range

   'Gestionnaire d'erreur
   On Error GoTo Except

   For Each myRange In Selection
      With myRange
         If Right(.Value, 1) = "%" Then
            If IsNumeric(Left(.Value, Len(.Value) - 1)) Then
               myNumber = Left(.Value, Len(.Value) - 1) / 100
               .NumberFormat = "#,##0.00 %"
               .Value = myNumber
            End If
         ElseIf IsNumeric(.Value) Then
            myNumber = .Value / 100
            .NumberFormat = "#,##0.00 %"
            .Value = myNumber
         End If
      End With
   Next

   Exit Sub
Except:
   'Boîte de dialogue : message d'erreur
   Call MsgBox(vbCr & "Erreur n° " & Err.Number & vbCr & vbCr & _
                       Err.Description & Space(6), vbCritical + vbOKOnly, " Macro de MAJ du format pourcentage")

End Sub

Commentaire de FENETRES le 30/01/2007 09:54:10

'Version finale tenant compte de la conversion d'un format nombre en pourcentage. Mille excuses pour ma distraction.

'Annule et remplace les exemples précédents en commentaire car il ne faut pas oublier de diviser ou multiplier par 100.

Sub setPercentageFormat()
'Affecte le format pourcentage à la plage sélectionnée

'Variables de traitement
Dim myNumber As Double
Dim myRange As Range

   'Gestionnaire d'erreur
   On Error GoTo Except

   For Each myRange In Selection
      With myRange
         If Right(.Value, 1) = "%" Then
            If IsNumeric(Left(.Value, Len(.Value) - 1)) Then
               myNumber = Left(.Value, Len(.Value) - 1) / 100
               .NumberFormat = "#,##0.00 %"
               .Value = myNumber
            End If
         ElseIf IsNumeric(.Value) Then
            myNumber = .Value * 100
            .NumberFormat = "#,##0.00 %"
            .Value = myNumber
         End If
      End With
   Next

   Exit Sub
Except:
   'Boîte de dialogue : message d'erreur
   Call MsgBox(vbCr & "Erreur n° " & Err.Number & vbCr & vbCr & _
                       Err.Description & Space(6), vbCritical + vbOKOnly, " Macro de MAJ du format pourcentage")

End Sub

Commentaire de FENETRES le 06/02/2007 16:40:54

Proverbe du jour :
« Cent fois sur le métier, tu remettras ton ouvrage.»

Commentaire de FENETRES le 02/03/2007 11:43:34

'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

Commentaire de FENETRES le 02/03/2007 12:00:30

'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

Commentaire de FENETRES le 02/03/2007 16:35:03

'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

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Convertir la date de installdate en format dword en format date lisible ? [ par rastapopey ] Voila, je souhaite recuperer la date d'install d'un poste en lisant la valeur de la date d'install dans la registrySOFTWARE\MICROSOFT\WINDOWS NT\CURRE convertir une chaine en une date - complications :-s [ par youkizouki ] bonjour &#224; tous,je poss&#232;de une chaine de caract&#232;re repr&#233;sentant une date, je dois pour les besoin de mon applic comparer cette chai Convertir date français en date US [ par bonbone ] BONJOUR,J'utilise Access (VBA), j'ai créé des formulaires, dans l'un d'eux je récupére la liste de toutes les dates dans une listbox (date en format f Convertir un format epoch au format Date [ par max_95 ] Salut,J'ai récupéré depuis un serveur UNIX une date qui est au format Epoch (i.e. du style: 1212417068205) et je voudrais la convertir au format date Conversion de dates en nombre et inversement [ par mimo37 ] Bonjour à tous,Débutant en Visual Basic je me trouve confronté à un PB que je suis incapable de résoudre, mais qui je pense doit être simple pour un e Convertir Serial date a une date format YYYY-MM-dd [ par BrokenArrow29 ] Salut tout le monde,J'aimerais bien trouvé une fonction pour convertir une date de format serial 39794 a 2008-12-12Merci et bonne journée recherche entre 2 dates dans mdb [ par boudiou1 ] Bonjour tout le monde. Je deviens fou. Je tente de recuperer des données entre 2 dates via un MonthCalendar et j''en perd mon latin :( Pour etre préci Format date [ par elabbassi ] Bonjour Je confictionne ma requête sous SQL avec une date fixe et je l'exécute sans aucun pb :WHERE (MaDate = CONVERT(DATETIME, '2008-11-01 00:00:00', problème de format de date [ par clemse31 ] Bonjour, Je rencontre un problème de format de date. En vb.net, en cliquant sur une date du "monthcalendar" je récupére la date et j'effectue une requ Format de dates et requêtes SQL [ par PatBlarg ] Bonjour, j'ai un gros problème des formats de date SQL Server 2005.J'ai une colonne de type DATETIME dans laquelle je veux insérer des données.Donc j'


Nos sponsors


Sondage...

Comparez les prix


HTC Magic

Entre 429€ et 429€

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,640 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales