P

Jeune membre

Inscrit le :14/05/2007
Dernière activité :07/09/2009 à 15:26
Messages
25
Votes
0
Fichiers
0
Téléchargements
0
SujetsMessagesStatistiquesVotes reçus

Messages postés par Pyrof

DateAuteur du sujetSujetExtrait du message
08/09/2009 à 07:54VincentaExtraire des données de X colonnesTu remplaces par dans array(...) tu mets le numéro des colonnes que tu veux récupérer les mails...
07/09/2009 à 15:27VincentaExtraire des données de X colonnesRegarde ce code ...
27/08/2009 à 11:24céline pN° de semaineVoici un fonction vba qui retourne la date du lundi de la semaine pour exemple lundi_semaine(2009,1) donne 29/12/2008 Pour ce qui est du numéro de semaine Excel n'est pas compatible avec la norme francaise. C'est la première semaine de l'année qui contient un jeudi qui est considérée comme première...
16/06/2009 à 07:59dreNuméro d'un mois à partir du nom du mois en texteCe qui n'est pas dit, c'est d'où vient ce texte est-il saisie ou vient-il d'un calcul S'il est saisi, les accent ne seront pas forcément là, c'est pourquoi je transforme en ascii pauvre Bonne journée...
09/06/2009 à 16:01dreNuméro d'un mois à partir du nom du mois en texteVoila un bout de code, il faut transformer le mois en ascii pauvre Sub num_mois() txt = Cells(1, 1) txt = Trim(LCase(txt)) txt = Replace(txt, "é", "e") txt = Replace(txt, "è", "e") txt = Replace(txt, "û", "u") Select Case txt Case "janvier": num = 1 Case "fevrier": num = 2 Case "mars": num = 3 Case...
03/06/2009 à 09:32DrykoFonction secondeAyant aussi besoin de ce type de développement j'ai fait : ceci marche avec les formats suivants: 01:01:01.5 01:01:01,5...
02/06/2009 à 13:57DrykoFonction secondeVoici une fonction...
22/05/2009 à 11:29KiphrineTirage de cellulesEn fait il n'y a pas ce test Je créé une liste des cellules (tableau tab1) et je fais un rnd dans ce tableau, je supprime l'élément choisi dans ce tableau (tab1.Remove (cle)) et je refais le rnd. L'élément supprimé ne pourra pas être choisi une seconde fois...
22/05/2009 à 11:07KiphrineTirage de cellulesVoila avec les commentaires...
22/05/2009 à 10:22KiphrineTirage de cellulesC'est pas la solution définitive mais une approche dans une feuille tu sélectionnes un certain nombre de cellule est tu donnes le nom z_plage tu copies la macro suivante et tu l'exécute. Cette macro va mettre en rouge 9 cellules aléatoirement macro : Sub toto() Dim tab1 Set tab1 = CreateObject("Scri...
02/04/2009 à 16:24bégé3 Recupérer la date ou la semaine en cours via MacroRe Oui c'est fonction marche mais donne de mauvais résultat (ils sont au format US) La première semaine d'une année est celle que contient le premier jeudi...
02/04/2009 à 16:09bégé3 Recupérer la date ou la semaine en cours via MacroVoici une fonction qui donne la semaine Function NOSEM(d As Date, Optional an, Optional tiret) 'As Long If IsMissing(tiret) Then tiret = "" Application.Volatile d = Int(d) NOAN = Year(d + (8 - Weekday(d, vbSunday)) Mod 7 - 3) NOSEM = DateSerial(Year(d + (8 - Weekday(d, vbSunday)) Mod 7 - 3), 1, 1) N...
23/01/2009 à 13:07belzebuth007 Compter le nombre d'éléments d'une somme, dans une celluleTest Function nb_cells(tmp As Range) Application.Volatile tmp2 = tmp.Formula tmp3 = Replace(tmp2, "+", "") nb_cells = Len(tmp2) - Len(tmp3) + 1 if tmp="" then nb_cells=0 End Function...
23/01/2009 à 11:28belzebuth007 Compter le nombre d'éléments d'une somme, dans une celluleIl faut copier cette fonction dans l'éditeur de macro Alt F11 ou outil macro Visual Basic Editor tu insert un module et tu copie la fonction tu reviens dans ta feuille en d1 tu écris =nb_cells(A1) et voila...
23/01/2009 à 10:21belzebuth007 Compter le nombre d'éléments d'une somme, dans une celluleVoici une fonction qui le permet...
23/12/2008 à 13:59rclRegouper automatique et calculOn imagine que tu as dans la colonne 1 ( 1seule colonne) 2144654 2005 15065141 PIVOINE 144,02 2469517 2006 15065141 PIVOINE 67,70 2836023 2007 15065141 PIVOINE 51,45 2835770 2007 15065141 PIVOINE 51,45 2049402617 2002 TULIPE 0,00 1349890 1985 15000643 TULIPE 80,84 3272558 2008 15000643 TULIPE 377,99...
23/10/2008 à 10:57EricFOù est le MIN?Dans les cellules de la colonne b, tu peux faire une mise en forme conditionnelle =min Tu peux aussi faire une autre colonne dont les cellules prenne la valeur 1 si la colonne b=min et après tu utilises les filtres...
21/10/2008 à 15:46souri84 Extraction chaine de cractères par formuleJe ne vais pas répondre complètement à ta demande, mais te donner une solution simple en vba et oui parfois c'est plus simple d'écrire ses fonctions plutot que d'écrire des lignes de commande à ne plus rien comprendre. voila la fonction vba : Function aa(chemin) Application.Volatile tmp = Split(chem...
26/05/2008 à 15:07CocobarjoMettres toutes les x données à la ligneImaginons que tes chiffres soient en colonne 1 le résultat sera en colonne 3...
12/09/2007 à 10:39Jestro Résultat affiché uniquement si données introduitesBonjour...
22/05/2007 à 15:24seb2Probleme caractere polonais CSVJe n'ai pas de solution, mais quelque information, le format csv utilise le code ascii jusqu'à décimal 255. Pour accéder au Polonais (ou tout autre langue), on utilise des polices unicodes ayant des milliers de caractères. Il est donc impossible (à ma connaissance) de faire à partir d'excel de l'uni...
22/05/2007 à 14:30touloustudentExamens sur Excel (simple)Il est fort, à 21 ans, il manque les cours, il demande de l'aide, et il se permet de critiquer Pauvre de nous !!!...
15/05/2007 à 15:58Maxime63Calculer un prix en fonction d'une heureAvec retard une autre façon...
14/05/2007 à 13:27Patrick_MRemplacer les lettres dans plusieurs formules à la foisMoi je travaille le plus possible en affectant des noms aux cellules ou range ainsi tu nommes tes cellules H2 toto et B3 tata Ta formule devient =toto+tata Maintenant il suffit de modifier l'adresse de toto par insertion nom définir...
14/05/2007 à 12:03bloubeeMise en forme conditionnelleVoici une autre méthode, peut être plus lourde à mettre en oeuvre mais qui n'a pas de limite On connaît la mise en forme conditionnelle d’Excel. Mais celle-ci est limité à 3 conditions. Pour palier cette limite voici une solution : Placer ces macros dans la feuille La macro mev_01 (Mise En Valeur) p...