Besoin d'une assistance, d'une application
MS Office
Consultez GEMCCAP

Boutons de commande avec couleur de fond personnalisée

Un bouton de commande ne dispose pas de la propriété Couleur de fond (BackgroundColor), ce qui fait que vos boutons ont la triste couleur grise. Pour pallier cet inconvénient vous pouvez utiliser un contrôle étiquette, qui possède cette propriété, ainsi que la propriété Sur clic .
Pour gérer l'effet de clic, vous devez recourir à 2 procédures évènementielles (sur souris enfoncée et souris remontée).

Private Sub lblFermer_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) ' Apparence 3D enfoncé
     lblFermer.SpecialEffect = 2
End Sub

Private Sub lblFermer_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) ' Apparence en relief
     lblFermer.SpecialEffect = 1
End Sub

Valeur par défaut d'une liste déroulante

Pour aider les usagers, il est souvent judicieux de générer l'affichage d'une valeur par défaut dans une liste déroulante. A cet effet, on renseigne la propriété Valeur par défaut comme suit (dans l'exemple la liste se nomme lstModePaiement

=lstModePaiement.ItemData(0)

La méthode ItemData retourne la valeur de la colonne liée correspondant au numéro de l'élément entre parenthèse.

Recopiez un tableau en conservant la largeur des colonnes

1. Sélectionnez votre tableau
2. Copiez-le
3. Sélectionnez la cellule supérieure gauche de la plage de destination
4. Collez-le
5. Ne rien désélectionner ou resélectionnez la cellule supérieure gauche de la plage de destination
6. Clic-droit sur la plage sélectionnée puis Collage spéciale
7. sélectionnez l'option Largeur de colonnes
8. Ok

Imposer une taille à la police des axes, légendes, etc d'un graphique

Lorsque vous agrandissez votre graphique et ce même si vous avez déjà imposé une taille à  la police de vos axes, légendes,..., ces dernières s'agrandissent proportionnellement.
Afin d'empêcher cet automatisme, lorsque vous imposez une taille de police dans la boîte de dialogue Format de ... décocher Echelle automatique (en bas à gauche de l'onglet Police)

Connaître l'espace disponible dans la fenêtre d'Excel pour un classeur

Sub DimFenetre()
      With ActiveWindow
            .WindowState = xlNormal
            Range("A1") = "Largeur"
            Range("B1") = .Width
            Range("A2") = "Largeur utilisable de l'application"
            Range("B2") = Application.UsableWidth
            Range("A3") = "Largeur utilisable de la fenêtre"
            Range("B3") = .UsableWidth
            Range("A4") = "Hauteur"
            Range("B4") = .Height
            Range("A5") = "hauteur utilisable de l'application"
            Range("B5") = Application.UsableHeight
            Range("A6") = "hauteur utilisable de la fenêtre"
            Range("B6") = .UsableHeight
            .DisplayHeadings = False
            .DisplayHorizontalScrollBar = False
            .DisplayVerticalScrollBar = False
            .DisplayWorkbookTabs = False
            Range("C1") = "Après masquage des onglets barre de défilement, etc.."
            Range("C3") = .UsableWidth
            Range("C6") = .UsableHeight
      End With
End Sub

Lire une couleur dans une cellule

Sub PlageIndexColor()
      Dim byN As Byte

      For byN = 1 To 56 'pour chaque index de la liste des couleurs
            ActiveCell.Interior.ColorIndex = byN 'on met la couleur correspondante
            ActiveCell.Offset(0, 1) = byN 'on indique à droite l'index correspondant
            ActiveCell.Offset(1, 0).Select 'on sélectionne la cellule du dessous
      Next
End Sub

Sub LitIndexCouleurPlage()
      Dim rCel As Range

      For Each rCel In Selection 'pour chaque cellule de la sélection
            rCel = rCel.Interior.ColorIndex 'on lit l'index de la couleur et on la met dans la cellule
      Next
End Sub

Sub LitCouleurHexPlage()
      Dim rCel As Range

      For Each rCel In Selection 'pour chaque cellule de la sélection
            'on lit la couleur et on la convertit en valeur héxadécimale
            rCel = "'" & Hex(rCel.Interior.Color)
      Next
End Sub

(XP) faire apparaître la barre d'état systématiquement

Lorsque vous êtes dans l'explorateur ou dans une fenêtre de dossier si la barre d'état ne s'affiche pas alors que vous avez demandé son affichage lors d'une ouverture précédente vous devez exécuter les étapes suivantes :

1. Afficher un dossier (n'importe lequel)
2. Affichage/Barre d'état
3. Outils/Options des dossiers
4. onglet Affichage, cliquez sur le bouton Appliquer à tous les dossiers.

Non pour tous

Lorsque vous déplacez ou copiez des fichiers dans un autre dossier si ce dernier contient déjà le même fichier, Windows va vous demander pour chacun d'eux si vous voulez le remplacer ou non, vous avez les boutons Oui pour tous (ou Tous) ce qui vous permet de ne pas répéter l'action pour chaque fichier, mais vous n'avez pas Non pour tous, pour l'avoir malgré tout, maintenez appuyé la touche Maj pendant le clic sur le bouton Non. Windows n'écrasera pas les anciens fichiers par les nouveaux sans vous demander confirmation pour chacun.

Placez une photo dans une forme

Ajouter une forme avec la barre d'outils dessin. Pour mettre une image (ou photo) dans cette forme :

1. Sélectionnez-la
2. Cliquez sur le petit triangle de l'outil Couleur de remplissage
3. Sous la liste des couleurs, cliquez sur Motifs et textures...
4. Choisissez l'onglet Image
5. Cliquez sur le bouton Sélectionner une image
6. Rechercher votre image
7. Cochez Vérouillez les proportions de l'image afin que cette dernière ne soit pas déformée.
8. Ok

Une date automatique dans un modèle reflétant la date de création du document

Lorsque vous créez un modèle, il est souvent utile d'y mettre un champ automatique indiquant la date du jour. Si vous utilisez Insertion/Date et heure et cochez Mettre à jour automatiquement, vous aurez bien un champ automatique sur la date du jour lorsque vous créerez un document à partir de votre modèle. Mais si vous réouvrez ce document un jour suivant, ce champ va afficher la date du jour et non la date à laquelle le document a été créé. Pour résoudre ce problème vous ne devez pas utiliser Insertion/Date et heure, mais :

• Insertion/Champs
• Choisissez la catégorie Date et heure
• Sélectionnez le champ CreateDate
• Choisissez le format d'affichage (dans la version 2000 et précédente, il vous faut cliquer sur le bouton Options... )

Il ne me demande plus si je veux mémoriser mon mot de passe

Il vous faut alors rétablir une donnée dans la base de registre.

1. Démarrer/Exécuter
2. tapez Regedit
3. Ok
4. Recherchez la clef [HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main]
5. Dans cette clef, double-cliquez sur la valeur FormSuggest PW Ask
6. Attribuez yes
7. Ok

Si la valeur FormSuggest PW Ask n'existe pas :

• Clic-droit sur la clef [HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main]
• Nouveau/valeur chaîne
• Nommez la FormSuggest PW Ask
• Reprenez l'étape 5