Contenu récent par job75

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.

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

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

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 =...

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...

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

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

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.

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)...

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é.

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 =...

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+

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...

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...

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