-- Lettre de CATHY ASTUCE --

Lettre Janvier 2005

N'oubliez pas

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

Le lien du mois

Super ! Enfin un CD de formation sur le VBA d'Excel simple, clair et à portée de tous.
Je l'ai apprécié et vous le recommande fortement.

Un CD de formation sur le VBA

Je pensais vous faire un CD de formation pour le VBA, mais c'est un travail qui demande beaucoup de temps.
Gaëtan MOURMANT m'a devancée et franchement son CD est super, alors pourquoi vouloir refaire ce qui est déjà si bien fait, (je vous proposerais bientôt autre chose sur le site).

Gaëtan nous a concocté un CD clair, simple, avec une navigation aisée et à la portée de tous. Ce CD propose une formation structurée et progressive aux macros et à VBA. Pour tout vous dire sa pédagogie se fait oublier et vous prendrez plaisir à découvrir ou approfondir une facette d'Excel. Il combine des explications sous forme de texte et vidéos (une quarantaine), ainsi que des dizaines d'exemples commentés. N'hésitez pas à consulter le sommaire

Evidemment, vous comprendrez qu'un tel travail mérite salaire, vous pouvez donc vous le procurez pour 59 € :

par Carte bancaire sur
Si vous préférez payer par chèque ou investir dans plusieurs licences, contactez Gaëtan en précisant votre adresse : contact@polykromy.com

Access

Diffuser vos états

Certes vous pouvez imprimer vos états mais si vous désirez transmettre un état à une autre personne autrement que par papier comment faire ?

Après avoir ouvert votre état, vous pouvez utiliser :

l'instantané d'état que propose Access, seul problème, il faudra que la personne à laquelle vous destinez le fichier est Snapshot Viewer (téléchargeable ici) :
- Fichier/Exporter
- dans la liste Type de fichier, sélectionnez Fichier Snapshot (*.snp), donnez lui un nom et choisissez l'emplacement d'enregistrement.
le format html (format d'une page web) :
- Fichier/Exporter
- dans la liste Type de fichier, sélectionnez Document html (*.html, *.htm), donnez lui un nom et choisissez l'emplacement d'enregistrement.
  Vous aurez alors 1 fichier par page de votre état.
le format pdf (mon préféré). Certes ce dernier vous demande d'installer un logiciel (vous en trouvez des gratuits) qui transforme tout fichier à imprimer en fichier pdf, mais le destinataire pourra l'ouvrir à 99,9 %. Rares sont ceux qui n'ont pas Acrobat Reader (gratuit). Les :
- Fichier/Imprimer
- Sélectionner l'imprimante correspondant à la conception des pdf
- Suivez les instructions de votre logiciel
le format Word :
- Outils/Liaison Office/Exporter vers MsWord
  le format est en fait un format rtf, mais ouvrez votre fichier puis Fichier/enregistrer sous et choisissez le type Document Word
le format Excel :
- Outils/Liaison Office/Exporter vers MsExcel

Excel

Calculer Nb mn écoulées

Vous commencez un travail à 08:00 par exemple (inscrit en cellule A1) et vous désirez savoir régulièrement le nombre de minutes écoulées depuis le début.

En A2, tapez la formule =MAINTENANT()-AUJOURDHUI()
pourquoi MAINTENANT()-AUJOURDHUI(), en fait MAINTENANT() renvoie la date et l'heure de maintenant, hors nous n'avons pas besoin de la date. AUJOURDHUI() renvoie la date uniquement. donc MAINTENANT()-AUJOURDHUI() renvoie uniquement l'heure sans la date
En A3, tapez la formule =(A2-A1) *24*60
On soustrait toujours l'heure la plus ancienne à la plus récente (Excel n'affiche pas les heures négatives) puis on multiplie par 24 pour avoir le nombre d'heures au format décimal (pour Excel 1h = 1/24), puis par 60 pour avoir le nombre de minutes

Imprimer tableau vide

Vous voulez imprimer un tableau vide, avec 1 ou plusieurs lignes de titre mais sans données ni bordures, Si vous faites un aperçu et que vous ne voyez que les lignes de titre. Vous pouvez forcer l'impression en définissant la zone d'impression :

