Accueil

Couleur d'une cellule
Afficher la formule d'une cellule
Noms des feuilles d'un classeur
Lecture dans un classeur fermé
Liste des fichiers d'un répertoire

Couleur d'une cellule

Lire.Cellule(38;cellule)

Lire.Cellule(38;cellule) donne la couleur de fond de la cellule.

Connaître les nos des couleurs

-Placer le curseur en C2
-Insertion/Nom/définir
-CouleurGauche =LIRE.CELLULE(38;Feuil1!B2)+INDIRECT("iv65000")

En C2: =CouleurGauche

Touche F9 pour Maj

XL4Couleur
XL4CouleurPondération

On veut écrire X en colonne A si B est colorié.

LireCellule38

-Se placer en A2
-Insertion/Nom/Définir CouleurDroite
=LIRE.CELLULE(38;Feuil1!C2)+INDIRECT("IV65000")
-En A2:=SI(couleurDroite>0;"X";"")
-F9 pour MAJ (avec le pinceau, la maj est immédiate)

Tri par couleur

-Placer le curseur en C2
-Insertion/Nom/définir
CouleurGauche =LIRE.CELLULE(38;Feuil1!B2)+INDIRECT("iv65000")

En C2: =CouleurGauche( Touche F9 pour Maj)
-Données/Trier

TriCouleur

MFC sur la couleur

On veut comparer 2 tableaux.
Il faut que les cellules surlignées en vert dans le premier tableau deviennent vertes dans le second tableau par MFC.

MFCCouleur

*Définir un nom de champ Macouleur
-Placer le curseur sur B15
-Insertion /nom/définir
=LIRE.CELLULE(38;Feuil1!B4)+INDIRECT("iv65000")

*MFC sur le second tableau
-Sélectionner B15:M22
-Format/Mise en forme conditionnelle
=Macouleur=4

*Pour Maj F9

*Pour Maj immédiate,utiliser le pinceau ou

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Calculate
End Sub

Afficher la formule d'une cellule

=LIRE.CELLULE(6;cellule)

Pour afficher les formules de la colonne A en colonne B

XL4Formule

    A          B            C
1              Formule
2  75        =70+5
3  22        =78-56
4  86        =78+8
5  -36       =45+7-88

-Placer le curseur sur B2
-Insertion/Nom/Définir
 Formule
=LIRE.CELLULE(6;Feuil1!A2)
-En B2, écrire =Formule

Noms des feuilles d'un classeur

=Lire.Classeur(4)

Pour obtenir le nombre de feuilles d'un classeur

-Créer un nom de champ NBFeuilles
=LIRE.CLASSEUR(4)&INDIRECT("iv65000")
Dans une cellule du tableur
=NbFeuilles

=Lire.Classeur(1)

Pour obtenir les noms des feuilles d'un classeur horizontalement:

-Créer un nom de champ NomsFeuilles
=STXT(LIRE.CLASSEUR(1);TROUVE("]";LIRE.CLASSEUR(1))+1;99)&INDIRECT("iv65000")
-Sélectionner des cellules horizontales
=NomsFeuilles
-Valider avec Maj+Ctrl+entrée

NomsFeuilles

Pour obtenir les noms des feuilles d'un classeur verticalement:

En A18: =SI(LIGNES($1:1)<=NBVAL(NomsFeuilles);INDEX(NomsFeuilles;LIGNES($1:1));"")

Pour obtenir des liens hypertextes vers les onglets

=SI(LIGNES($1:1)<=NBVAL(NomsFeuilles);LIEN_HYPERTEXTE("#'"&INDEX(NomsFeuilles;LIGNES($1:1)) & "'!A1";INDEX(NomsFeuilles;LIGNES($1:1)));"")

Lecture dans un classeur fermé

Sub Excel4()
  repertoire = ThisWorkbook.Path & "\"
  classeur = "boulogne.xls"
  temp = Application.ExecuteExcel4Macro("'" & repertoire & "[" & classeur & "]feuil1'!R1C1")
End Sub

Liste des fichiers d'un répertoire

Créer un nom de champ

Liste =FICHIERS("C:\mesdoc\excel\fichiers\fichier\*.xls")

En A2, =SI(LIGNES($1:1)<=NBVAL(Liste);INDEX(Liste;LIGNES($1:1));"")

ListeFichiers