Résultats de la recherche

  1. S

    XL 2019 C'est lent mais alors lent

    Bonsoir, J'ai un code avec des boucles imbriqués qui est bien lent et donc je viens vers vous pour apprendre. En piste pour alléger le code : 1 / sur ma plage, les cellules à tester sont toutes les lignes avec un pas de 8, mais je ne sais pas l'écrire. 2 / Et je ne sais pas sortir de la multi...
  2. S

    Power Query SQL & format DATE

    Bonjour, J'essaye désespéramment de faire un import SQL avec un champ date dans power query. Il ne m'affiche que du DATETIME, ou bien il convertis en texte ma donnée Pourquoi un DATE => Pour avoir un format JJ/MM/AAAA et pas les heures J'ai également essayé avec convert, cast, format cela ne...
  3. S

    Autres SQL & comptage

    Bonjour, Dans le cadre de power query j'aurais besoin d'un comptage simple sur SQL (que je ne maitrise pas du tout) je m'en sort avec ce code, mais j'aimerais qu'il ne me supprime pas les doublons, juste rajouter une colonne avec un index SELECT CONTACT.BPANUM_0, COUNT(CONTACT.BPANUM_0) as nb...
  4. S

    XL 2016 Methode find sans select ne marche pas

    Bonjour, Tout est dit, après des heures de recherches, je n'arrive pas à appliquer une methode find si je ne fait pas select sur la feuille avant. Ci-dessous le code (très classique...). J'ai du louper quelque chose. With Worksheets("Feuil2") Set d = .Range(Cells(2, 3), Cells(1000...
  5. S

    XL 2016 VBA - Format de cellule & Range

    Bonjour, Je n'arrive pas à alléger le code suivant : J'ai essayer de ne pas faire de select, mais ce n'est pas vraiment plus rapide... De manière générale avec les formats c'est long, et je ne peux pas faire .clearcontent... Feuil1.Range(Cells(6, 1), Cells(1000, 1000)).Select...
  6. S

    XL 2016 VBA & boucle for

    Bonjour, J'ai un code VBA un peu lent, mon tableau grandis et cela devient génant. For X5 = 2 To TAB5 sur mon tableau (qui fait 2500 lignes) If Feuil6.Cells(x, 12).Value = "MANQUE APPROS" Then Exit For 'je vérifie la condition 1 et je sort dans ce cas' If Feuil5.Cells(X5...
  7. S

    XL 2016 RESOLUE :Objet collection et boucke

    Bonjour, Afin de compter des valeurs unique j'utilise un objet collection. Seulement, il me met un message d'erreur quand je rentre à nouveau dans la boucle en indiquant que la clé de collection est déja attribuée, j'ai pourtant bien essayer de vider la collection via .remove ect ect mais cela...
  8. S

    XL 2016 Optimiser et revoir une boucle

    Bonjour, J'ai une macro, qui fonctionne bien mais un peu lente, Je me demande comment l'optimiser pour eviter les boucles imbriquée "IF" et bien sur plus rapide en Set/with. Merci de vos conseils. PS: je n'ai pas trouvé comment éviter la fonction Feuil1.activate...
  9. S

    XL 2016 If avec "pas" simple - RESOLU

    Bonjour, Pas néophyte, C'est pourtant simple mais je n'arrive pas construire la règle suivante de manière simple : If L = 8 Then L2 = 7 If L = 16 Then L2 = 8 If L = 24 Then L2 = 9 If L = 32 Then L2 = 10 'et ainsi de suite jusqu'a L=208 Merci de votre aide,
  10. S

    XL 2016 VBA & Charge capa conditionnelle

    Bonjour, Afin d'aller plus loin dans l'analyse j'aurais besoin d'extraire, via VBA une charge capa conditionnelle. La difficulté réside dans le balayage suivant les 2 axes ( colonnes & lignes) et d'insérer une condition de couleur de cellule. J'ai fait un fichier simplifié avec le résultat...
  11. S

    XL 2016 Somme.si et doublons

    Bonjour, Aprés des heures de recherches je viens vers vous pour mon soucis: Je cherche à faire une somme.si (ou .si.ens) avec des conditions Tout fonctionne sauf dans le cas ou j'ai des doublons, il me les comptes 2 fois. Bien évidement je ne peux pas modifier la source de donnée en supprimant...
  12. S

    XL 2016 méthode clear et range trop grand

    Bonjour, J'ai la macro suivant qui fonctionne mais bien sur ne convient pas pour une plage de donnée aussi importante. Comment faire ? Un tableau géant ? =) Application.ScreenUpdating = False: Application.EnableEvents = False: Application.Calculation = xlCalculationManual Dim Cel As Range...
  13. S

    XL 2019 VBA & Find plus leger

    Bonjour, J'utilise depuis longtemps cette trame de find mais qui est lourde à insérer car parfois imbriquée plusieurs fois, Avez-vous une piste pour alléger, la difficulté étant une recherche qui ne s'arrête pas au premier objet trouvé! Set plage = Range(Cells(6, R2 - 48), Cells(213, R2 +...
  14. S

    XL 2016 RESOLU - Listbox & Filtre

    Bonjour, J'ai rempli une listbox multicolonne avec la méthode rowsource (plage nommée). J'aimerais que la valeur contenue dans la colonne N°2, permette un filtre : Si 0 on affiche la ligne, Si 1 on ne l'affiche pas Sauf que j'ai l'impression que ce n'est pas possible, car il faudrait aller...
  15. S

    Autres Sql et

    Bonjour, A l'aise en VBA je découvre le SQL... J'ai besoin au moment de l'import de dire que le champ "MFGOPETRK.EMPNUM_0" qui correspond au numéro d'équipe me donne "MATIN" si la valeur est de 1 et "MIDI" si la valeur est de 2, J'ai regardé, et bien que cela soit simple (je n'en doute pas) je...
  16. S

    Power Query SQL et update

    Bonjour, Bien à l'aise en VBA, et débutant en SQL j'ai besoin de votre aide, Je cherche à réaliser un replace sur la commande suivante : Mais mon update ne marche pas... Comment lui dire de mettre pour chaque ligne = 1000 la valeur 1200 ? Il me met syntaxe incorrecte. PS : sans le update cela...
  17. S

    XL 2016 Déplacer un range sur la même ligne

    Bonjour, Tout est dans le titre, Dans le cadre d'un planning, Comment imposer un déplacement, dans la même ligne d'une groupe de cellule sélectionnés manuellement ? Ceci afin d'éviter les fausses manip =) Merci
  18. S

    XL 2016 Bordures et mise en forme VBA

    Bonjour, J'ai le code suivant qui marche, mais je me demande si une optimisation est possible... ? For x = 4 To 3500 Step 8 ' A partir du début par pas de 8 je fais de la mise en forme With Range(Cells(6, x), Cells(221, x)) .Borders(xlEdgeLeft).LineStyle = xlContinuous...
  19. S

    XL 2016 RESOLU Hypertexte, Select et mémoire

    Bonjour, Ci-dessous mon code pour créer des liens hypertextes avec variables qui fonctionne. J'ai un soucis de "mémoire insuffisante" qui je le pense est liée à la méthode Select. J'ai cherché, mais je ne sais pas comment éviter le sheets.activate puis cells.select ...
  20. S

    XL 2016 Delete shift:=xlUp trop long

    Bonjour, Plus novice dans les macros je bloque pour optimiser le temps de traitement du code suivant Sheets("Feuil1").Range(Cells(x, 1), Cells(x, 20)).Delete shift:=xlUp Le delete est trop long - il est situé dans une boucle find qui est bien rapide testée seule. Je précise que je cherche bien...