Scinder 1 colonne en 2 (avec nom prénom par exemple)

Saisir des nombres au carré ou au cube

Cacher une feuille de classeur
Créer un lien automatique vers une autre zone de la feuille, une autre feuille,
un autre classeur, un document word ou autre
Afficher des points de suite dans une cellule
Éviter les ressaisies
Afficher correctement les fractions
Corriger automatiquement les fautes de frappe et d'orthographe
Choisir la façon d'incrémenter des séries
Modifier visuellement les sauts de page
Retrouvez les raccourcis clavier...
Double clic sur le bouton "reproduire la mise en forme"
Fusionner des Cellules
Insérer l'heure ou le jour..
Incrémenter un seul nombre
Fermer tous les fichiers en une seule fois
Déplacer des cellules d'une feuille de calcul à une autre feuille du même
classeur
Changer de feuille de calcul à l'aide d'un menu contextuel
Pour faire la même entrée dans plusieurs cellules
Figer une formule dans la barre de formule
Forcer le retour à la ligne dans une cellule
Ouvrir Excel avec son propre modèle
Cumuler dans une cellule (A2) chaque valeur saisie dans une cellule (A1)
Calculer une partie de formule dans la barre de formule
Masquer le contenu d'une cellule
Mettre un contrôle de saisie sur des cellules
Pour conserver exactement le texte que l'on vient de saisir, sans qu'Excel
prenne la liberté de le traduire "au mieux"
le double-clic magique sur le bouton de duplication d'une cellule
dans un classeur, passer rapidement d'un onglet à l'autre
pour passer rapidement d'un classeur à l'autre (lorsqu'il y en a plusieurs
d'ouverts)
Créer ses propres listes (fonctionnant comme la liste janvier, février,
mars,...)
pour ajuster automatiquement l'impression à une seule page en largeur et
indéfinie en hauteur.

Scinder 1 colonne en 2 (avec nom prénom par exemple)

Vous possédez une colonne contenant le nom et le prénom d'une

liste de personnes. Vous souhaitez créer 2 colonnes, une avec le
nom, l'autre avec le prénom.

 Commencez par insérer une colonne vide à droite de la

colonne à scinder
 Sélectionnez ensuite la colonne à scinder
 Utilisez le menu "Données/ Convertir" et choisissez l'option
"délimité"
 Cochez l'option "espace" et validez.

Saisir des nombres au carré ou au cube

si vous souhaitez, par exemple, taper 122, écrivez 12 puis le code :

ALT + 0178

Pour le cube tapez ALT + 0179

Cacher une feuille de classeur

Si vous souhaitez cacher une feuille de votre classeur, utilisez le

menu "Format/feuille/masquer".

Pour la réafficher ensuite, utilisez le menu "Format/feuille/afficher"

Créer un lien automatique vers une autre zone de la feuille, une autre feuille,
un autre classeur, un document word ou autre,

Tapez un texte quelquonque dans une cellule (par exemple :

atteindre feuil2")
sélectionnez la cellule et allez dans le menu "Insertion/lien
hypertexte
Dans la boîte de dialogue qui s'ouvre vous pouvez :

a) dans la première partie (en haut) indiquer le fichier à atteindre

(autre classeur Excel, fichier word, etc.),
b) dans la deuxième partie (en bas) l'emplacement dans le classeur
(nom de l'onglet, cellule ou plage nommée) ou dans le fichier choisi
(un signet pour word par exemple).

NB : Si vous souhaitez atteindre une zone dans le classeur actif, il

est inutile de renseigner la 1ere zone de la boîte de dialogue.
Afficher des points de suite dans une cellule (un truc de Myriam BOSSARD)

Dans une liste ou une énumération, il est parfois nécessaire pour

parfaire la présentation, d'ajouter des points de suite. Par exemple :

Article 1..............
Article 2...............
etc........................

Pour obtenir ce résultat, saisissez votre texte (ou vos chiffres) puis
dans Format - Cellule - Nombre - Catégorie "personnalisée",
créez le format :

@*. (insère le nombre de points nécessaires à droite du texte dans

la cellule).

ou bien

*.@ (insère le nombre de points nécessaires à gauche du texte

dans la cellule).

le point peut être remplacé par un autre symbole de ponctuation.

Éviter les ressaisies

Lorsque vous saisissez les 3 premières lettres d'un mot ou d'une

phrase, Excel vous propose automatiquement le terme en entier (à
condition évidemment que ce terme soit présent dans les cellules
précédentes). Il faut cependant taper obligatoirement au moins les 3
premières lettres et même d'avantage si les termes que vous avez
déjà saisis commencent de la même façon (table, tableau,
tabulation, etc...)

Pour accélérer la saisie, vous pouvez demander à Excel d'afficher

les termes que vous avez déjà saisis sous la forme d'une liste
déroulante. Pour cela, saisissez la première lettre du terme à saisir
et appuyez simultanément sur les touches <Alt> et <Flèche vers le
bas>. La liste apparaît, choisissez le terme qui vous intéresse et
taper sur <Entrée>.

Un autre moyen consiste à utiliser le menu contextuel (qui s'obient

en cliquant avec le bouton droit de la souris) et chosir l'option "liste
de choix".

Attention : Ces 2 possibilités ne fonctionnent que si la cellule

précédente est "non vide". Si vous voulez utiliser tout de même la
liste de choix dans un tableau où vous devez laisser des lignes
vides, plutôt que de sauter une ligne lors de la saisie, tapez un
espace dans la cellule à laisser vide ! La liste de choix continuera
ainsi de fonctionner

Corriger automatiquement les fautes de frappe et d'orthographe

Excel peut corriger automatiquement les fautes de frappe et

d'orthographe à condition de spécifier auparavant un mot souvent
mal tapé ou mal orthographié.

Dans le menu Outils, cliquez sur Correction automatique. La case à

cocher Correction en cours de frappe doit être activée.

Placez-vous ensuite dans la zone Remplacer et tapez un mot que

vous tapez ou orthographiez souvent de manière erronée (par
exemple, anuité). Dans la zone Par, tapez le mot correctement
orthographié (par exemple, tapez annuité). Cliquez sur Ajouter pour
valider le mot.

Retrouvez les raccourcis clavier...

Retrouver les raccourcis clavier :

Avec Excel 5, utiliser l'assistant conseil ! Je ne vais pas énumérer ici

tous les raccourcis claviers. Le meilleur moyen de retrouver les
raccourcis clavier et d'autres astuces est d'utiliser l'assistant conseil
(sans être obliger de le laisser en permanence)
Avec Excel 97, il faut utiliser la bébête (c'est à dire le compagnon
Office) que je trouve moins efficace en l'occurrence que l'assistant
conseil. Vous pouvez également saisir "raccourci' dans la boite du
compagnon Office (la bébête) et cliquer sur "Rechercher"

Évident, mais encore faut il y penser et le mettre en oeuvre !

Double clic sur le bouton "reproduire la mise en forme"

Ordinairement, lorsque l'on veut reproduire la mise en forme d'une

cellule sur une autre on procède de la façon suivante :

a) on sélectionne la cellule dont on souhaite reproduire la mise en

