Lettre Avril 2003

Access

Types de jointure

Lorsque 2 tables sont reliées par une relation de type un à plusieurs, si vous créez une reqûete reprenant des données de chaque table, vous n'affichez que les données communes aux 2 tables.
Exemple, une table "Adhérents" contenant l'ensemble de vos adhérents, en ce qui concerne l'adresse, vous avez lié la ville à une table "Ville". Si l'adresse d'un adhérent n'a pas été renseigné, l'enregistrement correspondant n'est pas lié à un enregistrement de la table "Ville".
Lorsque vous établissez une requête reprenant les données de l'adhérent et celles de la ville correspondantes, celle-ci ne vous renvoie pas les adhérents sans indication de villes, d'où des erreurs possibles. Il faudrait donc obliger la requête à renvoyer tous les enregistrements de la table "Adhérents". Pour cela, dans la fenêtre de votre requête :

• double-cliquez sur la liaison entre les 2 tables
• dans la fenêtre qui s'ouvre choisissez l'option qui inclut tous les enregistrements de la table "Adhérent" et seulement ceux de la table "Villes" pour lesquels les champs sont égaux.

Excel

Effacer le contenu d'un tableau sans toucher aux formules

Si vous souhaitez remettre un tableau à zéro rapidement, tout en conservant les formules :

• Edition/Atteindre
• cliquez sur le bouton Cellules
• Cochez constantes et 
  • Nombres, si vous voulez effacer les données numériques
  • Texte, si vous voulez vider les cellules contenant du texte
  • Valeurs logiques, si vous voulez effacer les valeurs vrai ou faux
• Ok
• Maintenant que les cellules contenant des constantes (valeurs sans formule) sont sélectionnées appuyez sur la touche Suppr.

VBA

Suppression des doublons dans une liste

Public Sub SupprDoublon()
      Dim flleNouv As Worksheet, flleActu As Worksheet
      Dim rDoublon As Range

      Set flleActu = ActiveSheet
      Set rDoublon = Selection
      'exécute un filtre élaboré sans critère et sans doublon
      rDoublon.AdvancedFilter Action:=xlFilterInPlace, Unique:=True
      'ajoute une feuille
      Set flleNouv = Worksheets.Add
      'sélectionne uniquement les cellules visibles
      rDoublon.SpecialCells(xlCellTypeVisible).Copy
      ' on colle ces cellules dans la nouvelle feuille
      flleNouv.Range("A1").PasteSpecial xlPasteAll
      'on affiche tout pour annuler le filtre
      flleActu.ShowAllData
      'on efface tous le contenu de la plage 
      rDoublon.ClearContents
      ' on copie les données de la nouvelle feuille et on les colle dans la sélection
      flleNouv.Range("A1").CurrentRegion.Copy rDoublon.Cells(1)
      'on supprime la nouvelle feuille
      Application.DisplayAlerts = False
      flleNouv.Delete
      Application.DisplayAlerts = False
End Sub

Afficher, masquer les barres d'outils, de menu, de barre d'état

Sub MasqueBarre()
     Dim cbar As CommandBar

On Error GoTo GestionErreur
     ' pour chaque barre d'outils et menus
     For Each cbar In Application.CommandBars
          cbar.Enabled = False
     Next
     'lecture de l'état de la barre d'état
     EtatAffich = Application.DisplayStatusBar
     'masque barre d'état
     Application.DisplayStatusBar = False
     'lecture de l'état de la barre de formule
     FormAffich = Application.DisplayFormulaBar
     'masque barre de formule
     Application.DisplayFormulaBar = False
     Exit Sub
GestionErreur:
     MsgBox Err.Number & vbCrLf & Err.Description, vbOKOnly, "MasqueBarre"
End Sub

Sub AffichBarre()
     Dim cbar As CommandBar

On Error GoTo GestionErreur
     ' pour chaque barre d'outils et menus
     For Each cbar In Application.CommandBars
          cbar.Enabled = True
     Next
     'affiche barre d'état si affichée avant de masquer
     If EtatAffich Then Application.DisplayStatusBar = True
     'affiche barre de formule si affichée avant de masquer
     If FormAffich Then Application.DisplayFormulaBar = True
     Exit Sub
