| Date | Auteur du sujet | Sujet | Extrait du message |
|---|
| 25/02/2022 à 11:27 | barth66 | Boucle dernière cellule d'une colonne | Je mets ce post en résolu vous m'avez été d'une grande aide, CDt... |
| 25/02/2022 à 10:08 | barth66 | Boucle dernière cellule d'une colonne | J'ai une boucle sur une macro mais je voudrai qu'elle s'arrête à la dernière cellule non vide de la colonne B de l'onglet (total) , j'ai essayé avec cette formule mais ca ne fonctionne pas elle affiche un message d'erreur à la fin de la macro, Merci pour votre aide, Cdt... |
| 24/02/2022 à 15:11 | barth66 | Boucle et envoi de mail | RAS désolé tout fonctionne correctement , merci encore vous êtes génial !!!!... |
| 24/02/2022 à 15:09 | barth66 | Boucle et envoi de mail | Voici le code que j'obtiens : Sub boucle2() Dim i, imax As Integer ' Nombre de lignes à parcourir dans la colonne B imax = Application.WorksheetFunction.CountA(ThisWorkbook.Worksheets("Total").Range("B:B")) ' Boucle For i = 1 To imax ' Affichage successif des valeurs des cellules ThisWorkbook.Worksh... |
| 24/02/2022 à 14:22 | barth66 | Boucle et envoi de mail | En fait au lieu que ce soit dans un msg box je voudrais que le nom du client s'affiche en cellule U1 de l'onglet départ, Cdt... |
| 24/02/2022 à 14:07 | barth66 | Boucle et envoi de mail | Je ne comprends pas ou placé ce code, le voici en intégralité : J'ai essayé de le mettre en début mais ca ne fonctionne pas... qu'est ce que vous entendez par difficile d'accès ? Merci à vous encore, Cdt, Sub Envoi() ' 'Columns("G:J").Select 'Selection.EntireColumn.Hidden = True Dim i, imax As Integ... |
| 24/02/2022 à 09:49 | barth66 | Boucle et envoi de mail | Please... |
| 07/02/2022 à 09:00 | barth66 | Boucle et envoi de mail | .... :( personne pour m'aider ... |
| 04/02/2022 à 14:09 | barth66 | Boucle et envoi de mail | J'ai un fichier avec une macro qui me permet d'envoyer par mail un tableau Excel en pdf, ( ci joint ) , ce que je souhaiterai maintenant c'est qu'une fois le premier mail parti : la cellule u1 de l'onglet depart , aille chercher la valeur de la cellule =Total!B3 envoi le mail puis aille chercher la... |
| 12/08/2021 à 15:27 | barth66 | Variable Htmlbody | Merci pour l'astuce :)... |
| 12/08/2021 à 14:21 | barth66 | Variable Htmlbody | Je savais qu'il fallait pas que je cloture trop vite ... Pour augmenter la taille j'ai essayé cela en cherchant sur des forums mais cela ne fonctionne pas :( "<html><body><b><u> <font size="+3">R ecordatorio :</body></html><br></b></u> <... |
| 12/08/2021 à 13:44 | barth66 | Variable Htmlbody | Merci pour votre aide c'est tout simplement parfait je n'hésiterai pas à transmettre au pére noel et petit cadeau pour vous en fin d'année, :) bonne journée, à vous... |
| 12/08/2021 à 12:09 | barth66 | Variable Htmlbody | Je cherche à inclure une variable ( N°Sem) dans mon code vba qui est en html body , mais cela ne fonctionne pas :( .htmlbody = "<html><body>Buenos dias,</body></html><br>" & _ "<html><body>Adjunto el programa para la semana & NoSem </body></html>... |
| 24/11/2020 à 16:40 | barth66 | Erreur d'execution code 6 "date" | J'ai une macro qui converti un fichier excel en pdf en le nommant en fonction des données d'une cellule ( ici b2 ) Lorsque j'inscrit 23092 cela fonctionne bien mais quand j'écris 230920 cela me met un message d'erreur : Je pense qu'il y a une erreur quand je déclare ma variable mais je ne sais pas c... |
| 09/04/2020 à 08:51 | barth66 | Insertion image dans mail via VBA | Tout d'abord merci par avance pour votre aide, J'ai un code pour générer un mail automatiquement depuis mon fichier Excel , Seulement à la fin j'aimerai intégrer une image qui se trouve dans ce fichier et qui s'appelle "Image 2" , mais je ne sais pas ou l'insérer plusieurs exemple sur le forum parle... |
| 13/11/2019 à 09:16 | barth66 | Pb dans mon code ouverture de fichier | Merci pour votre retour mais en remplencant voici le message que j'obtient... |
| 12/11/2019 à 16:43 | barth66 | Pb dans mon code ouverture de fichier | Car j'ai une liste déroulante avec une selection des jours de semaine qui varient , Le display n'est pas le bn terme ? Cdt... |
| 12/11/2019 à 16:31 | barth66 | Pb dans mon code ouverture de fichier | Voici le code entier : Option Explicit Dim ListFic(10) As String Function OuvreCopie(CheminFic As String) Dim wb As Workbook, Mwb As Workbook Dim ws As Worksheet, Mws As Worksheet Dim Societe As String, Attn As String, Comercial As String, NoSem As Integer Dim LigDeb As Integer, LigFin As Integer 'A... |
| 12/11/2019 à 16:22 | barth66 | Pb dans mon code ouverture de fichier | Merci mais toujours le même message..... |
| 12/11/2019 à 16:01 | barth66 | Pb dans mon code ouverture de fichier | Ci joint la copie écran du message d'erreur je ne comprends pas j'ai bien déclarer les variables non ... |
| 12/11/2019 à 15:35 | barth66 | Pb dans mon code ouverture de fichier | Voici mon code Dim ListFic(10) As String Function OuvreCopie(CheminFic As String) Dim wb As Workbook, Mwb As Workbook Dim ws As Worksheet, Mws As Worksheet Dim Societe As String, Attn As String, Comercial As String, NoSem As Integer Dim LigDeb As Integer, LigFin As Integer 'ATTRIBUTION Set Mws = Act... |
| 21/10/2019 à 16:24 | barth66 | Rechercher remplacer | Merciiiii !!!! Je vous aime... |
| 21/10/2019 à 16:17 | barth66 | Rechercher remplacer | Ahhh , je m'arrache les cheveux cela ne fonctionne pas et pourtant je pense avoir bien ajuster le code, je ne comprends pas ..... |
| 21/10/2019 à 16:06 | barth66 | Rechercher remplacer | Ok merci pour l'info, cela ne fonctionne pas ... dois je rajouter dans le code le nom du fichier source ? "Test" ? Merci... |
| 21/10/2019 à 15:35 | barth66 | Rechercher remplacer | Merci , cela marche trés bien , Par contre comment faire si ma référence B2 est dans un autre fichier , par exemple : =RECHERCHEV(A6;'[TEST .xlsx]S46'!$A:$AP;5;0)-RECHERCHEV(A6;'Test2'!A:E;4;0) Encore un grand merci pour votre aide, Cdt... |
| 21/10/2019 à 14:59 | barth66 | Rechercher remplacer | Alors la dimension des plages non, Par contre le nom des onglets oui car pour être transparent ce sera le numéro des semaines ( A la place de Test1 on aura Semaine40, à la place de Test2 Semaine41, etc... )... |
| 21/10/2019 à 14:49 | barth66 | Rechercher remplacer | Et merci pour ton retour, Car je ne serai pas l'utilisateur final du fichier et les personnes qui l'utiliserons sont vraiment novice dans Excel , Il me faut vraiment leur simplifié le travail... D’où l'utilité d'une boite de dialogue... Merci encore... |
| 21/10/2019 à 14:34 | barth66 | Rechercher remplacer | Je n'arrive pas à trouver une macro me permettant de changer dans mes formules rechercheV l'onglet de recherche, C'est à dire que sur ce fichier je voudrai modifier l'onget de recherche de Test1 par Test2 , via une boite dialogue qui me permettrait de simplement remplacer le 1 par le 2, Pensez vous... |
| 08/10/2019 à 17:25 | barth66 | Ouverture de tous les fichiers xls d'un dossier | Merci pour ce retour , mais le but étant ensuite de récupérer des informations de ces classeurs et les importer dans le classeur source .. Cdt... |
| 08/10/2019 à 17:15 | barth66 | Ouverture de tous les fichiers xls d'un dossier | Je cherche une macro simple pour ouvrir tous les fichiers .xls contenus dans un dossier C:\Users\barth66\Desktop\Test commandes Je vous assure que j'ai passer en revu pas mal de message issu de forum mais je ne trouve rien qui aille, Merci pour votre aide, Cdt... |
| 04/10/2019 à 14:36 | barth66 | Texte mail sur plusieurs lignes macro | Peut-etre .Body = "Bonjour," & vbCRLF & "Voici le fichier." & vbCRLF & "Cordialement."... |
| 04/10/2019 à 13:58 | barth66 | Texte mail sur plusieurs lignes macro | J'utilise ce bout de code pour envoyer un mail via une macro sur Excel , With OutMail .To = "" .CC = "" .bcc = "" .Subject = " Commande" .Attachments.Add TempFilePath & TempFileName & ".pdf" .Body = "Pour la semaine ... " Seulement j'aimerai que le corps du texte soit sur plusieurs lignes mais je n'... |
| 04/10/2019 à 13:58 | barth66 | Texte mail sur plusieurs lignes macro | J'utilise ce bout de code pour envoyer un mail via une macro sur Excel , With OutMail .To = "" .CC = "" .bcc = "" .Subject = " Commande" .Attachments.Add TempFilePath & TempFileName & ".pdf" .Body = "Pour la semaine ... " Seulement j'aimerai que le corps du texte soit sur plusieurs lignes mais je n'... |
| 04/09/2019 à 12:17 | barth66 | Masquer ligne si 1 cellule de la ligne est vide | Effectivement désolé pour mon annoncé , je souhaiterai que si de la plage C4 à I9 uniquement la ligne est vide alors elle ce masque, Merci pour votre aide, Cdt... |
| 04/09/2019 à 11:57 | barth66 | Masquer ligne si 1 cellule de la ligne est vide | J'aurai voulu par macro masquer une ligne si 1 seule cellule d'une plage est vide , Par exemple , ici dans le fichier joint je ne souhaiterai uniquement masquer la ligne 7 de mon fichier, Merci par avance pour votre aide précieuse, Cdt... |
| 19/06/2019 à 17:05 | barth66 | Concatener colonne + condition | Car ce sont des donnees extraire depuis un as400 et que je ne peux modifier le format de sorti malheureusement..... |
| 19/06/2019 à 12:06 | barth66 | Concatener colonne + condition | Voila je ne trouve pas la formule qui me permettrait de concaténer les colonnes en fonction du numéro de BL car parfois je peux avoir un seul numéro et parfois 3 mêmes numéros , Dans l'exemple ci joint vous trouverez en cellule G5 , le résultat attendu , Merci par avance pour votre aide, Guillaume... |
| 08/10/2018 à 12:00 | barth66 | Somme jusqu'a | Parfait , merci beaucoup ... |
| 08/10/2018 à 11:13 | barth66 | Somme jusqu'a | Voila j'ai cherché sur plusieurs forums et message mais je n'ai pas trouvé ma solution , en fait je souhaiterai qu'en fonction d'un critère renseigné dans un autre onglet , j'obtiendrai la somme jusqu'a ce critère. Pour exemple , le fichier joint : Le critère de la semaine est le N°52, je souhaitera... |
| 01/10/2018 à 14:46 | barth66 | Ouverture plusieurs fichiers Excel | Merci, j'ai trouvé avec ce code cela fonctionne Sub test() Dim MonRepertoire As String, fso As Object, f As Object, i As Integer Set fso = CreateObject("Scripting.FileSystemObject") MonRepertoire = "R:\Comptabilite\Budget\" For Each f In fso.GetFolder(MonRepertoire).Files If Left(f.Name, 8) = "1 - V... |
| 01/10/2018 à 12:16 | barth66 | Ouverture plusieurs fichiers Excel | J'ai consulté pas mal de post sur ce sujet mais je n'arrive pas à trouver chaussures à mon pied ... En fait je souhaiterai pouvoir ouvrir tous les fichiers excel contenu dans le dossier R:\Comptabilite\Budget\ commencant par 1 - VIP . Voici la commande que j'utilise : Sub infonewb() On Error Resume... |
| 26/04/2018 à 10:26 | barth66 | Affichage derniere cellule non vide | Merci pour ton retour, en fait je pense que je me suis mal exprimé dés le début, effectivement le résultat que je souhaite obtenir est celui la , seulement il faudrait prendre en compte le nom ( colonne A ) , c'est pour cela que dans la colonne G j'utilise une recherchev , sauf que comme il n'y a au... |
| 26/04/2018 à 10:02 | barth66 | Affichage derniere cellule non vide | Je suis à la recherche d'une formule qui me permettrait d'afficher la dernière cellule non vide en fonction d'un critère, je mets en PJ un tableau qui sera je pense plus parlant, J'ai essayé avec une recherchev mais je n'arrive pas au résultat souhaité, Merci pour votre aide... |
| 06/08/2015 à 16:08 | barth66 | Réponse message automatiquement avec code | Voici mon code : Macro2 Macro ' ' Workbooks.Open Filename:= _ "R:\\Guillaume\Au 310715\Fichier de base.xls" Workbooks.Open Filename:= _ "R:\\Guillaume\Au 310715\Anthony.xlsm" Sheets("Paramètres").Select Sheets("CA").Select Sheets("Marge").Select Sheets("Volume").Select ActiveWorkbook.Save ChDir "R:\... |
| 18/05/2015 à 09:35 | barth66 | Graphique croisé selection filtre auto | Et merci pour votre aide, cela fonctionne parfaitement ! Bonne journée... |
| 15/05/2015 à 11:03 | barth66 | Graphique croisé selection filtre auto | Effectivement c'est exactement ce que je souhaite mais lorseque je l'adapte a un autre fichier il bloque sur .PivotFilters.Add _ Type:=xlCaptionIsBetween, _ Value1:=[départ], _ Value2:=[fin] Pourtant j'ai bien nommé les cellules départ et fin dans ma feuille, Le TCD ne prends aucune... |
| 13/05/2015 à 08:34 | barth66 | Graphique croisé selection filtre auto | Merci pour votre réponse aussi rapide, le code marche bien cependant j'ai ommis quelques précisions, j'ai deux graphiques sur la meme feuille avec des bases de données différentes mais je souhaite le meme filtre, de plus j'affiche les semaine en axes et le filtre se fait sur les axes j'ai essayé de... |
| 12/05/2015 à 17:28 | barth66 | Graphique croisé selection filtre auto | Voila je rencontre une problématique, je souhaiterai qu'un Graphique croisé dynamique sélectionne automatiquement les filtres en fonction d'une plage de cellule, "cellules en jaune" dans mon fichier, je suis pas sur de m'être trés bien exprimé mais je persuadé qu'a la vu du fichier vous comprendrez... |
| 17/04/2015 à 09:43 | barth66 | Concaterner en fonction de | Voila mon souci je n'arrive pas à obtenir une formule qui me permettrait de concactener en fonction d'un changement de critères, sur mon exemple je souhaiterai qu'a chaque changement de prénom ca me concaterner avec les nombre en dessous, cette liste est courte elle doit etre actualisé et soumise à... |
| 15/04/2015 à 14:03 | barth66 | Graphique croisé dynamique | Super, Merci Bonne aprem... |