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

Excelabo
des astuces sur Excel et le VBA par une passionnée comme moi

Ajouter "tous" à une liste de combo box

Vous avez une liste déroulante servant de filtre pour un sous-formulaire ou une liste. Afin d'afficher tous les enregistrements il serait pratique d'ajouter "( TOUS )" à cette liste déroulante. Pour cela vous devez avoir recours à une requête de type UNION. Par exemple, la source de votre liste déroulante est :

SELECT IDclient, sNom FROM CLIENTS ORDER BY IDclient;

Où IDclient est un champ de type NumeroAuto (donc de type Long) et sNom un champ de type texte dans la table CLIENTS. Pour y ajouter "( TOUS )" à cette liste, modifiez la source ainsi :

SELECT IDclient, sNom FROM CLIENTS
UNION
SELECT Null As TtChoix, "( TOUS )" As sTous FROM CLIENTS
ORDER BY IDclient;

Il vous suffira ensuite de gérer le choix de l'utilisateur sur ( TOUS ).

Fonctions de base sur les onglets

Vous savez certainement renommer, déplacer, visualiser, insérez une feuille mais utilisez-vous la méthode la plus rapide ?

1. Renommer :
   Double-cliquez sur l'onglet et tapez directement le nouveau nom de votre onglet (inutile de tapez sur la touche Suppr pour supprimer le nom existant au préalable)
