Contenu récent par job75

  1. job75

    XL 2019 Augmenter la vitesse de traitement

    Chez moi avec les fichiers des posts #20 et #24 (15 000 - 150 000 lignes) les temps d'exécution sont 0,42 s et 0,52 s.
  2. job75

    XL 2010 Création de listes déroulantes interactive

    La protection n'est guère gênante et n'a pas d'importance.
  3. job75

    XL 2019 Augmenter la vitesse de traitement

    Plus il y a de cellules modifiées plus le temps de traitement augmente.
  4. job75

    XL 2019 Augmenter la vitesse de traitement

    Bonjour Titof06, le forum, Par exemple dans ma macro du post #24 il suffit d'augmenter le nombre de cellules copiées-collées : If j Then N = N + 1 j = coll(tM(i, 1)) fm.Cells(i, 1).Interior.Color = vbRed fs.Cells(j, 1).Interior.Color =...
  5. job75

    XL 2010 Création de listes déroulantes interactive

    Bonjour le forum, Il y avait des espaces superflus dans la liste de validation en colonne C de la feuille "liste articles", je les ai enlevés. Par ailleurs je trie alphabétiquement la liste de validation Liste et je supprime les doublons éventuels, le code dans "Bon de Cde" : Private Sub...
  6. job75

    XL 2010 Création de listes déroulantes interactive

    Le texte en colonne C est masqué par une MFC si la cellule en colonne D est vide.
  7. job75

    XL 2010 Création de listes déroulantes interactive

    Pour obtenir une mise à jour de la liste de validation Liste il faut ajouter cette macro dans la feuille "Bon de Cde" : Private Sub Worksheet_Activate() Worksheet_SelectionChange ActiveCell 'lance la macro quand on revient sur cette feuille End Sub
  8. job75

    XL 2010 Création de listes déroulantes interactive

    Clic droit sur l'onglet et Visualiser le code, c'est une macro évènementielle donc elle n'apparaît pas dans la liste des macros.
  9. job75

    XL 2010 Création de listes déroulantes interactive

    Bonjour jeanmi, le forum, Voyez le fichier joint et cette macro dans le code de la feuille "Bon de Cde" : Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim crit$, P As Range Application.ScreenUpdating = False Me.Unprotect "jlejle" With Range("C27:C" & Rows.Count)...
  10. job75

    XL 2019 Augmenter la vitesse de traitement

    Bah il ne faut pas s'inquiéter pour MAC, au lieu du Dictionary il suffit d'utiliser une Collection, ce n'est pas plus compliqué.
  11. job75

    XL 2019 Augmenter la vitesse de traitement

    Bonsoir à tous, @mapomme la méthode (classique) avec le Dictionary est un peu plus rapide et ne nécessite pas de tri : Sub MiseAjour() Dim temps, fs As Worksheet, fm As Worksheet, tS, tM, d As Object, i&, N&, j& temps = Timer Application.ScreenUpdating = False Set fs =...
  12. job75

    Microsoft 365 Pointer vers une Ligne/Case selon une sélection

    Bonjour, Alors pour la compréhension des visiteurs soyez cohérent : c'est mon post #6 qu'il faut cocher comme solution de ce fil. A+
  13. job75

    XL 2019 Extraire les valeurs de plusieurs plages identiques de plusieurs feuilles différentes

    Bonjour le forum, Avec la solution de mapomme pas besoin de collage spécial : .Cells(lig, "c").Resize(42, 3) = f.Range("g5:i46").Value ' on copie la plage en valeurs à la ligne lig lig = .Cells(Rows.Count, "c").End(xlUp).Row + 1 ' N° de ligne de la prochaine copie...
  14. job75

    XL 2019 Extraire les valeurs de plusieurs plages identiques de plusieurs feuilles différentes

    Bonsoir, Avec la solution de mon post #5 : Sub Synthèse() Dim dest As Range, w As Worksheet, h& Application.ScreenUpdating = False Set dest = Sheets("Synthèse").[C5] dest.CurrentRegion.ClearContents 'RAZ For Each w In Sheets(Array("Paul", "Luc", "Maria")) 'liste des feuilles à copier...
  15. job75

    Microsoft 365 Recherche d'un formule

    En COMPTES!B5, à tirer vers la droite : =SOMME.SI(TABLEAU!$E:$E;B3;TABLEAU!$K:$K)
Retour