GestionErreur:
     MsgBox Err.Number & vbCrLf & Err.Description, vbOKOnly, "AffichBarre"
End Sub

Sub ListeBarre()
     Dim cbar As CommandBar

On Error GoTo GestionErreur
     ' pour chaque barre
     For Each cbar In Application.CommandBars
          'index dans la cellule active
          ActiveCell = cbar.Index
          'nom dans la langue local dans la cellule droite de la cellule active
          ActiveCell.Offset(0, 1) = cbar.NameLocal
          'nom anglais dans la cellule, 2 colonnes à droite de la cellule active
          ActiveCell.Offset(0, 2) = cbar.Name
          'sélection de la cellule situé sous la cellule active
          ActiveCell.Offset(1, 0).Select
     Next
     Exit Sub
GestionErreur:
     MsgBox Err.Number & vbCrLf & Err.Description, vbOKOnly, "ListeBarre"
End Sub

Lister le nom des barres d'outils et de menus

Utile si vous devez utiliser une barre et que vous ne connaissez pas son nom en Anglais.

Sub ListeBarre()
     Dim cbar As CommandBar

On Error GoTo GestionErreur
     ' pour chaque barre
     For Each cbar In Application.CommandBars
          'index dans la cellule active
          ActiveCell = cbar.Index
          'nom dans la langue local dans la cellule droite de la cellule active
          ActiveCell.Offset(0, 1) = cbar.NameLocal
          'nom anglais dans la cellule, 2 colonnes à droite de la cellule active
          ActiveCell.Offset(0, 2) = cbar.Name
          'sélection de la cellule situé sous la cellule active
          ActiveCell.Offset(1, 0).Select
     Next
     Exit Sub
GestionErreur:
     MsgBox Err.Number & vbCrLf & Err.Description, vbOKOnly, "ListeBarre"
End Sub

Windows

Minuscule et majuscule sous Windows 2000 et XP

Vous venez de passer à 2000 ou XP et êtes déroutés par le passage en majuscule et minuscule. Voici donc les nouvelles règles, qui après un peu d'habitude me paraissent plus pratique que précédemment :

1. pour passer en majuscules permanentes
2. en appuyant sur la touche , alors que les majuscules sont mises, la touche que vous appuierez prendra la forme minuscule,
3. pour revenir en minuscule permanentes
4. en appuyant sur la touche , alors que les minuscules sont mises, la touche que vous appuierez prendra la forme majuscule,

Vous préférez peut-être repassé à la méthode utilisée dans les versions de Windows précédentes :

• Démarrer/Panneau de configuration
• Options régionales et linguistiques
• dans l'onglet Langues, cliquez sur le bouton Détails
• dans l'onglet Paramètres, cliquez sur le bouton Paramètres de touches
• Sélectionnez Appuyez sur la touche Maj
• Ok, 3 fois.

Internet Explorer

Sauvegarder l'intégralité d'une page html dans un seul fichier

Lorsque vous êtes sur la page à enregistrer :

• Choisissez Enregistrer sous dans le menu Fichier.
• Dans la liste déroulante Type, sélectionnez Archive Web, fichier seul (*.mht).

Textes, images se trouvent alors dans un même fichier avec l'extension .mht, que vous pourrez aisément envoyer par mail ou graver sur un CD.

Word

Visualiser la taille des colonnes, lignes d'un tableau, des marges, des tabulations en cm

• Placez votre curseur, sur un des repères de marge dans la règle horizontale
• Maintenez la touche Alt appuyée et cliquez sur le bouton gauche de la souris, tant que vous ne relâcherez pas le bouton de la souris, les dimensions en cm s'affichent sur la règle.

Vous pouvez en faire autant avec :

• les repères de tabulation dans la règle horizontale
• les séparateurs de colonnes (colonnes ou tableau) dans la règle horizontale
• la ligne de séparation de 2 colonnes dans un tableau
• les marges dans la règle verticale
• les séparateurs de lignes (tableau) dans la règle verticale
• les lignes de séparation des lignes dans un tableau