Forum
|
|
|
Forum
|
|
|||||||
 |
|
|
LinkBack | Outils de la discussion |
08/03/2008, 18h55
|
#1 (permalink) |
|
XLDnaute Barbatruc
Date d'inscription: février 2005
Messages: 3 829
|
[REF] Wiki 5 de MichelXld (Formules, Audits de formules, Répertoires, Fichiers)
Les sujets abordés dans cette page : Les formules Excel , Les audits de formules , Les répertoires et les fichiers . Lien vers la wiki page 1 :Les feuilles , Les graphiques , Les images , Les propriétés des classeurs , Les sauvegardes , Les formes automatiques , Aleatoire , Les barres d'outils et les barres de menus , Les boites de dialogues intégrées , Les classeurs .Lien vers la wiki page 2 : Les userforms : Les Checkbox , Les Labels , Les combobox , Les Commandbutton , Les Listbox ,Les Multipages , Les Frames , Les Textbox , Les imagesList , Les Treeview , Les Listview , Les Images , Les Webbrowser , Les calendriers , Les progressbar , Les Spreadsheet , Les Chartspaces , Les commonDialog , Les MSFlexGrid.Lien vers la wiki page 3 :Piloter d'autres applications depuis Excel , Piloter ( Word , Outlook , Power Point ) , Les fichiers texteLien vers la wiki page 4 : Les fonctions mathématiques et trigonométriques , Les impressions , Les temporisations , Les fonctions , Les evenements , Excel , Les cellules , Copier & Coller , Les dates et les calendriers , Les spécificités Macintosh, Générer des fichiers Flash , Open OfficeLien vers la wiki page 5 : Les formules Excel , Les audits de formules , Les répertoires et les fichiers .Lien vers la wiki page 6 : Les doublons , Les tris et les filtres , Les variables , Piloter les fichiers fermés (Excel , Access ,les fichiers DBF) .Lien vers la wiki page 7 : Les commentaires , La gestion des erreurs , L'aide en ligne Excel , Les recherches dans un classeur, Les tableaux , Les pages html et internet , Windows Media Player , Le PC et le systême d'exploitation ,Piloter Flash , les types de boucles.Lien vers la wiki page 8 : Piloter MSN Messenger et Windows Messenger , Les objets dans le feuille , Les liens hypertextes , Les formats , Visual basic editor , Les chaines de caractères , Les modules de classe.Lien vers la wiki page 9 : Les mises en forme conditionnelles , Les Tableaux et graphiques Croisés Dynamiques , Gérer les fichiers XML depuis Excel , Piloter Open Office depuis Excel.Lien vers la wiki page 10 : Le Publipostage Word / Excel.Lien vers la wiki page 11 : Utiliser la librairie Windows Image Acquisition Automation Library v2.0 depuis Excel.Les formules Excel ( mise à jour le 25.11.2006 )
Statistiques Compter le nombre de valeurs numériques das la colonne A=NB(A:A) Compter le nombre de cellules non vides dans la colonne A=NBVAL(A:A) Compter les cellules non vides dans une plage qui contient des formules renvoyant ""=SOMMEPROD((A1:A10<>"")*1) Compter le nombre de cellules contenant la valeur "xld" , dans la colonne A=NB.SI(A:A;"xld") Compter le nombre de cellules vides dans la plage A1:A10=NB.VIDE(A1:A10)Remarque de l'aide en ligne Excel :Les cellules contenant des formules qui renvoient " " (texte vide) sont également comptées, ce qui n'est pas le cas des cellules contenant la valeur zéro Afficher la 2eme valeur la plus élevée , de la plage A1:A10=GRANDE.VALEUR(A1:A10;2) Afficher la plus petite valeur de la plage A1:A10 , sans tenir compte des 0=PETITE.VALEUR(A1:A10;NB.SI(A1:A10;0)+1)Une autre solution (valider par Ctrl+Maj+Entree)=MIN(SI(A1:A10=0;"";A1:A10)) Afficher la valeur mini d'une plage sans prendre en compte les 0 et les champs vides (une solution donnée par Jean Marie)=MIN(SI(A1:A10>0;A1:A10;""))Formule matricielle à valider par Ctrl+Shift+Entrer Afficher la plus petite valeur immédiatement superieure à 0 ( une solution donnée par Monique)=MIN(SI(A1 Renvoie la somme des 6 plus grandes valeurs d'une plage(Les doublons éventuels de la 6eme valeur sont comptabilisés)=SOMME(A1:A10*(A1:A10>=GRANDE.VALEUR(A1:A10;6)))Formule matricielle à valider par Ctrl+Maj+Entree Une autre possibilité ( qui ne prend pas en compte les doublons de la 6eme valeur )=SOMME(GRANDE.VALEUR(A1:A10;{1.2.3.4.5.6})) Afficher la moyenne des 5 plus petites valeurs , de la plage A1:A100=SI(NBVAL(A1:A100)>=5;MOYENNE(PETITE.VALEUR(A1:A10 0;{1.2.3.4.5}));MOYENNE(A1:A100)) Trouver une valeur proche dans une colonneLe lien sur le forum XLD Afficher le classement de la cellule B1 , par rapport à la plage de valeurs B1:B10=NB($B$1:$B$10)+1-RANG(B1;$B$1:$B$10;1) Afficher le classement de toutes les cellules de la plage A1:A10 , les unes par rapport aux autres .(les données numériques sont dans la plage A1:A10)=RANG(A1;DECALER($A$1;0;0;NBVAL($A$1:$A$10);1))Saisissez la formule dans la cellule B1 et ensuite faites un "Glisser" , jusqu'à la cellule B10 Afficher la valeur numérique qui apparait le plus souvent dans la plage A1:A10=MODE(A1:A10) Afficher la donnée (texte ou numérique ) qui apparait le plus souvent dans la plage A1:A10 ( une solution donnée par Jean Marie ){=INDEX(A1:A10;EQUIV(MAX(NB.SI(A1:A10;A1:A10));NB. SI(A1:A10;A1:A10);0))} D'autres solutions données par Jean Marie et Monique , nottament pour retrouver les 5 références les plus représentéesLe lien sur le forum XLD Afficher la donnée qui apparaît le plus souvent et au moins 3 fois dans la plage A1:A10( une solution donnée par Jean-Marie)=SI(NB.SI(A1:A10;MODE(A1:A10))>2;MODE(A1:A10);"") Compter le nombre de valeurs identiques entre deux plages=SOMMEPROD(NB.SI(A1:A10;B1:B10)) Compter le nombre de valeurs identiques (unique) entre deux plages=SOMMEPROD((FREQUENCE(A1:A10;B1:B10)>0)*1)-1 Compter le nombre d'éléments qui répond à plusieurs critères sur différentes colonnes= SOMMEPROD ( ( A1:A10 = "Valeur1" ) * ( B1:B10 = "Valeur2" ) * (C1:C10 = "Valeur3" ) )Le lien sur le forum XLD Compter le nombre de données différentes dans la plage A1:A10=SOMMEPROD(1/NB.SI(A1:A10;A1:A10)) Compter le nombre de valeurs numériques différentes dans la plage A1:A10Remarque : La plage A1:A10 peut contenir du texte et des cellules vides= SOMME(SI(FREQUENCE(A1:A10;A1:A10)>0;1))Une autre solution proposée par Celeda=SOMME(N(FREQUENCE(A1:A10;A1:A10)>0))Une autre possiblité à valider par Ctrl + Maj + Entree=SOMME(SI(ESTNUM(A1:A10);1/NB.SI(A1:A10;A1:A10)))Un autre exemple qui ne prend pas en compte les 0 (à valider par Ctrl + Maj + Entree)=SOMME(SI(A1:A10>0;1/NB.SI(A1:A10;A1:A10))) Compter le nombre de valeurs comprises entre 50 et 60 , dans la plage A1:A10= SOMMEPROD ((A1:A10 >=50 ) * ( A1:A10 <=60 ))Une autre solution= NB.SI ( A1:A10 ; ">=" &50 ) - NB.SI ( A1:A10 ; ">=" &60 ) Renvoie "oui" si le contenu de la cellule B1 apparaît dans la plage A1:A10=SI(NB.SI(A1:A10;B1);"oui";"non") Compter le nombre de valeurs comprises entre 10 et 20 dans la plage A1:A10 ( bornes non compris )=FREQUENCE(A1:A10; {20;10} ) Compter le nombre de lignes dont la date correspond au mois de DécembreA1:A10 est la plage contenant les dates au format jj/mm/aaaa12 est l'index du mois de Décembre=SOMMEPROD((MOIS(A1:A10)=12)*1) Compter le nombre de valeurs Impaires dans la plage de cellules B1:B20 ( des solutions données par Monique )=SOMMEPROD((MOD(B1:B20;2)=1)*1)=SOMMEPROD(MOD(B1:B20;2)*1)=SOMMEPROD((B1:B20=IMPAIR(B1:B20))*1) Retrouver les données uniques et les doublons dans une plage de cellulesLes données à controler sont dans la plage A1:A20Saisissez la formule ci-dessous dans la cellule B1=SI(NB.SI($A$1:$A$20;A1)>1;"Multiple";"Unique")Etirez la formule jusqu'en B20 La variance :La variance est la moyenne arithmétique des carrés des écarts par rapport à la moyenne arithmétique de la distributionLa variance traduit la notion d'incertitude. Plus la variance est faible, moins le résultat de l'expérience aléatoire est incertain. La variance est le carré de l'écart-type.La fonction VAR part de l'hypothèse que les arguments ne représentent qu'un échantillon de la population.=VAR(nombre1;nombre2;...)=VAR(A2:A13)nombre1, nombre2, ... représentent de 1 à 30 arguments numériques correspondant à un échantillon de population.Si vos données représentent l'ensemble de la population, utilisez la fonction VAR.P pour en calculer la variance. L'écart type :L'écart type est la racine de la variance.=ECARTYPE(A2:A13)Si vos données représentent l'ensemble de la population, utilisez la fonction ECARTYPEP pour en calculer l'écart type. Math et TrigoLa Covariance :La Covariance mesure la corrélation entre deux ensembles de données. La Covariance est faible si les séries sont indépendantes ou si le lien entre les séries est non linéaire. A l'inverse, les séries sont liées si la Covariance est élevée. La covariance est la moyenne du produit des écarts .=COVARIANCE(matrice1;matrice2)=COVARIANCE(A2:A10;B2:B10)matrice1 représente la première plage de cellules de nombres entiers.matrice2 représente la seconde plage de cellules de nombres entiers.Les arguments doivent être soit des nombres, soit des noms, des matrices ou des références contenant des nombresSi matrice1 et matrice2 contiennent différents nombres d'observations (données), COVARIANCE renvoie la valeur d'erreur #N/A.Par exemple, vous souhaitez savoir si la fréquentation de votre site Web est liée aux campagnes publicitaires que vous organisez.Saisissez le nombre de connections par mois, dans les cellules B2 à B13Saisissez le nombre de séquences publicitaires par mois , dans les cellules D2 à D13Saisissez la formule =B3/B2-1 dans la cellule C3Copiez la formule dans les cellules C4 à C13 puis de E3 à E13. Les cellules C3:C13 et E3:E13 contiennent maintenant les variations mensuelles des fréquentations et des séquences publicitaires .Pour obtenir la Covariance des deux séries de données , saisissez la formule =COVARIANCE(C3:C13;E3:E13) , par exemple dans la cellule A15. Savoir si la valeur de la cellule est paire(la formule renvoie 1) ou impaire( la formule renvoie 0) =(A1=PAIR(A1))*1 Savoir si la valeur de la cellule est paire(la formule renvoie Vrai) ou impaire( la formule renvoie Faux) =(A1=PAIR(A1)) SOUS.TOTAL Renvoie le sous-total d'une plage de cellules ( somme de la plage A2:A5 dans l'exemple ) =SOUS.TOTAL(9;A2:A5) Un Sous Total ne prend en compte que sur les données visibles résultant du filtrage d'une liste. Des sous-totaux déjà existants à l'intérieur de la plage , ne sont pas pris en compte Les codes de formules associées : 1 Moyenne 2 NB 3 NBVAL 4 MAX 5 MIN 6 PRODUIT 7 ECARTYPE 8 ECARTYPEP 9 SOMME 10 VAR 11 VAR.P Un Sous Total peut etre affecté à plusieurs plages de cellules( moyenne des plages A2:A5 et C2:C5 dans l'exemple ) =SOUS.TOTAL(1;A2:A5;C2:C5) Compter le nombre de X dans la plage A2:A10,si la valeur associée dans la colonne B est inférieure à 50 = SOMMEPROD((A2:A10 = "X")*(B2:B10<50)) Additionner les valeurs de la colonne B , si la colonne A contient le mot "xld" =SOMME.SI(A:A;"xld";B:B) Additionner les valeurs d'une plage (A1:A5) , dont certaines cellules contient des erreurs {=SOMME(SI(ESTERREUR(A1:A5);"";A1:A5))} Renvoyer un nombre aleatoire entre 1 et 3 =ENT(ALEA()*3+1) Insérer un exposant dans une formule( exemple exposant 2 ) =A1^2 Remarque : la fonction puissance permet d'obtenir le meme résultat =PUISSANCE(A1;2) Extraire la racine carré d'un nombre =A1^(1/2) Extraire la racine cubique d'un nombre =A1^(1/3) Arrondir la valeur de la cellule A1 à l'entier immédiatement inférieur =ENT(A1) La différence entre les fonctions TRONQUE et ENT : Les deux fonctions renvoient des nombres entiers Les fonctions ENT et TRONQUE diffèrent uniquement lorsqu'il s'agit de nombres négatifs. TRONQUE supprime la partie décimale d'un nombre ( l'exemple ci-dessous renvoie -10) =TRONQUE(-10,5;0) ENT arrondit les nombres à l'entier immédiatement inférieur ( l'exemple ci-dessous renvoie -11) Arrondir la valeur de la cellue A1 à 2 chiffre apres la virgule =ARRONDI(A1;2) Arrondit A1 à la valeur entière immédiatement supérieure =ARRONDI.SUP(A1;0) Arrondit A1 à la valeur supérieure comportant trois décimales =ARRONDI.SUP(A1;3) Arrondit A1 à gauche du séparateur décimal, à la centaine immédiatement supérieure =ARRONDI.SUP(A1;-2) Arrondit A1 à la valeur entière immédiatement supérieure =ARRONDI.INF(A1;0) Arrondit A1 à la valeur inférieure comportant trois décimales =ARRONDI.INF(A1;3) Arrondit A1 à gauche du séparateur décimal, à la centaine immédiatement inférieure =ARRONDI.INF(A1;-2) Arrondir la valeur de la cellule A1 au multiple de 5 le plus proche ( par exemple 17,6 renvoie 20 ) =ARRONDI.AU.MULTIPLE(A1;5) Arrondir aux 5 centièmes inférieurs ( des solutions proposées par Monique) =A1-MOD(A1;0,05) =A1-MOD(A1;5%) Calculer des montants de traite identiques en valeurs entieres , la totalité des décimales étant appliquée sur la dernière traite La somme totale est en A1 , le nombre de traites est en B1 Le montant de chaque traite ( hormis la derniere ) =ARRONDI($A$1/$B$1;0) Le montant de la derniere traite =A1-(ARRONDI(A1/B1;0)*(B1-1)) Arrondir à 10 ( 213,05 renvoie 210 ; 216,001 renvoie 220 =ARRONDI(A1/10;0)*10 Récuprérer la partie décimale de la cellule A1 ( ne fonctionne que pour les données positives) =A1-ENT(A1) Additionner toutes les valeurs négatives de la plage A1:A10 {=SOMME(A1:A10*(A1:A10<0))} Compter le nombre de fois ou "xld" dans la plage A1:A10 , est classé "number one" dans la plage B1:B10 = SOMMEPROD((A1:A10 = "xld")*(B1:B10="number one")) Calculer une moyenne sans tenir compte des cellules contenant des zéros =SOMME(A1:A10)/NB.SI(A1:A10;">0") Calculer la moyenne de la plage A1:A10 , pour les données correspondantes de la plage B1:B10 qui contiennent le mot "oui" =SOMMEPROD( ( B1:B10) * (A1:A10 = "oui" ) ) / NB.SI(A1:A10;"oui") Calculer une moyenne avec double condition Le lien sur le forum XLD Afficher le résultat de la formule (A1+A2) , uniquement quand les deux cellules sont remplies =SI(ET(A1<>"";A2<>"");A1+A2;"") Afficher le résultat de la formule (A1/B1) , uniquement si le résultat ne renvoie pas une erreur =SI(ESTERREUR(A1/B1);"";A1/B1) Additionner les cellules A1 de toutes les feuilles : Feuil1 à Feuil4 =SOMME(Feuil1:Feuil4!A1) Additionner les cellules de la plage C1:C10 , si la cellule associée dans la plage A1:A10 est égal à "xld" et si la cellule dans la plage B1:B10 est égal à 50 = SOMMEPROD((A1:A10 = "xld")*(B1:B10=50)*(C1:C10)) Les plages de cellules pour chaque matrice doivent etre identiques Le meme exemple que ci-dessus adapté au cas ou il y aurait des valeurs numeriques au format texte dans les plages B1:B10 et C1:C10 = SOMMEPROD((A1:A10 = "xld")*(B1:B10*1=50);C1:C10*1) Additionner les cellules de la plage A1:A10 , alors que chaque premier caractère commençe par une lettre {=SOMME(DROITE(A1:A10;(NBCAR(A1:A10)-1))*1)} Additionner les cellules de la plage B1:B10 , si les phrases contenues dans la plage A1:A10 contiennent le mot "rose" une solution donnée par Monique =SOMMEPROD(ESTNUM(CHERCHE("rose";A1:A10))*B1:B10) Additionner les cellules de la plage B1:B10 , si les cellules en A1:A10 sont vides =SOMMEPROD(ESTVIDE(A1:A10)*(B1:B10)) une Demo de Monique & Celeda : Partager le bénéfice des entrées à une soirée de la manière suivante : De 1 à 50 entrées, 100% vont au propriétaire De 51 à 100, 50% pour propriétaire, 50% pour invité Dès 101 entrées, 33% pour propriétaire, 66% pour invité Le lien sur le forum XLD Le fichier zippé Afficher le sinus d'une valeur définie en degrés dans le fonction SIN(nombre) , nombre représente l'angle exprimé en radians . il faut dont multiplier la valeur par PI()/180 ou utiliser la fonction RADIANS pour la convertir en radians =SIN(RADIANS(30)) =SIN(30*PI()/180) Convertir des degrés décimaux en d mn s , une solution donnée par Phibou en A1 : La valeur degré en décimal en B1 : =ENT(A1) en B2 : =ENT(60*(A1-B1)) en B3 : =3600*(A1-B1-1/60*B2) Dans la cellule finale : =B1 & " degrés " & B2&" minutes " & B3 &" secondes" Afficher la racine Niéme d'un nombre Par exemple : si la cellule A1 contient la valeur 27 , la formule ci-dessous renvoie 3 =A1^(1/3) Afficher la Valeur absolue d'un nombre ( nombre sans son signe ) =ABS(-10) Cet exemple renvoie le résultat : 10 Additionner les valeurs absolues de la plage A1:A5 : ( sans tenir compte du signe des nombres ) =SOMMEPROD(ABS(A1:A5)) Retrouver le plus grand diviseur commun d'une plage de cellules =PGCD(A1:A5) Retrouver le plus petit multiple commun d'une plage de cellules =PPCM(A1:A5) Renvoie une valeur arrondie au nombre entier IMPAIR le plus proche en s'éloignant de zéro =IMPAIR(A1) Renvoie une valeur arrondie au nombre entier PAIR le plus proche en s'éloignant de zéro =PAIR(A1) Additionner toutes les valeurs comprises entre 10 et 50 ( bornes comprises ) = SOMME.SI($A1:$A100;">="&10)-SOMME.SI($A1:$A100;">"&50) Additionner les données de la plage A1:A10 , en plafonnant le résultat maxi à 800 =MIN(800;SOMME(A1:A10)) Insérer dans une colonne une suite de nombre croissants qui évolue toutes les 11 lignes Placez la formule en A1 puis utilisez la poignée de recopie vers le bas =ARRONDI.SUP(LIGNE(A1)/11;0) =ENT((LIGNE()-1)/11)+1 Réduire un nombre de 2 chiffres en faisant l'addition de ses 2 chiffres et le refaire jusqu'à ce que ce nombre n'ait plus qu'un seul chiffre. Exemple 84 donne 8+4 =12 qu'il faut encore reduire à 1+2 =3. Des solutions données par Phibou =SI(MOD(A1;9)=0;9;MOD(A1;9)) =MOD(A1;9)+9*(MOD(A1;9)=0 Déterminer la valeur d'abscisse au croisement entre 2 courbes d'un graphique =(ORDONNEE.ORIGINE(A1:A2;C1:C2)-ORDONNEE.ORIGINE(B1:B2;C1:C2))/(PENTE(B1:B2;C1:C2)-PENTE(A1:A2;C1:C2)) Les ordonnées Y sont dans les colonnes A et B Les abscisses X sont dans la colonne C Vérifier si la valeur de la cellule A1 est un multiple de 5 =SI(MOD(A1;5)=0;"VRAI";"FAUX") Une autre possibilité qui renvoie 1 s'il s'agit d'un multiple et 0 dans le cas contraire =(MOD(B2;A2)=0)*1 Calculer la racine carré de la somme des différences de valeurs au carré ( auteur : Phibou ) =RACINE(SOMMEPROD((A1:A20-B1:B20)^2)) Retrouver l'angle (en degrés) à partir de la valeur de la tangeante (exemple tangeante=1 renvoie 45 degrés) =ATAN(1)*180/PI()
Consultez l'aide en ligne Excel pour visualiser les différentes unité de mesures utilisablesLa macro complémentaire Utilitaire d'analyse doit etre activée :Menu OutilsMacros complémentaires.Cochez la case "Utilitaire d'analyse"Cliquez sur OK.
Les cellules A1 , A2 et celle contenant la formule doivent etre au format [hh]:mm Télécharger la démo Cathy, Monique et Celeda pour avoir de nombreux exemples et commentaires sur les dates et les heuresLe lien dans la page de téléchargements d'XLD Calendrier Jour Partiel : Une démo de Monique et CeledaAfficher dans une cellule , le nombre de jours ouvrés d'une année en déduisant les jours fériés ( cas de la fonction JOUR.SOUVRES ) mais en plus les jours de temps partiel d'une personneLe lien sur le forum XLDLe fichier zippé Extraire le nombre de journées de 8 heures , pour un total d'heures saisi dans la cellule A1 au format [hh]:mm=ENT(A1*24/8)Et pour renvoyer le restant d'heures=((A1*24/8)-ENT(A1*24/8))*8 Transformer une date qui est sous la forme 1965.05.26 , par 26.05.1965=DROITE(A1;2)&"."&STXT(A1;6;2)&"."&GAUCHE(A1;4) Afficher Vrai si la date dans la cellule A1 est un jour de Week end , sinon renvoie Faux=JOURSEM(A1;2)>5 Calculer le temps écoulé entre 2 dates ( en années , mois et jours )Exemple pour calculer l'age d'une personne dont la date de naissance est saisi dans la cellule A1=DATEDIF(A1;AUJOURDHUI();"y")&" ans , "&DATEDIF(A1;AUJOURDHUI();"Ym")&" mois et "&DATEDIF(A1;AUJOURDHUI();"Md")&" jours" Vérifier si la date saisie dans la cellule A1 correspond au jour anniversaire (Aujourdui )=SI(ET(DATEDIF(A1;AUJOURDHUI();"ym")=0;DATEDIF(A1; AUJOURDHUI();"md")=0);"Oui";"Non") Controler si une personne , dont l'age est saisi dans la cellule A1 , est majeure=SI(DATEDIF(A1;AUJOURDHUI();"y")>=18;"Majeur";"Min eur") Calculer l'age en tenant compte du mois et de l'année de naissance (une solution d'André)La date est saisie dans la cellule A1=ANNEE(AUJOURDHUI()-A1)-1900&" ans "&MOIS(AUJOURDHUI()+1-A1)-1&" mois " Afficher la moyenne du temps passé en mm:ss , avec en A1 le temps total en secondes et en A2 le nb d'occurrences=A1/24/60/60/A2La cellule contenant la formule doit etre au format [mm]:ss Afficher le numéro de semaine pour une date saisie en A1=ENT(MOD(ENT((A1-2)/7)+0,6;52+5/28))+1 Fontion NO.SEMAINE : Gestion des numéros de semaine qui sont décalés en 2005Le lien sur le forum XLD Convertir des secondes saisies dans la cellule A1 , en heures ( la cellule contenant la formule au format hh:mm:ss )=A1/60/60/24Une autre solution ( la cellule contenant la formule toujours au format hh:mm:ss )=A1*"0:0:1" Convertir en heure une somme de minutes=SOMME(A1:A10)/1440(Appliquer le format heure à la cellule de résultat ) Convertir des minutes en heuresLe lien sur le forum XLD Compter le nombre de dates correspondant au mois de Février(2) dans la plage de cellules A1:A10=SOMMEPROD((MOIS(A1:A10) = 2)*1)Une autre solution donnée par Monique pour le comptage du mois de Janvier dans une plage pouvantcontenir des cellules vides , car Pour Excel, =MOIS ( cellule vide ) = 1= SOMMEPROD((A$1:A$20<>"")*(MOIS(A$1:A$20) =1)) Afficher le premier Lundi du mois, pour une date saisie dans la cellule A1=A1-JOUR(A1)+9-JOURSEM(A1-JOUR(A1))Pensez à adapter le format de la cellule contenant la formule Afficher le dernier jour du mois , pour une date saisie dans la cellule A1=FIN.MOIS(DATE(TEXTE(A1;"aaaa");TEXTE(A1;"mm");1); 0) Une autre solution proposée par Monique=DATE(ANNEE(A1);MOIS(A1)+1;0) Afficher le dernier Lundi du mois, pour une date saisie dans la cellule A1=DATE(ANNEE(A1);MOIS(A1)+1;2)-JOURSEM(DATE(ANNEE(A1);MOIS(A1)+1 Afficher le dernier jour du mois en cours=FIN.MOIS(AUJOURDHUI();0) Compter le nombre de semaines entre 2 dates , plusieurs solutions données par MoniqueLe lien sur le forum XLD Afficher le numero de trimestre , pour une date saisie en A1="TRIMESTRE "&ENT((MOIS(A1)+2)/3) Vérifier si une date saisie dans la cellule A1 appartient à une année bissextile=SI(MOIS(DATE(ANNEE(A1);2;29))=2;"Bissextile";"Non bissextile") Créer et gérer un agenda , encore une superbe demo de MoniqueLe lien sur le forum XLDLe fichier zippé Convertir un nombre d'heures spécifique en journée ( 7,4h=1j )=(ENT(A1/7,4))/24Par exemple : 6,8 renvoie 0 et 7,6 renvoie 1 (appliquer le format ?[ hh] à la cellule contenant la formule ) Pour multiplier des heures qui sont dans la cellule A1 (au format hh:mm ) par un nombre situé dans la cellule B1par exemple 01:30 x 2 = 3=A1*B1*24 Comment retrouver la date du mercredi de la semaine précédenteLe lien sur le forum XLD Ajouter 30 minutes à une heure saisie en A1=A1+TEMPS(0;30;0) Convertir des heures décimales en heures minutes=A1/24La cellule contenant la formule doit etre au format [hh]:mmSi par exemple vous saisissez 2,5 dans la Cellule A1 , la cellule contenant la formule renvoie 02:30 Convertir des heures minutes en décimales.Par exemple 10:30 devient 10,5=(A1-ENT(A1))*24 Additionner des jours , des heures et des nombres pour obtenir des heuresLe lien sur le forum XLD Arrondir à l'heure la plus proche ( 2:45 devient 3:00 )=ARRONDI(A1/(1/24);0)*(1/24) Mesurer le temps écoulé entre 2 dates au format jj.mm.aa hh:mm (une solution proposée par André )A1 : heure de départA2 : heure d'arrivéeCes deux cellules au format jj.mm.aa hh:mm(ou jj/mm/aa hh:mm, suivant ta configuration)=ENT(A2-A1)&" j "&(HEURE(A2)<HEURE(A1))*24+HEURE(A2)-HEURE(A1)&" h" Ajouter ou oter un nombre de mois à une date spécifiée=MOIS.DECALER(A1;3)La date de départ est en A1. 3 correspond au nombre de mois. Une valeur de mois positive donne une date future, tandis qu'une valeur négative donne une date passée.La macro complémentaire "Utilitaire d'analyse" doit etre activéePensez à appliquer un format date à la cellule contenant la formuleIl est aussi possible d'utiliser la version anglaise de la fonction : EDATE .=EDATE(E1;3) Afficher le 3eme dimanche du mois de juin (Fêtes des Pères) :une solution de Jean MarieL'année est saisie en B1=("22/6/"&B1)-JOURSEM("1/6/"&B1;2) Oter 24 mois sur la date du jour (une solution de Jeannot45 )=DATE(ANNEE(AUJOURDHUI());MOIS(AUJOURDHUI())-24;JOUR(AUJOURDHUI())) Additionner des valeurs en fonction d'un mois cible= SOMMEPROD((MOIS(Totaux!A1:A10)=D1)*(Totaux!B1:B10) )Dans la feuille "Totaux" , la plage A1:A10 contient les dates "jj/mm/aaaa" et la plage B1:B10 contient les valeurs à additionnerLa Cellule D1 contient le numero du mois qui va servir à filtrer les données additionnées : 1 = Janvier , 2 = Février ...etc … Compter le nombre de dates différentes, et qui correspondent à un Dimanche, dans la plage A1:A5= SOMME(SI(JOURSEM(A1:A5)= 1;1/NB.SI(A1:A5;A1:A5)))Fonction à valider par Ctrl + Maj + Entree . Remarque : la formule accepte des cellules vides dans la Plage A1:A5 Compter le nombre de dates différentes, et qui correspondent à un Samedi, dans la plage A1:A5= SOMME(SI(JOURSEM(A1:A5)= 7;SI(A1:A5>0;1/NB.SI(A1:A5;A1:A5))))Fonction à valider par Ctrl + Maj + EntréeCette formule ne compte pas les cellules vides (Une cellule vide correspond au samedi 00-01-1900) Additionner les heures qui correspondent à des dimanches et appliquer un coefficient multiplicateur 2 au résultatLes jours en A1:A10 , Les heures en B1:B10=SOMMEPROD((JOURSEM(A1:A10)=1)*B1:B10)*2 Retrouver le mois en fonction du numéro de semaine et de l'index du jour:en paramètres :L'annee dans la cellule A1Le numéro de semaine dans la cellule A2L'index du jour dans la cellule A3 : 'Lundi= 0 , Mardi=1 , Mercredi=2 ...etc...=TEXTE(DATE(A1;1;3)-JOURSEM(DATE(A1;1;3))-5+(7*A2)+A3;"mmmm") Afficher le 1er jour ouvré suivant (une solution donnée par André)=SERIE.JOUR.OUVRE(A1;1;ferie)ferie est une plage nommée (menu Insertion / Nom / Définir) qui reprend la liste des jours fériés.Il faut activer l'Utilitaire d'Analyse sous les Macros complémentaires du menu Outils, sur tous les PC Compter le nombre de mois complets entre 2 dates=MAX(0;MOD(MOIS(B1)-MOIS(A1);12)-1+(JOUR(A1)=1)+(DATE(ANNEE(B1);MOIS(B1)+1;0)=B1))Une solution de Monique=(ANNEE(B1)-ANNEE(A1))*12+MOIS(B1)-MOIS(A1)+(JOUR(A1)=1)-(JOUR(B1+1)>1)Une autre solution par André=MAX(0;(ANNEE(B1+1)-ANNEE(A1-1))*12+MOIS(B1+1)-MOIS(A1-1)-1)
Renvoyer la dernière donnée saisie dans la colonne A ( ne fonctionne pas s'il y a des cellules vides )=INDIRECT(ADRESSE(NBVAL(A:A);1))Une autre solution donnée par Jean Marie , qui fonctionne avec des cellules vides( formule matricielle à valider par Ctrl+Maj+Entree )=INDEX(A1:A1000;MAX(NON(ESTVIDE(A1:A1000))*LIGNE(A 1:A1000));1)Deux autres solutions proposées par MoniquePour des valeurs numériques=RECHERCHE(9^9;A:A)Pour des valeurs alphanumériques=RECHERCHE("zzz";A:A) Renvoyer le numéro de la derniere ligne non vide , dans la colonne A ( valider par Ctrl+Maj+Entree )=MAX(NON(ESTVIDE(A1:A100))*LIGNE(A1:A100))la formule fonctionne s'il y a des cellules vides dans la plage Afficher la position d'une valeur recherchée (exemple : "xld" ) dans la plage cible A1:A10=EQUIV("xld";A1:A10;0)Si le mot recherché est dans la cellule A3 , le résultat renvoyé sera 3La valeur recherchée peut etre numérique ou du texteLa spécificité des recherches de texte :La fonction EQUIV n'est pas sensible aux majuscules ou minuscules .Si l'on ne connaît que le début du mot recherché , il est possible d'insérer des valeurs génériques (une astérisque ou un point d'interrogation) . Par exemple :=EQUIV("xl*";A1:A10;0)L'astérisque est équivalent à une séquence de caractères, le point d'interrogation à un caractère unique. Insérer un lien hypertexte dans la cellule pour ouvrir un autre document=LIEN_HYPERTEXTE("C:\test.xls";"Cliquez ici !")Si vous souhaitez créer un lien hypertexte vers un emplacement précis dans un document Microsoft Word, il faut utiliser un signet pour définir cet emplacement. L'exemple suivant crée un lien hypertexte vers le signet "Signet1" dans le document nommé monFichier.doc=LIEN_HYPERTEXTE("C:\monFichier.doc#Signet1";"Cliq uez ici") Accéder à la cellule D10 dans la Feuil2 du meme classeur=LIEN_HYPERTEXTE("[monClasseur]Feuil2!D10";"Mon lien hypertexte") 3 Remarques :Meme si tu restes dans le meme classeur , il faut preciser son nom . Si le nom de la feuille contient un espace , le nom doit etre encadré par des apostrophes dans la formule :=LIEN_HYPERTEXTE("[monClasseur.xls]'ma feuille'!D10";"Mon lien hypertexte") Si le nom du classeur est amené à changer dans le temps tu peux utiliser :=LIEN_HYPERTEXTE("["&STXT(CELLULE("nomfichier"); TROUVE("["; CELLULE("nomfichier"))+1;TROUVE("]"; CELLULE("nomfichier"))- TROUVE("["; CELLULE("nomfichier"))-1)&"]'ma feuille'!D10";"Mon lien hypertexte") Afficher la lettre de la colonne , pour la cellule contenant cette formule . Une solution donnée par Monique=GAUCHE(ADRESSE(1;COLONNE();4);NBCAR(ADRESSE(1;COL ONNE();4))-1) Chercher la valeur "xld" dans la colonne gauche de la plage A1 Récuperer la valeur de la cellule A1 d'un classeur fermé , nommé "monFichier.xls"='C:\Documents and Settings\[monFichier.xls]Feuil1'!A1 de la meme manière , Il est aussi possible de récupérer des infos dans un classeur placé sur le Web='http://monSite/Dossier/[leClasseur.xls]Feuil1'!$A1 Faire une RECHERCHEV dans un classeur fermé :Rechercher "XLD" dans la colonne A du classeur fermé et afficher la donnée de la colonne B=RECHERCHEV("XLD";'C:\[test.xls]Feuil1'!$A:$B;2;FAUX) Compter le nombre de caracteres à droite de l'Arobas "@"=NBCAR(A1)-TROUVE("@";A1;1) Afficher de façon aléatoire une des données se trouvant dans la plage A1:A10=INDEX(A1:A10;ENT(ALEA()*10+1);1) Afficher de façon aléatoire une des données contenue dans la formule=CHOISIR(ENT(ALEA()*6+1);"Valeur1";"Valeur2";"Vale ur3";"Valeur4";"Valeur5";"Valeur6") Insérer une variable dans une formuleDans l'exemple ci dessous , si la cellule B1=5 , la formule effectuera la somme de la plabe A1:A5=SOMME(INDIRECT("A1:A"&B1)) Retrouver un mot de 2 caractères dans plage B1:B10, une astuce de Phibou=INDIRECT("B" & SOMME(SI((NBCAR(B1:B10)>0)+(NBCAR(B1:B10)<3)=2;LIG NE(B1:B10);"")))Fonction à valider par Ctrl + Maj + Entrée Récuperer une donnée sur 2 , dans la colonne A , (une solution de Monique )pour commencer la recherche dans la 1ere ligne de la colonne A:=DECALER($A$1;(LIGNE()-1)*2;0)pour commencer la recherche dans 2eme ligne de la colonne A :=DECALER($A$1;LIGNE()*2-1;0)Dans les 2 cas , étendre les formules dans la colonne de résultat Additionner une colonne sur 2 dans la ligne 1en commençant dans la premiere colonne :=SOMMEPROD(1:1*MOD(COLONNE($1:$1);2))en commençant dans la deuxieme colonne :=SOMMEPROD(1:1*MOD(COLONNE($1:$1)-1;2)) Additionner une cellule sur 10 dans la plage A1:A100=SOMMEPROD((MOD(LIGNE(A1:A100);10)=0)*1;A1:A100) Extraire les données d'un tableau, en se basant sur les étiquettes automatiques , une Démo d'AndréLe lien sur le forum XLDLe fichier zippé Renvoyer le rang de la cellule A2 dans la plage A1:A10 (équivalent de la position dans la plage apres un tri )=RANG(A2;A1:A10;0)Ne fonctionne que pour des données numériquesRemplacer 0 par 1 pour utiliser l'ordre décroissant Afficher une série de données dans le sens inverseLes données de base sont dans la plage A1:A10 .Saisissez la formule dans chaque cellule de la plage B1:B10= DECALER($A$1;10 - LIGNE() ; 0 )Une autre solution par André= SI(A1="";"";INDIRECT("A"&NBVAL(A:A) - LIGNE() + 1)) Trouver la valeur maxi (dans la plage C2:C5) attribuée à une donnée "XLD" se trouvant dans la plage B2:B5La donnée "XLD" peut apparaitre plusieurs fois parmi d'autres données , et affecté de valeurs différentes=MAX ( ( B2:B5 = "XLD" ) * C2:C5)valider par Ctrl+Shift+Enter Trouver la valeur la plus élevée et qui commence par 99 , dans la plage A1:A10=MAX ( ( GAUCHE (A1:A10 ; 2) = "99" ) * A1:A10 )à valider par Ctrl+Shift+Enter ( source excelTip ) Afficher des réponses multiples , lors d'une recherche dans un autre classeur :dans un classeur il y a des données: nom prenomdans l'autre classeur nommé "interrogation" on fait une recherche pour afficher tous les noms qui ont le meme prénom .Le lien sur le forum XLDLe fichier zippé Afficher la dernière donnée texte dans la plage de cellules A1:A10= RECHERCHE (2;1 / NON ( ( A1:A10 = "" ) + ESTNUM (A1:A10) ) ; A1:A10 ) Retrouver les données de la plage A1:A10 qui sont aussi dans la plage B1:B10Saisir la formule en C1 par exemple , puis l'étirer vers le bas=SI(NB.SI($B$1:$B$10;A1)>0;A1;"") Récapituler dans une colonne ,sans vide, les données contenues dans des cellules discontinues de la plage ("A1:E20")Le lien sur le forum XLDLa démo de JocelynLa démo de Monique Ne prendre en compte que les lignes impaires pour additionner les valeurs de la plage A1:A10 , et si la plage B1:B10 = "x"= SOMMEPROD ( ( ( MOD ( LIGNE (1:10) ; 2 ) = 1 ) * A1:A10 ) * ( B1:B10="x" ) )et pour les lignes paires= SOMMEPROD ( ( ( MOD ( LIGNE (1:10) ; 2 ) = 0 ) * A1:A10 ) * ( B1:B10="x" ) ) Ne prendre en compte que les lignes impaires pour compter le nombre de valeur >10 dans la plage A1:A10 , et si la plage B1:B10 = "x"= SOMMEPROD ( ( ( MOD ( LIGNE (1:10) ; 2 ) = 1 ) * A1:A10 > 10 ) * ( B1:B10="x" ) ) Conseils pour les recherches à critères multiples : une démo d'Alain VallonLe lien sur le forum XLDLe fichier zippé Compter le nombre de lignes dans un plage de cellules=LIGNES($A$1:A5) Trouver le Nieme mot dans une phraseSource : http://www.andrewsexceltips.com/menu_formulas_t&n_get_nth_word.htmLa phrase est saisie en A1. En B1, saisisssez la position du mot à extraire.=SI(B1>NBCAR(A1)-NBCAR(SUBSTITUE(A1;" ";""));DROITE(A1;NBCAR(A1)-TROUVE("^^";SUBSTITUE(A1;" ";"^^";NBCAR(A1)-NBCAR(SUBSTITUE(A1;" ";"")))));SI(B1=1;STXT(A1;1;TROUVE("^^";SUBSTITUE( A1;" ";"^^";1))-1);STXT(A1;TROUVE("^^";SUBSTITUE(A1;" ";"^^";B1-1))+1;TROUVE("^^";SUBSTITUE(A1;" ";"^^";B1))-TROUVE("^^";SUBSTITUE(A1;" ";"^^";B1-1))-1))) Transposer une colonne en lignes.Si la première valeur est en A1, placez par exemple cette formule en B1=INDIRECT("A"&COLONNE()-1)Utilisez ensuite les poignées de recopie vers la droite
Généralités sur la fonction CELLULERenvoie des informations sur la mise en forme, la position ou le contenu de la cellule supérieure gauche d'une référence.( voir l'aide en ligne Excel pour plus de détails : ci-dessous quelques exemples d'utilisation ) Afficher le chemin et le nom du classeur=CELLULE("filename")Remarque : le résultat est vide si le classeur n'est pas sauvegardé Afficher le répertoire du classeur=GAUCHE(CELLULE("filename");CHERCHE("[";CELLULE("filename");1)-2)Remarque : le résultat est vide si le classeur n'est pas sauvegardé Créer un lien hypertexte pour ouvrir l'explorateur windows sur le répertoire contenant le classeur=LIEN_HYPERTEXTE(GAUCHE(CELLULE("filename");CHERCH E("[";CELLULE("filename");1)-2);"Lien vers le répertoire") Afficher le nom du classeur et de la feuille=STXT(CELLULE("filename";A1);TROUVE("[";CELLULE("filename";A1));300)Remarque : le résultat est vide si le classeur n'est pas sauvegardé Afficher le nom du classeur dans une celluleLe lien sur le forum XLD Afficher le nom de l'onglet dans une cellule : des solutions données par André et GérardLe lien sur le forum XLD Compter le nombre de feuilles dans le classeur , en utilisant les anciennes macros XL4=NBVAL(LIRE.CLASSEUR(1;"Classeur1")) Afficher des smileys différents en fonction de la valeur de la cellule A1( la police de caractère doit etre de type "Wingdings" , dans la cellule contenant la formule )=SI(A1>=0;"J";"L") Utiliser les anciennes macro XL4Le lien sur le forum XLD Un exemple d'utilisation : Compter le nombre de feuilles dans un classeurSélectionnes la cellule A1ensuiteMenu InsertionNomDéfinirDans le champ "Noms dans le classeur" , saisies TEST1Dans le champ "Fait référence à" , saisies la formule=NBVAL(LIRE.CLASSEUR(1;"Classeur1"))Cliques sur Entrée pour validerEnsuite , dans la cellule A1 tu saisies=TEST1 Afficher la lettre d'une colonne pour un numéro de colonne saisi dans la cellule A1=GAUCHE(ADRESSE(1;A1;4);NBCAR(ADRESSE(1;A1;4))-1) Incrémentation répétitive des références d'une série de cellules avec décalage de colonnes et de lignesUne démo d'AndréLe lien sur le forum XLDLe fichier zippé
Vérifier si la valeur de la cellule A1 est comprise entre 10 et 20 ( renvoie Vrai ou Faux )=ET(A1>=10;A1<=20) Renvoyer 0 si le résultat d'une formule est négatif=SI(SOMME(A1:A10)>0;SOMME(A1:A10);0)Une autre solution=MAX(0;SOMME(A1:A10)) Vérifier si la valeur de la cellule A1 est comprise entre 10 et 20 , sinon indiquer la position en dehors de la plage=SI(A1<10;"AU DESSOUS";SI(ET(A1>=10;A1<=20);"DANS PLAGE";"AU DESSUS")) La fonction OURenvoie VRAI si au moins un argument est VRAI , et FAUX si tous les arguments sont FAUX30 conditions peuvent etre testéesCet exemple affiche le texte "OK" si la cellule A1=10 ou si la cellule A2=20=SI(OU(A1=10;A2=20);"VRAI";"") Afficher la valeur 10 si la cellule A1 contient le texte "Option1" , ou la valeur 20 si A1 contient "Option2"Si une autre donnée est saisie en A1 , le résultat affiché sera une cellule vide= SI(A1= "Option1";10;SI(A1= "Option2";20;""))Cet autre exemple affiche 0 si une autre donnée est saisie en A1= (A1= "Option1")*10+(A1= "Option2")*20 Vérifier si 2 plages de cellules (A1:A10 et B1:B10) sont identiquesLa formule renvoie VRAI si les données des 2 plages sont identiques=ET(A1:A10=B1:B10) Vérifier si la cellule A1 est vide (pour renvoyer Vrai si c'est le cas)=ESTVIDE(A1)Vérifier si la cellule A1 est non vide(pour renvoyer Vrai si c'est le cas)=NON(ESTVIDE(A1))
D'autres solutions pour afficher les formule dans les cellules :Ctrl + " ( Ctrl + guillemet )Appliquez le meme raccourci clavier pour réafficher les résultats à la place des formules .Il est aussi possible de précéder la formule d'une apostrophe (ou d'un espace) pour qu'elle s'affiche dans la cellule :'=A1+A2 La signification des codes d'erreur dans les résultats de formules
Remplacer une formule par son resultat :Sélectionnez la formule dans la barre de formules puis Cliquez sur la touche F9 Une autre solution ( donnée par André ) :avoir sélectionné la cellule : F2 / F9 / Entrée Pour le remplacement lors de la saisie de la formule : F9 / Entrée Effacer une plage de cellules mais pas les formulesSélectionnez la plage de cellulesappuyez sur la touche F5 du claviercliquez sur le bouton "Cellules"Sélectionnez "Constantes"Cochez le ou les types de données à supprimer ( texte , nombre ...)cliquez sur "Ok"les cellules correspondantes sont sélectionnéesVous pouvez alors appuyer sur la touche "Suppr" du clavier Afficher la boite de dialogue "Arguments de la fonction" pendant la saisie d'une formule .Par exemple, saisissez dans une cellule :=NBVALEnsuite appuyez sur la combinaison de touches Ctrl + A Les audits de formulesAfficher les argument d'une fonction dans la barre de formules .Par exemple, saisissez dans une cellule :=NBVALEnsuite appuyez sur la combinaison de touches Ctrl + Shift + A Afficher tous les antécédents de formules Sub afficherTousAntecedents() Dim cell As Range For Each cell In Sheets("Feuil1").usedRange If cell.hasFormula Then cell.showPrecedents Next End SubEnlever les fleches d'antecedent liées à la cellule F7 Sub enleverUnAntecedent() Range("F7").showPrecedents Remove:=True End SubEnlever toutes les fleches dans la feuille Sub enleverTousLesAntecedents() activeSheet.clearArrows End Sub Récupérer la valeur de chaque cellule constituant une formule saisie en A1 Sub afficherValeursElementsFormule() Dim X As Range For Each X In Range("A1").directPrecedents.Cells msgBox "Cellule " & X.Address & " : " & X Next X End Sub Les répertoires et les fichiers Creer un repertoire Sub creerUndossier() mkDir "c:\Mes Documents\Excel" End Sub Modifier le répertoire par défaut dans Excel L'équivalent de Meu Outils / Options / Général / Dossier par défaut Application.defaultFilePath = "C:\Documents and Settings\michel\excel" Les proprietes d'un repertoire Sub propriétésRepertoire() Dim Cible As Object, Valeur As Object Dim Resultat As String Set Cible = createObject("Scripting.fileSystemObject") Set Valeur = Cible.getfolder("D:\dossier\general\excel") 'adpater le chemin Resultat = "Chemin : " & Valeur.parentFolder & Chr(10) & _ "Date creation : " & Valeur.dateCreated & Chr(10) & _ "dermiere modification : " & Valeur.dateLastModified & Chr(10) & _ "taille repertoire : " & Valeur.Size & " octets . " msgBox Resultat End SubCompter le nombre de fichiers dans un repertoire Sub nombreFichiers() Dim fso As Object, Dossier As Object Set fso = createObject("Scripting.fileSystemObject") Set Dossier = fso.getFolder("C:\Mes Documents") msgBox "Il y a " & Dossier.files.Count & " fichiers dans le dossier . " End SubCompter le nombre de classeurs Excel dans un répertoire Sub nbClasseurs() Dim Chemin As String , D as String Dim Lig As Integer Chemin = "C:\Documents and Settings\michel\dossier\*.xls" D = Dir(Chemin) While D <> "" Lig = Lig + 1 D = Dir Wend msgBox "nombre total de classeurs : " & Lig End Sub Une autre méthode : Compter le nombre de fichiers XLS dans un répertoire ( à partir de Win2000) Sub nombreFichiers_XLS_Repertoire() Dim objWMIService As Object, colFiles As Object Dim strComputer As String Dim Chemin As String, Lettre As String Chemin = "C:\Documents and Settings\michel\" Lettre = Left(Chemin, 2) Chemin = Application.worksheetFunction.Substitute(Chemin, "\", "\\") Chemin = Mid(Chemin, 3) strComputer = "." Set objWMIService = getObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colFiles = objWMIService. _ execQuery("SELECT * FROM CIM_dataFile WHERE Path = '" & Chemin & "' " & _ "AND Drive = '" & Lettre & "' AND Extension = 'xls'") msgBox "nombre de fichiers xls : " & colFiles.Count End SubLister le nom des dosssiers dans un répertoire précis Sub listeNomsDossiers() Dim x As String, Chemin As String Chemin = "C:\Documents and Settings\michel\dossier\general\excel\" x = Dir(Chemin & "*.*", vbDirectory Or vbHidden Or vbSystem) Do Until x = "" If Asc(x) <> 46 Then If getAttr(Chemin & x) = vbDirectory Then msgBox Chemin & x End If x = Dir() Loop End SubCompter le nombre de sous repertoires dans un dossier Le lien sur le forum XLDLister les sous répertoires vides d'un dossier Le lien sur le forum XLD
Sub lister_UNC() Dim wNwk As Object, Drvs As Object Dim i As Integer Set wNwk = createObject("WScript.Network") Set Drvs = wNwk.enumNetworkDrives For i = 0 To Drvs.Count - 1 Step 2 Debug.Print Drvs.Item(i) & " - " & Drvs.Item(i + 1) Next i End Sub
Si vous constatez des erreurs dans la page n'hesitez pas à m'e |
![[REF] Wiki 5 de MichelXld (Formules, Audits de formules, Répertoires, Fichiers)](iconimages/questions-les-plus-fr-quentes-faq-et-didacticiels/ref-wiki-5-de-michelxld-formules-audits-de-formules-r-pertoires-fichiers_ltr.gif)
1>0;A1
)