Résultats de la recherche

  1. R

    XL 2021 Optimisation Code VBA

    Bonjour à tous, Je cherche un moyen d'optimiser un code VBA car mon classeur prend de plus en plus de volume a chaque exécution de la macro et celle ci met de plus en plus de temps à s'exécuter. Quand le fichier repart à 0, 20 secondes, quand je l'ai utilisé 2 ou trois fois, 15 min voir plus ou...
  2. R

    XL 2019 VBA - Ignorer erreur

    Bonjour a tous, Je m'arrache les cheveux sur un code qui fonctionne mais qui me génère une erreur qui m'oblige à appuyer sur OK à chaque boucle... Option Explicit Sub requete_BD() Dim J As Long Dim Ws As Worksheet Dim nomfeuille As String Application.ScreenUpdating = False...
  3. R

    XL 2019 Actualiser filtres en VBA

    Bonjour à tous, Je n'arrive pas à trouver une solution à mon problème de filtre sur colonne de tableau. J'ai une macro qui génère autant de tableau qu'il n'y a de ligne dans mon TCD et applique un filtre à la colonne I, ce filtre est une donnée variable stockée dans une cellule. Tout...
  4. R

    XL 2013 Nom de tableau : existe déjà

    Bonjour à tous, Dans ma macro j'importe des données externes via requête, je nomme mon tableau en "BD_compta", With Sheets("BD").ListObjects.Add(SourceType:=0, Source:= _ "ODBC;DSN=dBASE Files;DefaultDir=" & chemin & ";DriverId=533;MaxBufferSize=2048;PageTimeout=5;" _ ...
  5. R

    XL 2016 Recalcul liens externes processeur 100%

    Bonjour à tous, J'ai un classeur qui historiquement était en xls, pour des raisons d'optimisations du poids je l'ai enregistré en xlsm. Soit passage de 10Mo à 754ko! Dans cette feuille j'ai beaucoup de liens externes vers d'autres feuilles. Une macro assez lourde qui me permet de changer tous...
  6. R

    XL 2016 [RESOLU]Mid et Split : synthaxe

    Bonjour à tous, Je bloque sur un petit bout de code et ne comprends pas pourquoi !!:mad: T1 = Split(Range("y1").Text, "'!", -1) T2 = Mid(T1, 3) Range("AA1").Value = T2 Quand je m'arrête à T1 pas de problème mais le MID me donne "incompatibilité du type 13"... Je dois extraire " =' " au...
  7. R

    XL 2016 [RESOLU] Optimisation code étirer formule

    Bonjour à tous, J'ai un code qui me permet d'étirer mes formules jusqu'à la dernier ligne mais il ralenti extrêmement l’exécution de la macro : Dim lastrow& lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row Range("J2").Select ActiveCell.FormulaR1C1 = "=LEFT(RC1,2)"...
  8. R

    XL 2016 [RESOLU] Macro changement de nom fichier

    Bonjour le forum, Je dois visualiser une feuille portant le même nom que celle active, elle se trouve dans un dossier parent. ma feuille s'appelle "test" dans le dossier "2016" et dans le dossier "2015". Pour pouvoir visualisé les deux feuilles en même temps j'ai créé une macro qui retrouve...
  9. R

    XL 2016 RESOLU :Macro exporter en PDF

    Bonjour à tous, J'utilise une macro pour mon export PDF, mon problème c'est que je souhaiterais qu'il exporte avec les paramètres d'impression. Quand je le fais via barre de menu, excel export XPS pas de problème mais ma macro non!! Workbooks.Open NouveauNom ' ouverture du fichier...
  10. R

    XL 2016 RESOLU : Accéder à un dossier parent en VBA

    Bonjour à tous, J'ai un projet bien difficile à mettre en oeuvre... Je souhaite offrir la possibilité d'ouvrir une feuille excel convertie en PDF via Userform, jusqu'à la rien de bien compliqué je vais pouvoir m'en sortir. Néanmoins la feuille porte le même nom que celle sur laquelle je vais...
  11. R

    XL 2016 RESOLU : Macro Caisse écriture comptable

    Bonjour à tous, J'espère que tout le monde profite bien de ce long week end! Je me suis lancé dans un projet de caisse et souhaiterais générer un fichier d'écritures comptables. Avant de vous solliciter j'ai cherché des exemples de programmation mais je n'arrive pas à comprendre les codes...
  12. R

    XL 2016 Extraire texte cellules fusionnées et copié sur une ligne

    Bonjour à tous, J'ai un problème sur un fichier excel ou je n'arrive pas a avoir sur une seule ligne une série d'information. Vous verrez sur le fichier exemple mes valeurs ne se recopies pas une par ligne mais à la ligne dans une cellule fusionnée, quelqu'un a t-il une idée de comment je...
  13. R

    XL 2016 [RESOLU] Remplacer SommeProd par VBA

    Bonsoir à tous, Meilleurs vœux pour cette nouvelle année!! Je joint un fichier pour le post suivant. Ce que je voudrais c'est remplacer une sommeprod écrite en VBA par un code si possible, car la formule fait ramer ma procédure. J'ai un tableau qui peux contenir jusqu'à 300 000 lignes et...
  14. R

    XL 2016 Export excel vers Powerpoint vba

    Bonjour à tous, Je viens solliciter la communauté car je rencontre une difficulté que je n'arrive pas à résoudre seul. Je fait un export de plusieurs objet vers powerpoint, méthode copy/paste. Mon problème est que ma macro ne fonctionne pas tout le temps, parfois je ne vais avoir aucun...
  15. R

    Filtre élaboré plante la macro

    Bonjour à tous, Dans ma macro je filtre un tableau d'après les critères que j'ai choisi dans mes combobox, jusqu’ici tous va bien. Ensuite je fais une copie du tableau ainsi trié pour l'exporter en image et pouvoir ensuite l'importer dans un autre userform. Voilà mon code : Private...
  16. R

    Filtre élaboré dynamique

    Bonjour le forum, Je souhaiterais pouvoir afficher les informations issus du tableau de donnée principal en fonction des criètères souhaités et filtrer d'après les filtres choisis dans le formulaire, de plus je peux ne désirer que deux critère ou 6 et qu'un seul filtre... il s'agit d'un...
  17. R

    pente et ordonnée origine sur plage variable(résolu)

    Bonjour à tous, J'ai un ultime problème à résoudre (je l'espère vraiment). Je cherche ici a obtenir la pente et l'ordonnée à l'origine de la courbe de tendance représenté graphiquement çi dessous dans le fichier. Ma question est comment faire pour que ma plage pour le calcul intègre le...
  18. R

    moyenne dans un intervalle de dates

    Bonsoir à tous, Voici un nouveau problème : J'aimerais calculer la moyenne des nombres positifs sur un intervalle de date donné (à savoir entre il y a 30 jours et aujourd'hui). Sachant que les nombres à retenir sont le résultat d'une rechercheh d'une en-tête de colonne. je joins un...
  19. R

    macro trop longue a s'exécuter

    Bonsoir à tous, Je cherche à raccourcir une macro qui met plus de 5 min à s'exécuter, en effet j'arrive à ce que je veux mais c'est un peu long. Voici mon code, une grande partie a été obtenue par l'enregistreur : Private Sub Image2_Click() Application.ScreenUpdating = False Dim...
  20. R

    mémoire pile inssufisante erreur d'exécution 28

    Bonjour le forum, J'ai une macro qui me donne une erreur d'exécution sur 2007 : Private Sub Worksheet_Change(ByVal Target As Range) Dim tablo, i As Long, t tablo = [c3:c500] For i = 1 To UBound(tablo) t = tablo(i, 1) If Not (IsEmpty(t) Or IsError(t)) Then _ If...