forme,
b) on clique sur l'outil de mise en forme (pinceau),
c) on sélectionne la cellule (ou plage de cellule) sur la quelle on
désire reproduire la mise en forme de la cellule de départ.

Ce procédé n'est utilisable que pour une seule destination à la fois.

Si l'on veut reproduire la mise en forme de la cellule de départ sur
plusieurs cellules (ou plages de cellules) distinctes, il faut
recommencer l'opération à chaque fois. pour éviter cela il suffit
d'effectuer un Double clic sur le bouton "reproduire la mise en
forme" :

le bouton reste sélectionné pour permettre de copier les formats

dans plusieurs plages.

Attention : l'outil reste actif tant que l'on a pas cliqué à nouveau
dessus.

Fusionner des Cellules

pour centrer sur plusieurs colonnes sans utiliser [fusion-

cellules] ...(qui cause bien du souci lorsqu'on veut insérer une
nouvelle colonne ! ) :

il suffit de placer son texte dans la première cellule à droite de la

sélection sur laquelle on désire voir le titre centré puis:
format-cellule
..alignement
....horizontal
.....centré sur plusieurs colonnes.

Je recommande même de dévier le bouton [Fusion-cellules] sur

une macro du classeur perso qui centre sur plusieurs colonnes et
qui est la suivante :

'---------------------------------------------------
Sub CentreSurPlusieursColonnes()
' Macro enregistrée le 17/03/99 par JMS
With Selection
.HorizontalAlignment = xlCenterAcrossSelection
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.ShrinkToFit = False
.MergeCells = False
End With
End Sub

Insérer l'heure ou le jour..

Insérer l'heure : CTRL : (Touche "Contrôle" + "double point" )

Insérer la date du jour : CTRL ; (Touche "Contrôle" + " point virgule"
)

Incrémenter un seul nombre

Incrémenter un seul nombre: CTRL + faire glisse la poignée de

recopie (Coin inférieur droit de la sélection)
Fermer tous les fichiers en une seule fois

Maintenir la touche MAJ enfoncée tout en utilisant le menu Fichier.

L'option "Fermer tout" s'affiche à la place de la fonction "Fermer".

Déplacer des cellules d'une feuille de calcul à une autre feuille du même
classeur

Au préalable créer une nouvelle fenêtre à l'aide du menu "Fenêtre-

nouvelle fenêtre
Puis, afficher les deux fenêtres à l'aide du menu "Fenêtre-
Réorganiser..."
Dans une fenêtre selectionner la feuille de calcul de départ et dans
l'autre fenêtre la feuille de calcul d'arrivée
Selectionner les cellules à déplacer sur la feuille de départ,
Faire glisser la sélection vers l'onglet de la feuille recevant la copie
en maintenant la touche ALT enfoncée.

Changer de feuille de calcul à l'aide d'un menu contextuel

Placez vos feuilles (onglets) en ordre alphabétique pour faciliter

la navigation entre elles. En cliquant sur le bouton droit de la souris
alors que le pointeur est situé sur les flèches de navigation entre les
feuilles, la liste de ces dernières vous est offerte en menu
contextuel.

Pour faire la même entrée dans plusieurs cellules

Pour faire la même entrée dans plusieurs cellules (valeur ou

formule), sélectionnez la plage, inscrivez votre entrée et cliquez
"Ctrl+Retour".

Figer une formule dans la barre de formule

Sélectionner la formule dans la barre de formule, puis taper sur la

touche F9. La formule sera remplacée par son résultat.

Forcer le retour à la ligne dans une cellule

Pour forcer le retour à la ligne dans une cellule sans utiliser le menu
"Format-Cellule-Alignement, appuyer sur la combinaison de touches
ALT+Entrée à l'endroit désiré.

Afficher correctement des fractions

Si vous saisissez dans une cellule la fraction 1/5, Excel affichera 1er
mai !. pour afficher correctement votre fraction, il faut ajouter devant
votre saisie une 0 (zéro) suivi d'un espace. Par exemple, pour saisir
1/5 et qu'excel ne le prenne pas pour une date , il suffit de saisir 0
1/5 (1/5 s'affiche)
Ouvrir Excel avec son propre modèle

Enregistrervotre modèle (Type de fichier modèle) sous le nom

"Classeur" dans le sous répertoire Xlouvrir d'Excel ou d'Office.
(Modifier le style, le nombre de feuilles, etc. de votre modèle, afin d'obtenir un
classeur par défaut tel que vous le souhaitez)

Cumuler dans une cellule (A2) chaque valeur saisie dans une cellule (A1)

Exemple : Je saisi le chiffre 2 dans la cellule A1, en A2 apparaît 2,

puis je saisi le chiffre 5 dans A1 en A2 apparaît 7.
Pour obtenir ce résultat :

a) utiliser le menu "Outils-Options", choisir l'onglet Calcul. Puis,

cocher la case Itération et mettre le nombre d'itérations à 1 et
l'intervalle maximum à 1. Désactiver le calcul automatique.
b) en A2, saisir la formule =A1+A2
c) Après chaque modification de A1 Faire F9 pour calculer.

(Attention, pensez à rétablir les modifications des options (Itérations et mode de

calcul))

Calculer une partie de formule dans la barre de formule

Vous voulez vérifier une partie d'une formule de calcul que vous
avez construit en affichant son résultat (par exemple dans la formule
: =SOMME(A1:B2)+SOMME(C4:D12) vous voulez connaître le
résultat de "SOMME(A1:B2)").

a) Sélectionnez cette partie de la formule dans la barre de formule et

appuyez sur la touche F9. La partie sélectionnée sera remplacée
par sa valeur.
b) Appuyer sur Ctrl Z (annuler) pour afficher à nouveau la formule à
la place de la valeur.
Masquer le contenu d'une cellule

Appliquer le format personnalisé ";;;" ou choisir une police de texte

de même couleur que le fond de la cellule (blanc si la cellule
apparaît en blanc!).
A noter que le contenu est affiché dans la barre de formule ( pour ne
pas l'afficher, décocher l'option "Barre de formule" du menu
Affichage).

Mettre un contrôle de saisie sur des cellules

(Excel 97)
Choisir la (ou les) cellule(s) sur la(les)quelle(s) vous voulez faire un
contrôle.
Puis dans le menu \Données\Validation, saisissez le contrôle que
vous voulez effectuer.
(vous pouvez également saisir un commentaire et un texte de message)

Pour conserver exactement le texte que l'on vient de saisir, sans qu'Excel
prenne la liberté de le traduire "au mieux"

Pour conserver exactement le texte que l'on vient de saisir, sans

qu'Excel prenne la liberté de le traduire "au mieux...", il suffit
simplement de placer le caractère ' (apostrophe) en tête.

