Contenu récent par job75

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)

Bonjour Tibewan, Insérez peut-être une colonne E, mettez Compte en E1 et entrez en E2 la formule : =STXT(D2;3;6) à tirer vers le bas. A+

Si dans les plages à copier les lignes de 3 valeurs ne sont pas complètes la macro précédente ne fonctionnera pas. On utilisera alors cette macro : Sub Synthèse() Dim dest As Range, w As Worksheet, h& Application.ScreenUpdating = False Set dest = Sheets("Synthèse").[C5] dest.CurrentRegion.Clear...

Bonsoir Atiom, sousou, La macro (affectée au bouton) n'est guère compliquée : Sub Synthèse() Dim dest As Range, w As Worksheet, h& Application.ScreenUpdating = False Set dest = Sheets("Synthèse").[C5] dest.CurrentRegion.Clear 'RAZ For Each w In Sheets(Array("Paul", "Luc", "Maria")) 'liste des...

A votre place j'utiliserais ce "bout de code" maintenant car c'est la solution la plus logique.

Bonsoir damrigx, sylvanu, Une précision : Je préfère [C4:C17] = Empty plutôt que [C4:C17] .ClearContents car .ClearContents peut beuguer s'il y a des cellules fusionnées dans la plage, testez SVP... A+