Sélectionnez la plage que vous voulez imprimer
Fichier/zone d'impression/définir

De plus si vous désirez imprimer une bordure à chaque cellule :

Fichier/mise en page
onglet Feuille
cochez Quadrillage dans la partie Impression

A quel trimestre correspond une date

Dans une cellule A1 vous avez une date, pour connaître à quel trimestre elle correspond, tapez la formule :

=ENT((MOIS(A1)-1)/3)+1

Pour afficher en plus l'année (par exemple 1-2005 pour le 1er trimestre de 2005) :

=(ENT((MOIS(A1)-1)/3)+1)&"-"&ANNEE(A1)

VBA

Ligne alternée sur une plage de cellule

' Obligation de mettre la couleur de fond sur la 1ère cellule de la 1ère ligne et de la 2ème ligne
' ensuite sélectionner la plage à colorer
Sub LigneAlterne()
    Dim lNoLigne As Long
    Dim iColor1 As Integer, iColor2 As Integer, iColmin As Integer, iColmax As Integer
    Dim rCel As Range

    Set rCel = Selection
    'le n° de la 1ère ligne de la sélection
    lNoLigne = rCel.Row
    'le n° de la 1ère colonne de la sélection
    iColmin = rCel.Column
    'le n° de la dernière colonne de la sélection = 1ère + Nb de colonnes -1
    iColmax = rCel.Columns.Count + iColmin - 1
    'index de la couleur de fond de la 1ère cellule de la 1ère ligne
    iColor1 = Cells(lNoLigne, iColmin).Interior.ColorIndex
    'index de la couleur de fond de la 1ère cellule de la 2ème ligne
    iColor2 = Cells(lNoLigne + 1, iColmin).Interior.ColorIndex
    'pour chaque paire de lignes de la sélection, la dernière est la 1ère + Nb de lignes -1
    For lNoLigne = lNoLigne To lNoLigne + rCel.Rows.Count - 1 Step 2
        'coloration de la 1ère ligne de la paire
        Range(Cells(lNoLigne, iColmin), Cells(lNoLigne, iColmax)).Interior.ColorIndex = iColor1
        'coloration de la 2ème ligne de la paire
        Range(Cells(lNoLigne + 1, iColmin), Cells(lNoLigne + 1, iColmax)).Interior.ColorIndex = iColor2
    Next
End Sub

Enregistrer un fichier en laissant le choix du nom à l'utilisateur

Function EnregFich(Wkb As Workbook) As String
    Dim strNom As Variant ' car contiendra soit du texte soit la valeur False (boolean)

    'ouvre la boîte de dialogue d'enregistrement mais cela n'enregistre pas.
    'par contre elle renvoie le nom et l'adresse choisit pour le fichier
    strNom = Application.GetSaveAsFilename(, "Fichier Excel (*.xls),*.xls")
    'si l'utilisateur a cliqué sur annuler alors strNom est égale à False
    If strNom <> False Then
        Wkb.SaveAs strNom
        Wkb.Close
        EnregFich = strNom
    End If
End Function

Word

Aperçu sur plusieurs pages rapide

Dans l'aperçu, vous pouvez indiquer le nombre de pages que vous désirez visualiser mais pour en voir plus ou moins il vous faut utiliser systématiquement le bouton Affichage plusieurs pages ou la liste déroulante Zoom.
Pour aller plus vite, vous pouvez utiliser tout simplement utiliser une combinaison du clavier et de votre souris directement depuis l'affichage page de votre document (inutile de cliquer sur le bouton Aperçu).
Maintenez la touche Ctrl de votre clavier puis faites tourner la roulette de votre souris, vers le haut pour agrandir et vers le bas pour réduire.

Outlook

Regrouper les courriels par conversation

Si vous avez répondu à un courriel, que le correspondant vous a répondu et ainsi de suite, cela peut-être intéressant de regrouper les mails par conversation. Pour cela :

Affichage/Affichage actuel/Par sujet de conversation

Vous n'avez plus alors qu'une ligne par conversation, cette ligne comporte un +, le sujet et un nombre de courriels (entre parenthèse).
Cliquez sur le + et toute la discussion se développera.

Un CD de formation sur le VBA

Access