Lettre Mars 2003

Access

Imprimer une documentation sur votre base

Avec l'outil d'analyse vous pouvez créer rapidement une documentation sur votre base. Si cet outil n'est pas installé dans votre version 97, il vous faut utiliser l'assistant d'installation pour l'ajouter.

• Ouvrez votre base de données
• Outils/Analyse/Documentation
• Dans la fenêtre qui s'ouvre, cliquez sur le bouton Options
• Sélectionnez les options comme dans l'image de droite, en ce qui concerne les champs, pour une documentation allégée, vous pouvez choisir Noms, types de données et tailles, pour les index, choisissez dans ce cas Noms et champs.
• Sélectionnez la ou les tables et cliquez sur Ok.
•  

Excel

Insérez des lignes avec la souris

• Sélectionnez le n° de ligne, par exemple 20
• Placez votre curseur dans l'angle droit inférieur du bouton de ligne, le curseur devient un +
• Maintenez la touche Maj appuyée
• Glisser vers le bas pour ajouter des lignes au-dessous, vers le haut pour ajouter des lignes au-dessus.

Déterminer si une année est bissextile

Une année est bissextile si le 29 février de cette année existe. En conséquence la formule suivante, considérant que la cellule A1 contient une année :
=DATE(A1;2;29)
renvoie le 1er mars de l'année si celle-ci n'est pas bissextile et le 29 février si elle l'est.
Pour tester il suffit donc d'établir la formule suivante :
=SI(JOUR(DATE(A1;2;29))=29;"bissextile";"normale")

Si vous désirez faire le test sur une date, la formule doit être (A1 contenant la date sur laquelle vous désirez faire un test):
=SI(JOUR(DATE(ANNEE(A1);2;29))=29;"bissextile";"normale")

VBA

Créer un timer

Dans un module, tapez le code suivant :

Dim Lheure As Double
Dim Interval As Integer

Public Sub LancerTimer(NbS As Integer)
      'L'application ExecutionTimer se lancera toutes les 0 heure, 0 minute et Interval seconde
      Interval = NbS
      ' la ligne suivante va lancer la procédure ExecutionTimer tous les intervalles secondes
      Application.OnTime Now + TimeSerial(0, 0, Interval), "ExecutionTimer"
End Sub

Public Sub ArretTimer()
      'Pour arrêter le timer, il suffit d'appeler cette procédure.
On Error Resume Next
      Application.OnTime Lheure, "ExecutionTimer", , False
End Sub

Public Sub ExecutionTimer()
      'code à exécuter à la fin de chaque Interval secondes
            'mettez ici votre code
      'code obligatoire
      Lheure = Now + TimeSerial(0, 0, Interval)
      Application.OnTime Lheure, "ExecutionTimer"
End Sub

Tri des feuilles d'un classeur par ordre alphabétique

Sub TriFeuille()
      Dim byNbFlle As Byte, byN As Byte
      Dim flleNouv As Worksheet

On Error GoTo GestionErreur
      'ne raffraichit pas l'affichage
      Application.ScreenUpdating = False
      'ajoute une nouvelle feuille et l'attribue à la variable flleNouv
      Set flleNouv = ActiveWorkbook.Worksheets.Add
      'compte le nombre de feuilles
      byNbFlle = ActiveWorkbook.Sheets.Count
      'dans la nouvelle feuille
      With flleNouv
            ' de 1 au nb de feuille
            For byN = 1 To byNbFlle
                  'si le nom de la feuille n'est pas celui de la nouvelle
                  ' inscription dans A-Nofeuille du nom de la feuille "Nofeuille"
                  If ActiveWorkbook.Sheets(byN).Name <> flleNouv.Name Then _
                        .Range("A" & byN) = ActiveWorkbook.Sheets(byN).Name
            Next
            'tri de la colonne par ordre alphabétique
            .Range("A1:A" & byNbFlle).Sort .Range("A1"), xlAscending, Header:=xlNo
            'lecture de cette plage triée et déplacement devant la nouvelle feuille
            For byN = 1 To byNbFlle - 1
                  ActiveWorkbook.Sheets(.Range("A" & byN).Text).Move Before:=flleNouv
            Next
            'suppression de la feuille contenant les noms de feuille
            Application.DisplayAlerts = False
            flleNouv.Delete
            Application.DisplayAlerts = True
      End With
Fin:
      'rafraichissement de l'affichage
      Application.ScreenUpdating = True
      Exit Sub
GestionErreur:
      MsgBox Err.Description, vbOKOnly, "ERREUR"
      GoTo Fin
End Sub

Windows

Votre version de DirectX

Si vous avez besoin de connaître la version de DirectX installée sur votre ordinateur, par exemple pour vérifier la compatibilité avec un jeux, sélectionez Information système dans démarrer/programmes/Accessoires/outils systèmes.
Puis dans la fenêtre qui s'ouvre, cliquez sur le menu Outils et sélectionnez Outils de diagnostice DirectX.
Vous trouverez le numéro de votre version dans l'onglet Système de la nouvelle fenêtre.

Activer le pavé numérique au démarrage de XP (ou 2000)

Attention, vous devez entrer dans la base de registre !

• démarrer/Exécuter
• Tapez regedit
• Ouvrez l'arborescence (en cliquant sur les +) pour afficher [HKEY_USERS\.DEFAULT\Control Panel\Keyboard]
• Double-cliquez sur la valeur InitialKeyboardIndicators et tapez la valeur 2
• Ok

Word

Mettre en forme un texte copié depuis Internet

Lorsque vous récupérez un texte depuis Internet il est souvent utile de le remettre en forme. Quelques actions rapides vous aiderons à remettre un peu d'ordre.

• Ctrl+a, pour tout sélectionner (à refaire si vous désélectionnez le texte au cours du travail qui suit)
• Appliquez la couleur Automatique (ainsi vous verrez le texte écrit en blanc dans le site)
• Remplacez les sauts de ligne par des marques de fin de paragraphe :
  • Édition/Remplacer
  • Cliquez dans la zone Rechercher
  • Cliquez sur le bouton Plus, s'il est affiché
  • Cliquez sur Spécial
  • Sélectionnez Saut de ligne manuel
  • Cliquez dans la zone Remplacer par
  • Cliquez sur Spécial
  • Sélectionnez Marque de paragraphe
  • Cliquez sur Remplacer tout
• Remplacez les espaces en trop :
  • Cliquez dans la zone Rechercher
  • Tapez un espace et {2;}, ceci permet d'indiquer que vous recherchez le texte constitué de 2 espaces et plus ({n;} après un caractère permet de rechercher les textes contenants n caractères contiguës et plus).
  • Cliquez dans la zone Remplacer par
  • Tapez un espace
  • Cochez Utiliser les caractères génériques
  • Cliquez sur Remplacer tout
• Enlever les tableaux
  • Tableaux/Convertir/Tableau en texte