exemple :
- si on veut écrire 1/10 Excel traduit en 01-oct.
- si l'on maintient son désir de voir apparaître 1/10, il faut écrire '1/10
, (avec un apostrophe comme 1er caractère) et là, Excel s'incline...

remarque : si l'on veut utiliser des fraction, il faut taper 0 1/10 et là;
on peut, en plus, faire des calculs (précision que m'a communiquée
l'internaute C. Ferlet...)

le double-clic magique sur le bouton de duplication d'une cellule

Lorsqu'apparaît la croix, plutôt que tirer laborieusement la formule

vers le bas, il suffit de double-cliquer dessus. La formule se duplique
alors jusqu'à la dernière cellule, à condition qu'il y ait des données
sur la colonne de droite ou de gauche.
exemple avec un calcul d'âge (dont la formule est apparente) >>>> il
suffit de double-cliquer sur la croix noire (1ère figure) pour que la
formule se duplique jusqu'en B14 (2ème figure).

dans un classeur, passer rapidement d'un onglet à l'autre

dans un classeur, passer rapidement d'un onglet à l'autre :

+ (ou Pg AR)

ou + (ou Pg AV)

pour passer rapidement d'un classeur à l'autre (lorsqu'il y en a plusieurs

d'ouverts)

+ dans un sens

+ + dans l'autre sens

Créer ses propres listes (fonctionnant comme la liste janvier, février,

mars,...)

Utiliser des listes

Il existe dans Excel des listes que l'on peut utiliser de la façon
suivante :
Par exemple : Ecrivez " Janvier " dans une cellule et validez
Selectionnez cette cellule
A l'aide de la poignée de recopie (en bas à droite de la cellule) tirez
vers la droite (ou vers le bas)
Dans les cellules suivantes apparaitrons : " février " puis " mars "
etc.

Le même principe fonctionne avec lundi, mardi, mercredi, etc.

NB : le format du mot saisi (majuscule, minuscule, première

majuscule) sera repris, lors de la recopie, pour tous les éléments de
la liste

Créer ses propres listes

Vous possédez une liste de noms que vous utilisez

frequemment.Vous pouvez la mémoriser de façon à la réutiliser
ultérieurement.

a) Utilisez le menu " Outils - options " et choisissez l'onglet " Listes
pers. ",
b) Dans la zone " Listes personnalisées " cliquez sur " Nouvelle liste
",
c) Dans la zone " Entrées de la liste " saisissez les éléments de
votre liste en tapant sur la touche " Entrée " après chaque élément ,
d) Quand la liste est entièrement saisie, cliquez sur le bouton "
Ajouter " puis sur OK.

Votre liste est désormais utilisable en tapant n'importe quel élément

de celle-ci dans une cellule.

Vous pourrez par la suite modifier cette liste en la sélectionnant

dans la partie " Lstes personnalisées " et en agissant dans la partie "
Entrées de la liste ".

pour ajuster automatiquement l'impression à une seule page en largeur et

indéfinie en hauteur.

Pour ajuster automatiquement l'impression sur 1 page en largeur, en