2. Visualiser :
   Si les onglets sont trop nombreux pour être visibles, effectuez un clic-droit sur les flèche de déplacement (à gauche des onglets, un menu listant l'ensemble de vos feuillez s'affiche, cliquez sur le nom de la feuille que vous voulez visualiser.
   
3. Déplacer :
   Cliquer sans relâcher (afin d'effectuer un glisser-déplacer) sur l'onglet de la feuille, glissez votre souris vers la gauche ou la droite pour mettre la feuille où vous le désirez, vous voyez un petit triangle noir s'afficher entre les feuilles existantes au cours de votre déplacement. Dès que vous êtes au bon endroit, lachez le bouton de votre souris
4. Copier :
   Faîtes comme pour le déplacement mais maintenez la touche Ctrl enfoncée au cours de votre déplacement, vous ne devez la relâcher qu'après avoir relâcher le bouton gauche de votre souris.
5. Insérer :
   Insertion/Feuille. Une feuille de calcul sera insérée devant la feuille où vous êtes. Si vous passez par un clic-droit sur un onglet, Excel vous demande de choisir un type de feuille (vous êtes donc moins rapide).
6. Supprimer :
   Clic-droit sur l'onglet et sélectionnez Supprimer.

Double-clic magique (ajustement des largeurs ou hauteurs - incrémentation sur une colonne automatique)

Pour ajuster automatiquement 1 colonne à la largeur maximum des données de cette colonne, placez votre curseur entre la lettre de cette colonne et celle de gauche ainsi:
Lorsque vous êtes bien positionné, double-cliquez tout simplement.

Vous pouvez faire la même manoeuvre pour ajuster une ligne, en vous plaçant entre le N° de la ligne à ajuster et le N° de la ligne suivante, double-cliquez.

Si vous avez un tableau de données, que dans une colonne de ce tableau vous avez besoin d'établir une formule similaire pour chacune des lignes. Créez la formule de la 1^ère ligne, validez cette formule en tapant sur Entrée, puis placez votre curseur dans le coin inférieur droit de la cellule, ce curseur devient un +. Lorsque vous êtes bien placé, double-cliquez, votre formule sera alors recopiée sur toute la hauteur de votre tableau.

Un histogramme dans des cellules

Plutôt que de créer un graphique de type histogramme, vous pouvez utiliser une fonction pour mettre dans une cellule une barre horizontale dont la taille dépend d'une valeur d'une cellule.

Tapez par exemple en A1 la valeur 10. En B1 tapez la formule suivante : =REPT("n";D119) et appliquez la police Wingdings à cette cellule B1. Vous aurez alors ce résultat.

largeur de colonne et hauteur de ligne en centimètres

Sub ColonnesEnCentimetres()
     Dim iCm As Integer, iPoints As Integer, iOldLargeur As Integer
     Dim iNb As Integer, iMax As Integer, iCurr As Integer, iMin As Integer

     iCm = Application.InputBox("Entrer la largeur de la colonne en iCms", "Largeur de la colonne souhaitée")
     If iCm = False Then Exit Sub
     iPoints = Application.CentimetersToPoints(iCm)
     iOldLargeur = ActiveCell.ColumnWidth
     'la largeur d'une colonne se fait en fonction de la largeur des caractères
     ' on simule donc la largeur avec 255 caractères
     iMin = 0
     iMax = 255
     ActiveCell.ColumnWidth = iMax
     If iPoints > ActiveCell.Width Then
          MsgBox "la largeur de" & iCm & "est trop large" & Chr(10) & "la valeur maxi est de " & _
               Format(ActiveCell.Width / 28.3464566929134, "0.00"), vbOKOnly + vbExclamation, "largeur non valable"
          ActiveCell.ColumnWidth = iOldLargeur
          Exit Sub
     End If
     'maintenant on recherche par approximation la largeur la plus proche de celle demandée
     ' en divisant par 2 à chaque boucle
     ActiveCell.ColumnWidth = 127.5
     iCurr = ActiveCell.ColumnWidth
     iNb = 0
     Do While (ActiveCell.Width <> iPoints) And (iNb < 20)
          If ActiveCell.Width < iPoints Then
               iMin = iCurr
               Selection.ColumnWidth = (iCurr + iMax) / 2
          Else
               iMax = iCurr
               Selection.ColumnWidth = (iCurr + iMin) / 2
          End If
          iCurr = ActiveCell.ColumnWidth
          iNb = iNb + 1
     Loop
End Sub

Sub LignesEnCentimetres()
     Dim iCm As Integer

     'pour la hauteur des lignes c'est plus simple il suffit de convertir des points en centimètres
     iCm = Application.InputBox("Entrer la hauteur de la ligne en centimetres", "Hauteur de la ligne souhaitée")
     If iCm Then Selection.RowHeight = Application.CentimetersToPoints(cm)
End Sub

Centrer verticalement un titre

• Tapez votre titre dans un nouveau document
• Fichier/Mise en page
• onglet Disposition, sélectionnez Centré dans la liste déroulante Alignement vertical.
• Cliquez sur OK.
• Insertion/saut
• sélectionnez saut de page
• Fichier/Mise en page
• onglet Disposition, sélectionnez Haut dans la liste déroulante Alignement vertical.
• sélectionnez A partir de ce point dans la liste déroulante Appliquer
• Cliquez sur OK.

Sauvegarder et/ou transférer ses comptes

Dans Outlook Express et Outlook jusqu'à la version 2000 :

• Outils/comptes
• Sélectionnez le compte que vous voulez sauvegarder ou transférer
• Cliquez sur Exporter, choisissez le dossier d'enregistrement et donnez un nom à ce fichier.

Pour restaurer ou récupérer ce compte sur un autre ordinateur :

• Outils/comptes
• Cliquez sur Importer et choisissez le fichier que vous avez exporter comme ci-dessus.

Dans la version d'Outlook XP, malheureusement Microsoft a enlevé cette possibilité d'exportation et d'importation. Il vous faut alors sauvegarder une clef dans la base de registre :

• dans le menu démarrer, choisissez Exécuter
• tapez regedit puis cliquez sur OK
• recherchez la clef suivante : HKEY_CURRENT_USER, Software, Microsoft, Office, Outlook, OMI Account Manager
• Sélectionnez-la, puis Fichier/Exporter
• choisissez le dossier d'enregistrement et donnez un nom à ce fichier.

Pour récupérer cette clef, il suffit de double-cliquer sur le fichier que vous venez de créer.