F

Membre habitué

Inscrit le :25/06/2014
Dernière activité :20/11/2019 à 10:34
Version d'Excel :2003
Messages
122
Votes
0
Fichiers
0
Téléchargements
0
SujetsMessagesStatistiquesVotes reçus

Messages postés par Filou78 - page 2

DateAuteur du sujetSujetExtrait du message
27/08/2015 à 13:35Filou78 RechercheH avec nom de variableAhhhhhh Ok merci cela fonctionne.......
27/08/2015 à 10:38Filou78 RechercheH avec nom de variableJ'ai écris une macro avec une rechercheh associée avec un nom de variable. Et ça fonctionne pas.... Ci-joint le fichier Quelqu'un a une idée ? Merci...
12/08/2015 à 15:09Filou78 Problème de format de date dans une formuleMerci les gars tout fonctionne !!...
12/08/2015 à 14:23Filou78 Problème de format de date dans une formuleJe voudrais tester une variable de type date (JOUR_TEST) avec des valeurs date d'une colonne pour savoir si les dates de ma colone sont supérieures ou inférieures. Définition de ma date Test : Public JOUR_TEST As Date ' car ma date sert dans plusieurs macros. ActiveCell.FormulaR1C1 = "=DATE(YEAR(TOD...
29/07/2015 à 17:04Filou78 Question MsgBoxMerci beauoucp !!...
29/07/2015 à 14:24Filou78 Question MsgBoxHeu .... Désolé mais j'arrive pas à reproduire le user form.... Voici mon fichier (tout complet)...et donc la macro bloque et attends que j'apuuis sur une touche pour afficher ma msg Box... Merci de votre aide...
29/07/2015 à 13:18Filou78 Question MsgBoxCela me convient tout à fait !!! merci bp !!...
29/07/2015 à 10:19Filou78 Question MsgBoxMerci de ta réponse rapide Voici mon fichier...
29/07/2015 à 09:44Filou78 Question MsgBoxQuelque chose que je ne comprends pas.... J'ai écrit une macro pour extraire des données de SAP, puis créer un TCD, et enregistrer le résultat. Mais avant l'enregistrement je voudrais qu'une MsgBox demande à l'utilisateur de saisir desinformations avant que le fichier ne s'enregistre. Et pour que la...
30/06/2015 à 09:27Filou78 On Error Resume - Double vérificationDésolé vraiment désolé je suis confus je n'ai pas attaché le fichier.......
30/06/2015 à 08:53Filou78 On Error Resume - Double vérificationJ'ai écrit une petite macro (voir pièce jointe) permettant d'aller chercher dans un onglet le nom d'un batch. La fonction on error resume s'effectuer sur le nom du batch représenté par cells(nbr_ligne,num_col) et vérifie que ce nom existe dans l'onglet du jour (JOUR_DEBUT). Mais comment faire pour r...
22/06/2015 à 17:20Filou78Excel et PowerShellJ'ai créé un script via PowerShell pour "ouvrir" ma fenetre windows. Quand le script est utilisé tout seul via "ouvrir avec powershell" cela fonctionne, mais quand il est inclus dans ma macro excel rien.... Une idée ? Quelqu'un ? Merci d'avance Ci-dessous le code : Dim x x = Shell("POWERSHELL.EXE "...
19/06/2015 à 13:27Filou78 Macro et Script WindowsMerci Galopin !!! En écrivant : Del "C:\Local\Documents\Document PPM\ESSAI\Classeur1.xls" Cela fonctionne tout à fait correctement !!!! Puisque tu as l'air de t'y connaitre tu saurais comment faire pour ouvrir un répertoire ? Simplement l'ouvrir... Merci...
19/06/2015 à 11:32Filou78 Script PowerShell avec macroJe cherche à exécuter un script powershell via une macro J'ai longuement parcouru le net et j'ai trouvé ça : Shell "C:\Local\Documents\Document PPM\monscript.ps1", 1 Bon si je suis là c'est que cela ne fonctionne pas..... Quelqu'un saurait comment faire ? Merci !!...
19/06/2015 à 11:29Filou78 Macro et Script WindowsMerci les gars...
19/06/2015 à 09:51Filou78 Macro et Script WindowsCa ne fonctionne pas Kill C:\Local\Documents\Document PPM\ESSAI\Classeur1.xls il ne supprime pas le fichier......
19/06/2015 à 08:58Filou78 Macro et Script WindowsJe cherche à créer un script windows et çe ne marche pas.... Ci-dessous le code que j'ai écris : DEL C:\Local\Documents\Document PPM\ESSAI\Classeur1 Donc je voudrais "simplement" supprimer le classeur1 mais non il veut pas......
16/06/2015 à 13:55Filou78 Recherche texte dans une feuilleMerci !!!...
16/06/2015 à 10:38Filou78 Recherche texte dans une feuilleJe suis en train de m'arracher les cheveux car je n'arrive pas à trouver une macro simple pour chercher un texte dans une feulle excel. Ca parait bete mais je sèche !!! Une idée quelqu'un ? Merci...
18/05/2015 à 10:51Filou78 Envoi Mail automatique - HTLM BODYMerci J'ai suivi tes conseils, cela fonctionne...
13/05/2015 à 15:28Filou78 Envoi Mail automatique - HTLM BODYJe suis en train de rédiger une macro pour envoyer quelques 5000mails.... Quelques "problèmes" subsistent... Le mail que je voudrais envoyer : Madame, Monsieur, Gnagnagna Ababab dfSF Premier mail parti trop vite Donc mon mail doit ressembler à ça : DEBUT DU MAIL Madame, Monsieur, Je suis ..... mot e...
22/04/2015 à 11:36Filou78 Copie caché envoi mailHeu.....comment dire.... Je vais aller me recoucher, c'est mieux..... MERCI !!!!!!...
22/04/2015 à 11:31Filou78 Copie caché envoi mailLe code ci-dessous fonctionne bien, sauf la copie caché... La macro ne plante pas mais le mail ne part à l'adresse en copie cachée indiquée Quelqu'un a une idée ? merci Sub ENVOI_MAIL() ' ' ENVOI_MAIL ' Dim objMail As Outlook.MailItem ' Active la télécommande Set objOL = Outlook.Application ' Avtive...
20/04/2015 à 17:15Filou78 Envoi Mail automatiqueOk je vais essayer merci.....
20/04/2015 à 16:34Filou78 Envoi Mail automatiqueEt si je veux que le mail parte d'une autre adresse que la mienne ...
20/04/2015 à 15:57Filou78 Envoi Mail automatiqueImpeccable Cela fonctionne !!!! Merci...
20/04/2015 à 15:47Filou78 Envoi Mail automatiqueJ'ai écris ce petit code pour envoyer des mails automatique pour une liste d'adresse mail que voici : Option Explicit Sub ENVOI_MAIL() Dim nbr_ligne Dim corps As String Dim NUM_CONTRAT Dim msg As MailItem Dim DEST_MAIL Dim strbody As String Dim olapp As Outlook.Application Set olapp = New Outlook.Ap...
30/03/2015 à 11:44Filou78 Remplacer des cellules par des variables fonction ifJe n'arrive pas à remplacer dans une formule IF les cellules par des noms de variables Voici mon code Cells(nbr_ligne, 12).Select ActiveCell.FormulaR1C1 = "=IF(COUNTIF(R[-5]C[-1],""*E6*"")=1,R[-5]C[-9],0)" Je recherche dans un tableau qui a un nombre de ligne variable...
30/03/2015 à 09:56Filou78 Rechercher la ligne d'une celluleDésolé je t'ai envoyé le mauvais fichier..... Les voici.... En attendant j'ai triché ..... Ce qui ne marche pas est en commentaire Merci....
27/03/2015 à 13:37Filou78 Rechercher la ligne d'une celluleLe voilà...
27/03/2015 à 11:51Filou78 Rechercher la ligne d'une celluleRe bonjour Alors mon code est le suivant : 'Recherche du N° de ligne de la date du jour du bdx Set C = Columns("A").Find(Date_bdx, Range("A7").End(xlDown), xlValues, xlWhole) If Not C Is Nothing Then num_jour = C.Row End If Date_bdx étant une variable récupérer d'une autre macro et définie comme : P...
26/03/2015 à 17:30Filou78 Rechercher la ligne d'une celluleSuper ça marche !!! Merci !!!...
26/03/2015 à 17:26Filou78 Rechercher la ligne d'une celluleJ'ai écrit çà : Set C = Columns("A").Find(" & num_ligne & ", Range("A48").End(xlDown), xlValues, xlWhole) If Not C Is Nothing Then MsgBox ("trouvé en " & C.Row & " !") End If Le num_ligne étant la valeur que je recherche mais cela ne fonctionne pas.....
26/03/2015 à 14:51Filou78 Rechercher la ligne d'une celluleJe vous expose mon problème. Dans un tableau, je cherche à connaitre la ligne d'une cellule. Facile = cellule("ligne"; C1), cela me ressortira le numéro de ligne de la cellule C1 Mais si je veux que cette fameuse cellule C1 soit le résultat précédent d'une recherchev. Je m'explique avec le code ci-d...
25/03/2015 à 16:45Filou78 Transformer une formule en fonctionMerci !!!...
25/03/2015 à 14:37Filou78 Transformer une formule en fonctionQuestion : J'ai cette formule : ActiveCell.FormulaR1C1 = "=IF(SEARCH(""E6"",R[-13]C[-1]),""oui"",""on"")" Je voudrais intégrer un then et un else Donc faire quelque chose comme çà : If SEARCH(""E6"",C2) then 'un code else 'un autre code end if Et ben ça marche pas .... Je crois qu'il...
18/03/2015 à 16:18Filou78 Recherche nom d'un ongletDésolé les gars mais ça marche pas......
16/03/2015 à 11:03Filou78 Recherche nom d'un ongletJ'ai écrit ce code : Dim sh As Worksheet For Each sh In Worksheets If sh.Name <> Lib_Mois Then MsgBox "L'onglet " & Lib_Mois & " des clés de ventilation n'existe pas." ' ActiveWindow.Close Sheets("DEBUT").Select Exit Sub End If Next sh Pour rechercher si le nom de l'onglet "Lib_Mois" défini au...
24/02/2015 à 17:21Filou78 Déclenchement d'une macro à l'ouverture d'un fichierMerci les gars...
24/02/2015 à 17:10Filou78 Déclenchement d'une macro à l'ouverture d'un fichierComment déclencher une macro lors de l'ouverture d'un fichier ? En fait je voudrais que les variables à saisir par les utilisateurs se mettent à zéro... Merci d'avance...
24/02/2015 à 16:11Filou78 Multiplier et variableAh ben oui... désolé j'ai mal faire mon copier/coller......
24/02/2015 à 16:04Filou78 Multiplier et variableMerci mais j'ai eu le même message d'erreur... par contre je viens de trouver ça ActiveCell.FormulaR1C1 = "=SUM(" & TOT1 & "*ROUND(RC[-1],2)/100)" Et là ça fonctionne.... Enfin...presque le résultat est somme(1389;31**ARRONDI(E9;2)/100) et je comprends pas parce que ma variable logiquement e...
24/02/2015 à 15:45Filou78 Multiplier et variableFranchement j'ai honte mais bon.... Voici mon code ActiveCell.FormulaR1C1 = "=R[34]C[-3]*ROUND(RC[-1],2)/100" Et je voudrais "tout simplement" remplacer le R[34]C[-3] par une variable prédéfinie..... Ben je bloque..... J'ai TOUT essayé .... Ca par exemple Acti...
23/02/2015 à 11:48Filou78 Copie de nombreMerci pour cet autre solution...
23/02/2015 à 11:33Filou78 Copie de nombreParfait ça fonctionne avec les arrondis (c'est con mais bon...) Merci...
23/02/2015 à 11:16Filou78 Copie de nombreEt merci pour vos réponses, mais j'avoue que je ne comprends pas les histoires d'affichage..... Si l'on calcule manuellement la cellule G9 on obtient 2 306,73 * 38,84 / 100 = 895,93.... D'ailleurs si on modifie la cellule F9 et que l'on saisi manuellement 38,84 là le résultat est bien de 895,93... J...
23/02/2015 à 10:35Filou78 Copie de nombreJe suis confronté à un problème bizarre que je n'arrive pas à élucider... Dans une feuille excel je récupére des données d'une autre feuille de calcul afin d'effectuer des calculs sur ma prmière feuille. Les données sont correctement récupérées, mais le calcul est faux !!!! Je joins les fichiers pou...
20/02/2015 à 12:58Filou78 Nommer une plage de celluleMerci !! Ca marche parfait !!...
20/02/2015 à 10:33Filou78 Nommer une plage de celluleJe voudrais nommer une plage de cellule avec un nom prédéfini sachant que cette plage de cellule est d'une longueur variable. Je compte d'abord le nombre de ligne du fichier : nb_ligne = 2 While Cells(nb_ligne, 1) <> "" nb_ligne = nb_ligne + 1 Wend Ensuite je nomme la colonne K (c'est toujours...
20/02/2015 à 10:33Filou78 Nommer une plage de celluleJe voudrais nommer une plage de cellule avec un nom prédéfini sachant que cette plage de cellule est d'une longueur variable. Je compte d'abord le nombre de ligne du fichier : nb_ligne = 2 While Cells(nb_ligne, 1) <> "" nb_ligne = nb_ligne + 1 Wend Ensuite je nomme la colonne K (c'est toujours...