laissant libre le nombre de pages en hauteur (par exemple pour
imprimer une longue liste d'informations).

Fichier
Mise en Page - onglet Page
1

Ajuster à page en largeur sur en hauteur.

Choisir la façon d'incrémenter des séries

Dans Excel, il est possible de recopier des données en les

incrémentant. Exemple : vous écrivez "lundi" dans une cellule, vous
sélectionnez la poignée de recopie (en bas à droite de la cellule),
vous cliquez-glissez vers la droite ou vers le bas avec le bouton
gauche de la souris et dans les cellules suivantes s'écrira
automatiquement : mardi, mercredi, jeudi, etc.

Cette astuces fonctionne avec les jours, les mois et toute autre série
que vous aurez créé vous même (voir comment créer une série
dans le manuel Excel niveau 2).
Vous pouvez
également choisir ce
que vous voulez
incrémenter (valeurs,
jours ouvrés, format,
etc). pour cela, au lieu
d'effectuer le cliqué-
glissé avec le bouton
gauche de la souris,
vous utiliserez le
bouton droit. De
cette façon vous
obtiendrez un menu
contextuel (voir ci
contre).

Le menu illustré ci
contre a été obtenu
en voulant
incrémenter une date.
On voit que l'on peut
incrémenter les jours,
les jours ouvrésles
mois, mais aussi le
format ou la date elle-
même.

Modifier visuellement un saut de page

Quand une feuille de calcul doit s'imprimer sur plusieurs pages, on

peut choisir l'endroit où les sauts de page vont s'effectuer. Pour cela
sélectionne la ligne (ou la colonne) où l'on souhaite insérer le saut
de page et on utilise le menu Insertion-Saut de page (Même
opération pour supprimer le saut de page, le menu aura changé en
Insertion-supprimer le saut de page).

Il est possible (dans Excel 97) de visualiser ces sauts de page. Pour
cela, utiliser le menu Affichage-aperçu des sauts de page. Dans
cet écran, qui visualise également la découpe des pages, il sera
alors possible de déplacer ces sauts de page (matérialisés par une
ligne bleue) en les faisant glisser à l'aide de la souris.
Vérifier les données saisies, ou comment éviter de saisir des données erronées dans vos
cellules,
Trouver des doublons dans une liste de valeurs

Calculs sur les dates avec la fonction =DATEDIF()

Astérix et Obélix au pays d'Excel (des chiffres romains dans vos tableaux)
Des sous totaux dans vos tableaux
Afficher des heures négatives avec le signe "-"
Additionner des heures au delà de 24 heures
Multiplier des heures par des francs
Arrondir un montant aux 5 centimes les plus proches
Arrondir un montant aux 50 centimes les plus proches
Masquer les messages d'erreur affichés dans les cellules
Arrondir un nombre au quart de point supérieur
Transformer un nombre en Heures : Minutes : Secondes
Changer une référence d'absolue vers relative et inversement
La fonction audit permet de voir toutes les cellules qui entrent directement ou
indirectement dans un calcul ...
Passer d'heure Excel en heure centième
Détecter si une date est dans une année est bissextile
Rechercher le dernier jour d'un mois
Afficher le jour d'une date avec une majuscule pour la première lettre
Rechercher le nombre de valeurs différentes dans une plage de cellules
Comment utiliser une formule pour faire appel à une adresse qui se trouve
dans une cellule
Calculer et obtenir des heures négatives
Calculer le nombre de date en fonction d'un mois Avec NB.SI
Le double-clic magique sur le bouton de duplication d'une cellule
On peut utiliser les intitulés de colonnes dans les formules !
Visualiser, et imprimer, toutes les formules de calcul de votre feuille
La fonction CHOISIR() à la place de la fonction SI ()
Vérifier les données saisies

Pour limiter les risques d'erreur lors de l'ajout de données dans une feuille, Excel propose
d'appliquer au contenu d'une cellule des critères de validation. Par exemple, il est possible
d'autoriser uniquement des nombres entiers compris entre deux valeurs, ou encore uniquement
une date valide…
C'est très simple. Vous sélectionnez une cellule ou un champ, puis vous vous dirigez vers le
menu : Données > Validation. (Dans Excel 2007 Onglet "Données" puis outil "Validation des
données").

L'onglet "options" permet de

définir les critères de restriction. On peut même y indiquer une formule mathématique
personnalisée !

Imaginons que nous voulions restreindre le contenu à une date comprise entre le 1er janvier
2007 et le 31 décembre 2008. Il suffit de sélectionner Date dans la liste déroulante, puis
d'entrer les dates de début de fin. Validez en cliquant sur OK.

Pour n'autoriser que que quelques mots ou nombres utilisez "Liste" et saisissez votre liste de
mots ou nombres autorisés (ou faites références à un plage de cellules de votre classeur
contenant les mots ou nombres autorisés)

Les onglets "Message de saisie" et "Alerte d'erreur" proposent également l'affichage d'un
message à l'instant où la cellule est cliquée (pour indiquer à l'utilisateur quel type
d'informations inscrire) et quand les données tapées ne sont pas valides (pour lui signifier
l'erreur de saisie).
Trouver des doublons dans une liste de valeurs (merci à Serge Veillette)

voici une formule qui combiné a une condition et pour enjoliver a l'élimination des erreurs,
nous permet de trouver des doublons entre deux colonnes de données de toutes sortes.

Exemple : dans la colonne A une liste de valeurs (chiffre ou texte) ; dans la colonne B une
autre liste de valeurs. On va construire en colonne C une formule qui détectera les valeurs de
la colonne B qui sont également présentes dans la colonne A.

Voici sa syntaxe :

=SI(ESTERREUR(RECHERCHEV(B1;$A$1:$A$26;1;FAUX));"";RECHERCHEV(B1;$A$
1:$A$26;1;FAUX))

La formule est à construire en C1 et à recopier autant de fois que nécessaire (jusqu'au bas de
la liste). Ici la formule recherche dans la colonne de gauche "A" la valeur d'une cellule de la
colonne B qui pourrait être présente et l'inscrit dans la troisième colonne (là ou se trouve la
formule)

Décortication de la formule :
Recherche la valeur de "B1";dans la plage de cellules de la colonne de gauche "A1 à A26" (a
noter les $ présents afin de conserver la plage de sélection fixe lors de la recopie de cette
formule dans les autres cellules de la colonne "C"); si la valeur de la cellule n'est pas trouvée,
n'inscrit pas un code d'erreur mais laisse la cellule de la colonne C (là ou se trouve la
formule) blanche (sans valeur); si la valeur est trouvée (doublon) alors indique la valeur du
doublon

Calculs sur les dates avec la fonction =DATEDIF()

Attention, pour faire fonctionner cette formule vous devez activer la macro
complémentaire "Utilitaire d'analyse".
Pour cela, allez dans le menu "Outils/ Macros complémentaires", cochez l'option
"Utilitaire d'analyse" et cliquez sur OK.

La fonction =DATEDIF() permet de calculer la différence entre deux dates en années, mois et
jours. Elle conmporte 3 arguments :

Syntaxe : =DATEDIF(Date1;Date2;code)

Cette fonction renvoie la différence entre Date1 et Date2 (attention, Date2 >= Date1) selon
l'argument Code, qui peut prendre les valeurs suivantes :

 "y" : différence en années

 "m" : différence en mois
 "d" : différence en jours
 "ym" : différence en mois, une fois les années soustraites
 "yd" : différence en jours, une fois les années soustraites
 "md" : différence en jours, une fois les années et les mois soustraits
La fonction =DATEDIF() peut être en particulier utilisée pour calculer des âges. Par exemple,
si la cellule A1 contient une date de naissance et la cellule A2 la date du jour :

Exemple : en A1 20/04/1963 et en A2 : 27/05/2002

Formule Résultat
En années =DATEDIF(A2;A1;"y") 39
En mois =DATEDIF(A2;A1;"m") 469
En jours =DATEDIF(A2;A1;"d") 14282
différence en mois, une fois les années
=DATEDIF(A2;A1;"ym") 1
soustraites
différence en jours, une fois les années
=DATEDIF(A2;A1;"yd") 37
soustraites
différence en jours, une fois les années et les
=DATEDIF(A2;A1;"md") 7
mois soustraits

Obélix au pays d'Excel (des chiffres romains dans vos tableaux)

Pour obtenir l'affichage d'un nombre en chiffre romains, il suffit d'utiliser la formule
=ROMAIN()

par exemple,

 vous tapez le nombre 1963 dans la cellule A1,

 en A2 vous écrivez : =ROMAIN(A1)
 vous obtenez : MXMLXIII

Des sous totaux dans vos tableaux

La fonction =SOUSTOTAL(no_fonction;réf1;réf2;...) vous permettra d'effectuer tout un tas

d'opérations portant sur une série de données. Cette fonction exige 2 arguments :

 no_fonction représente le nombre compris entre 1 et 11 indiquant quelle fonction

utiliser pour calculer les sous-totaux d'une liste (voir ci-dessous).
 Réf1, réf2, représentent les 1 à 29 plages ou références pour lesquelles vous voulez un
sous-total.

La liste des opérations disponible dans le 1er argument est la suivante :

1 MOYENNE 7 ECARTYPE
2 NB 8 ECARTYPEP
3 NBVAL 9 SOMME
4 MAX 10 VAR
5 MIN 11 VAR.P
6 PRODUIT
Par exemple, =SOUSTOTAL(9;A1:A18) fera la somme des cellules A1 à A18. Chose
interessante, si ces cellules contiennent elles-même un sous total, il ne sera pas pris en compte
(voir ci-dessous)

Remarques

 Si d'autres sous-totaux se trouvent à l'intérieur de la plage définie par les arguments

réf1, réf2,... (ou sous-totaux imbriqués), ces sous-totaux imbriqués ne sont pas pris en
compte afin d'éviter tout comptage en double.
 La fonction SOUS.TOTAL ne prend pas en compte les lignes masquées suite à un
filtrage. Le sous-total ne porte que sur les données visibles résultant du filtrage d'une
liste.
 Si l'une des références est une référence 3D, la fonction SOUS.TOTAL renvoie la
valeur d'erreur #VALEUR!

Afficher des heures négatives avec le signe "-"

Il faut créer et utiliser le format de nombre suivant : [Rouge]-[h]:mm

Additionner des heures au delà de 24 heures

Essayez d'addidtionner : 15:30 et 20:50 , vous obtiendrez : 12:20 !

Comment dès lors pouvoir additionner des nombres saisis au format heures-minutes ?

Il suffit en fait d'appliquer un format de nombre personnalisé à la cellule contenant la formule

de somme . Le format est le suivant (format à créer dans le menu "format/cellule/onglet
nombre/catégorie personnalisé" et écrire dans la zone "type")

[hh]:mm

Multiplier des heures par des francs

Un petit truc maintenant pour calculer en heures REELLES et en finir avec les centièmes.

B C
A
=
1 8:15 100
A1*B1/"1:00"
2

soit 825,00 . Ne pas oublier de formater C1 en monnaie.

Arrondir un montant aux 5 centimes les plus proches

Etant donné un nombre dans la cellule A1, la formule est la suivante :

=ARRONDI(A1*2;1)/2

Arrondir un montant aux 50 centimes les plus proches

Etant donné un nombre dans la cellule A1, la formule est la suivante :

=ARRONDI(A1*2;0)/2

Masquer les messages d'erreur affichés dans les cellules

Il arrive que, en fontion des données de votre feuille de calcul, vos formules affichent
des messages d'erreur.
Cela peut se produire notamment lorsque les formules sont préparées à l'avance et
que les cellules utilisées dans une formule sont vide. Par exemple dans la cellule A3
on tape la formule : =A1/A2. Cette formule affichera #DIV/0! si A2 est vide.

Pour masquer ce message d'erreur, on peut utiliser la mise en forme conditionnelle

d'Excel.

1/ on sélectionne la cellule contenant la formule fournissant éventuellement un

message d'erreur, (dans notre exemple la cellule A3),
2/ on utilise le menu "Format - Mise en forme conditionnelle",
3/ dans condition 1, on déroule la liste et on choisi "La formule est",
4/ dans le champ de droite on écrit : =ESTERREUR(A3)
5/ on clique sur le bouton "Format" et dans l'onglet "Police" on choisi le blanc come
couleur de police,
6/ on valide en cliquant sur OK pour les 2 boîtes de dialogue.

Si A3 est rempli, le résultat du calcul apparaît, sinon la cellule semble vide.

Changer une référence d'absolue vers relative

Selectionner dans la barre de formule la référence de cellule à changer et taper sur

la touche "F4"
La fonction audit permet de voir toutes les cellules qui entrent directement ou indirectement
dans un calcul

Vous voulez repérer les cellules prises en compte dans un calcul ? : Menu "Outils-
Audit-Repérer les antécédents".

Vous voulez savoir si une cellule est utilisée dans un calcul ? : Menu "Outils-Audit-
Repérer les dépendants".

Vous voulez supprimez les flêches générées par le menu "Outils-Audit" ? : Menu
"Outils-Audit-Supprimez toutes les flêches.

Passer d'heure Excel en heure centième

Passer d'heure Excel en heure centième : HeureExcel*24 . Ex A1=1:30. A1*24

donne 1,50 (ne pas oublier de mettre la cellule contenant la formule dans un format
numérique et non date)

Détecter si une date est dans une année est bissextile

Détecter si une date est dans une année est bissextile.

La formule suivante "=SI(MOIS(DATE(ANNEE(A1);2;29)) =2;VRAI;FAUX)" renvoie
vrai si la date en A1est bissextile et faux dans le cas contraire.

Rechercher le dernier jour d'un mois

Rechercher le dernier jour d'un mois.(30, 31, 28 ou 29)

=JOUR(DATE(ANNEE(A1);MOIS(A1)+1;0))

A1 contient une date au format excel évidemment.

Afficher le jour d'une date avec une majuscule pour la première lettre

Afficher le jour d'une date avec une majuscule pour la première lettre :

=STXT(MAJUSCULE(TEXTE(A1;"jjjj"));1;1)&STXT(TEXTE(A1;"jjjj");2;10)

A1 contient une date au format excel

On obtient le même résultat avec :

NOMPROPRE(TEXTE(A1;"jjjj"))

A noter que "jjjj" peut être remplacer par "mmmm" (pour obtenir le mois) ou encore
par "jjjj mm aaaa"....

Rechercher le nombre de valeurs différentes dans une plage de cellules

Rechercher le nombre de valeurs différentes dans une plage :

Formule matricielle {=SOMME(1/NB.SI(Maplage;Maplage))}

Saisir :

=SOMME(1/NB.SI(Maplage;Maplage))

et valider avec touches Ctrl-Maj-Entrée (Merci à Laurent Longre..)

Comment utiliser une formule pour faire appel à une adresse qui se trouve dans une cellule

L'indirection ! ou comment utiliser une formule pour faire appel à une adresse qui
se trouve dans une cellule
A2 contient le nom d'un classeur ("Exefac.xls" par exemple)
A3 contient la formule: =INDIRECT(A2&"B6")
Donc A3 aura la valeur contenu dans la cellule B6 de Exefac.xls (qui doit etre ouvert,
bien entendu)

Calculer et obtenir des heures négatives

Calculer et obtenir des heures négatives :

=(SI(B1>A1;B1-A1;"-"&TEXTE(A1-B1;"hh:mm")))

Dans ce cas si

A1=7:00 et B1=6:00, on renvoie bien -1:00

Calculer le nombre de date en fonction d'un mois Avec NB.SI

Calculer le nombre de date en fonction d'un mois Avec NB.SI

en G2, saisir :

=NB.SI($A$2:$D$3;">"&DATE(ANNEE(G1);MOIS(G1);0))-
NB.SI($A$2:$D$3;">"&DATE(ANNEE(G1);MOIS(G1)+1;0))

(Cette formule fait suite à une question d'un internaute ,qui lui même chercher à
répondre à une internaute, etc...)

Le double-clic magique sur le bouton de duplication d'une cellule Merci à jean-marc stoeffler
pour ce truc
Lorsqu'apparaît la croix, plutôt que tirer laborieusement la formule vers le bas, il suffit
de double-cliquer dessus. La formule se duplique alors jusqu'à la dernière cellule, à
condition qu'il y ait des données sur la colonne de droite ou de gauche.

exemple avec un calcul d'âge (dont la formule est apparente) >>>> il suffit de double-
cliquer sur la croix noire (1ère figure) pour que la formule se duplique jusqu'en B14
(2ème figure).

On peut utiliser les intitulés de colonnes dans les formules !

Merci à jean-marc stoeffler pour ce truc
en oubliant les fameuses références A5, D3, H4 ... (la bataille navale, c'est terminé !!)
-

Attention : Dans Excel 2003 il faut activer l'option dans le menu "outils/ options/ onglet
calcul" et cocher la case : Accepter les étiquettes dans les formules.

Visualiser, et imprimer, toutes les formules de calcul de votre feuille

Merci à jean-marc stoeffler pour ce truc

une "radiographie pulmonaire" de votre feuille de calcul...fonction Outils-

Option-Affichage - et l'on clique Formules :

La largeur des colonnes est alors multipliée par deux et vous visualisez (et pouvez
imprimer) vos formules de calcul.

La fonction CHOISIR() à la place de la fonction SI()

Exemple avec des taux de remise variables en fonction d'un code (1,2 ou 3) affichant
des remises de 5%, 10% ou 15 % :

La cellule A1 contient le code d'escompte (1, 2 ou 3),

La cellule en B1 s'écrit :

=CHOISIR(A1;5%;10%;15%)
où Si le code de remise est "1" la valeur de B1 sera 5%, si le code de remise est "2"
la valeur de B1 sera 10% et si le code d'escompte est "3", la valeur de B1 sera 15%.

La formule peut contenir autant de variables que vous le désirez.

Arrondir un nombre au quart de point supérieur

Si le nombre se trouve dans la cellule A1, la formule sera la suivante :

=PLAFOND(A1;0,25)

Transformer un nombre en Heures : Minutes : Secondes

Il suffit de diviser le nombre par 86400 et mettre ensuite la cellule au format :

HH:MM:SS

Utilisez le contenu d'une cellule pour nommer votre onglet

Repérez des doublons dans une plage de cellules

Nommez automatiquement un onglet à partir du contenu d'une cellule
Toujours ouvrir un classeur sur une feuille définie
Compter le nombre de fois où une valeur est présente dans une feuille de calcul
Ouvrir Word à partir d'Excel Convertir des nombres en heures
Additionner les nombres contenus dans les cellules dont le texte est en bleu (ou rouge, ou
vert, etc.)
Compter le nombre de cellules dont le fond est coloré en bleu (ou rouge, ou vert, etc.)
Une macro de conversion Francs- Euros et Euros-Francs
Convertir des majuscules en minuscules
Convertir un nombre en lettres (fonctionne avec des Francs ou des Euros)
Ajouter le nom complet du classeur dans le pied de page (pour édition) de la feuille
Masque les lignes vides d'une sélection
Sélection d'une plage de cellules à partir d'une cellule sélectionnée

Utilisez le contenu d'une cellule pour nommer votre onglet

Vous voulez nommer un onglet en reprenant le contenu d'une cellule. Par exemple
vous avez écrit dans la cellule A1 le mot "janvier" et vous voulez que l'onglet se
nomme "janvier".

 Lancez l'éditeur VBA (menu "Outils/ macros/ Visual Basic Editor") ou par ALT
+ F11
 CRTL + R pour accéder à VBA project en haut à gauche
 Là double cliquez sur THISWORKBOOK
 Placez (copiez/collez) la macro ci-dessous :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)

'Macro par ADM
Application.ScreenUpdating = False
If Application.Intersect(Target, Range("A1")) Is Nothing Then End
ActiveSheet.Name = Target.Value
Application.ScreenUpdating = True
End Sub

Dans la macro changez éventuellement la référence de cellule A1 par la référence

de cellule de votre choix.

Repérez des doublons dans une plage de cellules

Vous venez de saisir ou récupérer une liste et vous voulez vérifiez si elle contient
des doublons. Créez la macro expliquée ci-dessous et exécutez-la. Les premières
valeurs de la liste seront mises sur fond vert et les doublons repérés sur fond rouge.

 Lancez l'éditeur VBA (menu "Outils/ macros/ Visual Basic Editor") ou par ALT
+ F11
 CRTL + R pour accéder à VBA project en haut à gauche
 Là double cliquez sur THISWORKBOOK
 Placez (copiez/collez) la macro ci-dessous :

Sub Doublons()
Dim Collec As New Collection, Cell As Range, Plage As Range

On Error Resume Next

Set Plage = Application.InputBox("Plage à examiner", Type:=8)
If IsEmpty(Plage) Then Exit Sub

For Each Cell In Plage

If Cell.Value <> "" Then
Collec.Add Cell.Value, CStr(Cell.Value)
If Err <> 0 Then
Err.Clear
Cell.Interior.ColorIndex = 3
Else
Cell.Interior.ColorIndex = 4
End If
End If
Next Cell
End Sub
Nommez automatiquement un onglet à partir du contenu d'une cellule

Vous souhaitez que votre onglet comporte automatiquement le texte saisi dans une
cellule de votre choix. Par exemple, un nom sasi en cellule A1 deviendrait ainsi le
nom de votre onglet. Pour cela,

 Lancez l'éditeur VBA (menu "Outils/ macros/ Visual Basic Editor") ou par ALT
+ F11
 CRTL + R pour accéder à VBA project en haut à gauche
 Là double cliquez sur THISWORKBOOK
 Placez (copiez/collez) la macro ci-dessous :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As

Excel.Range)
Application.ScreenUpdating = False
If Application.Intersect(Target, Range("A1")) Is Nothing Then End
ActiveSheet.Name = Target.Value
Application.ScreenUpdating = True
End Sub

A1 peut, bien entendu, être remplacé par toute autre cellule de votre choix.

Toujours ouvrir un classeur sur une feuille définie

Par défaut un classeur s'ouvrira toujours sur la dernière feuille utilisée lors de la
sauvegarde. Pour que le classeur s'ouvre sur une feuille définie à l'avanceVoici une
méthode qui marchera quel que soit l'utilisateur:

 Lancez l'éditeur VBA (menu "Outils/ macros/ Visual Basic Editor") ou par ALT
+ F11
 CRTL + R pour accéder à VBA project en haut à gauche
 Là double cliquez sur THISWORKBOOK
 Placez (copiez/collez) la macro ci-dessous :

Private Sub Workbook_Open()

Sheets("nom_de_la_feuille").Select
End Sub

Enregistrer puis fermer. Cette petite macro va s'exécuter automatiquement à

l'ouverture du classeur. C'est donc la feuille dont t le nom sera écrit entre guillemets
qui s'activera automatiquement quelle que soit la dernière feuille utilisée.

Compter le nombre de fois où une valeur est présente dans une feuille de calcul
Pour cela une petite macro est nécessaire. Elle est cependant très facile à mettre en
oeuvre :
Dans votre feuille de calcul tapez simultanément sur ALT et F11. Visual basic
s'ouvre,
Allez dans le menu "insertion/module",
Dans la fenêtre qui s'ouvre écrivez (ou copiez/collez) ce code :

Sub Compter_une_valeur()
'' Compter_une_valeur Macro
'nombre = InputBox("Inscrivez la valeur à compter", "nombre", 0)
nbre = WorksheetFunction.CountIf(Range("A:IV"), nombre)
MsgBox ("La valeur " & nombre & " est présente " & nbre & " fois dans cette feuille!!")
Range("A1").Activate

End Sub

Ouvrir Word à partir d'Excel

Voici le code de la macro à saisir :

Sub ouvrir_word()

Set ww = CreateObject("word.application")
ww.Visible = True
ww.documents.Add

End Sub

Convertir des nombres en heures

Comment transformer 15,5 en 15:30, ou comment transformer 12,3 en 12:18 ?

Il faut construire la macro suivante et l'appliquer à la zone préalablement

sélectionnée dans la feuille de calcul :

Dans visual basic tapez le code :

Sub conversionheures()

Dim Answer As Long

For Each Cell In Selection
Cell.Value = (Cell.Value / 24)
Next
Selection.Numberformat = "[h]:mm"

End sub
Additionner les nombres contenus dans les cellules dont le texte est en bleu (rouge, vert, etc.)

 Lancez l'éditeur VBA (menu "Outils/ macros/ Visual Basic Editor") ou par ALT
+ F11
 CRTL + R pour accéder à VBA project en haut à gauche
 Là double cliquez sur THISWORKBOOK
 Placez (copiez/collez) la macro ci-dessous :

Sub sommeCouleurRougeText()

Dim Cellule As Range

Dim total As Variant
For Each Cellule In Selection
If Cellule.Font.ColorIndex = 5 Then '5 est le code couleur du bleu
If IsNumeric(Cellule) Then total = total + Cellule.Value
End If
Next
MsgBox total
Range("G12") = total

End Sub

Vous pouvez remplacer le code couleur en changeant son numéro sur la ligne "if
Cellule.font.ColorIndex = 5 Then" le 5 est à remplacer par le code couleur souhaité
(voir tableau des couleurs ci-dessous).

Avant d'éxécuter la macro, sélectionnez la plage de cellule pour laquelle vous

souhaitez obtenir le total.
Vous pouvez obtenir le même résultat en testant la couleur de fond de la cellule.
Pour cela remplacer
"if Cellule.font.ColorIndex = 5" par "If Cellule.Interior.ColorIndex = 5"

Compter le nombre de cellules dont le fond est coloré en bleu (rouge, vert, etc.)

 Lancez l'éditeur VBA (menu "Outils/ macros/ Visual Basic Editor") ou par ALT
+ F11
 CRTL + R pour accéder à VBA project en haut à gauche
 Là double cliquez sur THISWORKBOOK
 Placez (copiez/collez) la macro ci-dessous :

Sub NombredeCellulesbleues()

Dim Cellule As Range

Dim total As Variant
For Each Cellule In Selection
If Cellule.Interior.ColorIndex = 5 Then 'bleu
total = total + Cellule.Count
End If
Next
MsgBox "Il y a " & total & " Cellules bleues"
Range("A1") = total

End Sub

Vous pouvez remplacer le code couleur en changeant son numéro sur la ligne "if
Cellule.Interior.ColorIndex = 5 Then 'bleu" le 5 est à remplacer par le code couleur
souhaité (voir tableau des couleurs ci-dessous) ainsi que le message de la boîte de
dialogue sur la ligne "MsgBox "Il y a " & total & " Cellules bleues""

Avant d'éxécuter la macro, sélectionnez la plage de cellule pour laquelle vous

souhaitez obtenir un décompte.
Vous pouvez obtenir le même résultat en testant la couleur du texte. Pour cela
remplacer
"If Cellule.Interior.ColorIndex = 5" par "if Cellule.font.ColorIndex = 5"

Une macro de conversion de francs vers euro et d'euros vers francs

Télécharger l'explication de la macro (format word 97 - 83ko) en cliquant ici

Convertir des majuscules en minuscules

 Sélectionner toute la macro ci-dessous et Edition Copier

 Ouvrer votre propre classeur
 menu-outils-macros-Visual Basic Editor (ou ALT-F11)
 menu-insertion-module
 menu-Edition-coller
 menu-fichier-Fermer et retour à Excel

Sub MinMaj()

Dim ChaineCellule As String

ChaineCellule = Selection.Value

ChaineCellule = Ucase(ChaineCellule)

Selection.Value = ChaineCellule

End Sub

Saisissez un texte en minuscule dans une cellule et lancez la macro. Vous pouvez
aussi lui affecter un bouton dans la barre d'outils.

Convertir un nombre en lettres

  Sélectionner toute la macro ci-dessous et Edition Copier
 Ouvrer votre propre classeur
 menu-outils-macros-Visual Basic Editor (ou ALT-F11)
 menu-insertion-module
 menu-Edition-coller
 menu-fichier-Fermer et retour à Excel

La fonction à utiliser sera =chiffrelettre(votre cellule)

Pour un nombre en B16 : =chiffrelettre(b16)

Function chiffrelettre(s)
Dim a As Variant, gros As Variant
a = Array("", "un", "deux", "trois", "quatre", "cinq", "six", "sept", _
"huit", "neuf", "dix", "onze", "douze", "treize", "quatorze", "quinze", "seize", "dix sept", _
"dix huit", "dix neuf", "vingt", "vingt et un", "vingt deux", "vingt trois", "vingt quatre", _
"vingt cinq", "vingt six", "vingt sept", "vingt huit", "vingt neuf", "trente", "trente et un", _
"trente deux", "trente trois", "trente quatre", "trente cinq", "trente six", "trente sept", _
"trente huit", "trente neuf", "quarante", "quarante et un", "quarante deux", "quarante trois", _
"quarante quatre", "quarante cinq", "quarante six", "quarante sept", "quarante huit", _
"quarante neuf", "cinquante", "cinquante et un", "cinquante deux", "cinquante trois", _
"cinquante quatre", "cinquante cinq", "cinquante six", "cinquante sept", "cinquante huit", _
"cinquante neuf", "soixante", "soixante et un", "soixante deux", "soixante trois", _
"soixante quatre", "soixante cinq", "soixante six", "soixante sept", "soixante huit", _
"soixante neuf", "soixante dix", "soixante et onze", "soixante douze", "soixante treize", _
"soixante quatorze", "soixante quinze", "soixante seize", "soixante dix sept", _
"soixante dix huit", "soixante dix neuf", "quatre-vingts", "quatre-vingt un", _
"quatre-vingt deux", "quatre-vingt trois", "quatre-vingt quatre", "quatre-vingt cinq", _
"quatre-vingt six", "quatre-vingt sept", "quatre-vingt huit", "quatre-vingt neuf", _
"quatre-vingt dix", "quatre-vingt onze", "quatre-vingt douze", "quatre-vingt treize", _
"quatre-vingt quatorze", "quatre-vingt quinze", "quatre-vingt seize", "quatre-vingt dix sept", _
"quatre-vingt dix huit", "quatre-vingt dix neuf")
gros = Array("", "billions", "milliards", "millions", "mille", "Euros", "billion", _
"milliard", "million", "mille", "Euro")
sp = Space(1)
chaine = "00000000000000"
centime = s * 100 - (Int(s) * 100)
s = Str(Int(s)): lg = Len(s) - 1: s = Right(s, lg): lg = Len(s)
If lg < 15 Then chaine = Mid(chaine, 1, (15 - lg)) Else chaine = ""
s = chaine + s
'billions au centaines
gp = 1
For k = 1 To 5
x = Mid(s, gp, 1): c = a(Val(x))
x = Mid(s, gp + 1, 2): d = a(Val(x))
If k = 5 Then
If t2 <> "" And c & d = "" Then mydz = "Euros" & sp: GoTo fin
If t <> "" And c = "" And d = "un" Then mydz = "un Euros" & sp: GoTo fin
If t <> "" And t2 = "" And c & d = "" Then mydz = "d'Euros" & sp: GoTo fin
If t & c & d = "" Then myct = "": mydz = "": GoTo fin
End If
If c & d = "" Then GoTo fin
If d = "" And c <> "" And c <> "un" Then mydz = c & sp & "cents " & gros(k) & sp: GoTo
fin
If d = "" And c = "un" Then mydz = "cent " & gros(k) & sp: GoTo fin
If d = "un" And c = "" Then myct = IIf(k = 4, gros(k) & sp, "un " & gros(k + 5) & sp): GoTo
fin
If d <> "" And c = "un" Then mydz = "cent" & sp
If d <> "" And c <> "" And c <> "un" Then mydz = c & sp & "cent" + sp
myct = d & sp & gros(k) & sp
fin:
t2 = mydz & myct
t = t & mydz & myct
mydz = "": myct = ""
gp = gp + 3
Next
d = a(centime)
If t <> "" Then myct = IIf(centime = 1, " centime", " centimes")
If t = "" Then myct = IIf(centime = 1, " centime d'Euro", " centimes d'Euro")
If centime = 0 Then d = "": myct = ""
chiffrelettre = t & d & myct
End Function

'---------------- standard ADM version 9204

' PleinEcran()
'EcranNormal()
' AffichageA1()
' AffichageL1C1()
' Fige()
' VersToutEnHautAGauche
' AffichagePleinEcran
' SuperGrandEcran
' VersLeHaut
' VersLeBas
' VersLaDroite
' VersLaGauche
' ClasseurPrecedent
' ClasseurSuivant
' FeuilleSuivante
' FeuillePrecedente
' FiltreOuPasFiltre()
'CentreSurPlusieursColonnes()
'SePositionneSurRepertoireDuFichier() <----- intéressant !

Public FlagMessage As Integer

Sub PleinEcran()
' PleinEcran Macro
' Macro enregistrée le 21/01/99 par ADM
Application.DisplayFullScreen = True
End Sub

Sub EcranNormal()
' EcranNormal Macro
' Macro enregistrée le 21/01/99 par ADM
Application.DisplayFullScreen = False
ActiveWindow.DisplayHeadings = True
ActiveWindow.Zoom = 100
End Sub

Sub AffichageA1()
' AffichageA1 Macro
' Macro enregistrée le 21/01/99 par ADM
With Application
.ReferenceStyle = xlA1
End With
End Sub
Sub AffichageL1C1()
' AffichageL1C1 Macro
' Macro enregistrée le 21/01/99 par ADM
With Application
.ReferenceStyle = xlR1C1
End With
End Sub

Sub Fige()
' ' remplace une formule par sa valeur dans une cellule

Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False

End Sub

Sub VersToutEnHautAGauche()
' VersToutEnHautAGauche - Macro enregistrée le 23/01/99 par ADM

Range("C10").Select
Range("B2").Select
Range("A1").Select

End Sub
Sub AffichagePleinEcran()
' AffichagePleinEcran Macro
' Macro enregistrée le 23/01/99 par ADM
Application.DisplayFullScreen = True
End Sub

Sub SuperGrandEcran()
' SuperGrandEcran Macro
' Macro enregistrée le 24/01/99 par ADM

Application.DisplayFullScreen = True
ActiveWindow.DisplayHeadings = False
ActiveWindow.Zoom = 75

End Sub

Sub VersLeHaut()
ActiveCell.Offset(-1, 0).Range("A1").Select
End Sub

Sub VersLeBas()
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub
Sub VersLaDroite()
ActiveCell.Offset(0, 1).Range("A1").Select
End Sub

Sub VersLaGauche()
ActiveCell.Offset(0, -1).Range("A1").Select
End Sub

Sub QuadrillageMasque()

ActiveWindow.DisplayGridlines = False

End Sub

Sub QuadrillageAffiche()

ActiveWindow.DisplayGridlines = True

End Sub

Sub ClasseurPrecedent()
ActiveWindow.ActivatePrevious
FlagMessage = 1
SePositionneSurRepertoireDuFichier ' *

End Sub

Sub ClasseurSuivant()

ActiveWindow.ActivateNext
FlagMessage = 1
SePositionneSurRepertoireDuFichier' *

End Sub

Sub FeuilleSuivante()
On Error GoTo Fin '
ActiveSheet.Next.Select
Exit Sub
Fin:
Beep
End Sub

Sub FeuillePrecedente()
On Error GoTo Fin '

ActiveSheet.Previous.Select

Exit Sub
Fin:

Beep
End Sub

Sub FiltreOuPasFiltre()

Selection.AutoFilter

End Sub

Sub OùSuisJe()

MsgBox (ActiveWorkbook.FullName)

End Sub

Sub CentreSurPlusieursColonnes()
' Macro enregistrée le 17/03/99 par ADM
With Selection

.HorizontalAlignment = xlCenterAcrossSelection
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.ShrinkToFit = False
.MergeCells = False

End With
End Sub
Sub SePositionneSurRepertoireDuFichier()
' lorsqu'on a ouvert un fichier Excel, on est positionné généralement sur le répertoire par
défaut d'Excel
' avec cette macro, on se positionne sur le lecteur du fichier et sur son répertoire !
''--------------------------------------------------------
' se positionne sur le dossier du fichier courant
' si FlagMessage =1 , pas de message pour ne pas arrêter
' le déroulement de la macro appelante
'--------------------------------------------------------
NomAbsolu = ActiveWorkbook.FullName
If Mid$(NomAbsolu, 2, 1) = ":" Then

For i = Len(NomAbsolu) To 1 Step -1

If Mid$(NomAbsolu, i, 1) = "\" Then

RepAbsolu = Left(NomAbsolu, i)
i=1
End If

Next i
ChDrive (Left(RepAbsolu, 2))
ChDir (RepAbsolu)
If FlagMessage = 0 Then Affichage = MsgBox("répertoire selectionné :" & Chr$(13) &
RepAbsolu, vbInformation, "Changement de répertoire")

Else 'cas où le fichier s'appelle juste "Classeur1"

If FlagMessage = 0 Then Affichage = MsgBox("classeur non enregistré", vbExclamation,

"Changement de répertoire")

End If
FlagMessage = 0
End Sub

Ajouter le nom complet du classeur dans le pied de page (pour édition) de la feuille
Sub nomclasseurdanspiedpage()

' Macro enregistrée le 19/07/99 par Alain DI MAGGIO

For Each F In Worksheets

F.PageSetup.CenterFooter = ActiveWorkbook.FullName

Next F

End Sub

Masque les lignes vides d'une sélection

Sub masquelignesvides()

' Macro enregistrée le 19/07/99 par Alain DI MAGGIO

For Each c In Selection

If Application.CountA(c.EntireRow) = 0 Then Rows(c.Row).RowHeight = 0

Next c

End Sub

Selectionne une plage de cellule à partir d'une cellule sélectionnée

Sub selectionplage()

' Macro enregistrée le 19/07/99 par Alain DI MAGGIO

Set Maplage = ActiveCell.CurrentRegion

Nlignes = InputBox("Nombre de lignes", , 1)

Ncolonnes = InputBox("Nombre de colonnes", , 1)

Maplage.Resize(Nlignes, Ncolonnes).Select

End Sub