Utilisation de Common Dialog

Le contrôle Common Dialog (avec ShowColor).Retour au menu Contrôles divers

        Permet de sélectionner un fichier à l'aide d'un Common Dialog.
        Cet exemple montre que l'on a pas besoin d'activer le composant ou
        de placer l'objet dans votre projet.
        On créera l'objet lors du lancement du programme (CreateObject).
        Il faut ajouter la référence Microsoft Forms 2.0 Object Library au projet.
        Ce contrôle peut-être assimilé à la commande
        Application.Dialogs(xlDialogPatterns).Show.

Listing du code

 

Sub SelectionColor()

  Set ComDlg = CreateObject ( "MSComDlg.CommonDialog" )

Debut:

  With ComDlg

    .CancelError = True

    .Color = RGB ( 255 , 0 , 0 )

    .Flags = cdlCCFullOpen Or cdlCCRGBInit

    ' Appel de la boite couleur

    On Error Resume Next

    .ShowColor

    If Err.Number <> cdlCancel Then

      If MsgBox( "Vous n'avez pas sélectionné de couleur." & Chr ( 10 ) & "Voulez-vous annuler _

     la sélection ?" , vbYesNo, TITRE) = vbYes Then

        Exit Sub

      Else

        GoTo Debut

      End If

    End If

  End With

  ActiveCell.Interior.Color = ComDlg.Color

End Sub

La cellule active est remplie avec la couleur sélectionnée

Retour au début de document

Retour au début du document