Contenu récent par job75

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+

Bonjour Magnio, sylvanu, Les cellules fusionnées en colonne I ne posent aucun problème, ce sont elles qu'il faut sélectionner : Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$D$3" Or [D3] = "" Then Exit Sub Cells.Find([D3], [D3], xlValues, xlWhole).Select...

Bonjour eoliv, le forum, Sélectionner A3 et définir les noms : D_1 =MIN(Feuil1!$A3:$B3) D_2 =MAX(Feuil1!$A3:$B3) Formule en C3 : =12*(ANNEE(D_2)-ANNEE(D_1))+MOIS(D_2)-MOIS(D_1)-(JOUR(D_1)>JOUR(D_2)) @chris tu as interverti normale et inversée. A+

Bonsoir podarck, Hecatonshire, Formule matricielle en E5 à valider par Ctrl+Maj+Entrée : =SIERREUR(MOYENNE(SI(('table de données'!$C$8:$C$110=$C5)*('table de données'!$E$6:$AE$6=E$3);'table de données'!$E$8:$AE$110));"") Formule matricielle en E6 à valider par Ctrl+Maj+Entrée ...

Bonsoir damrigx, le forum, Avec une Worksheet_Change c'est simple : Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If CStr([B2]) = "Arrêt" Then [B3:B15] = Empty Application.EnableEvents = True End Sub Grâce à CStr les valeurs d'erreur ne posent pas de...

Bonjour malherbe, le forum, Voyez le fichier joint et cette macro dans le code de la feuille : Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range, f$ Application.EnableEvents = False 'désactive les évènements With [B12:AT111] 'tableau à modifier For Each c In...

Maintenant il faut savoir que la solution la plus rapide est celle qui utilise des tableaux VBA (matrices) : Option Compare Text 'la casse est ignorée Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("F1")) Is Nothing Then Exit Sub Dim nom$, dest As Range, tablo...

Bonjour zebrano, le forum, Au post #12 gbinforme a créé une macro, pour la voir clic droit sur l'onglet et Visualiser le code. Quand on entre un nom en F1 (par exemple nom_1) elle liste automatiquement en colonne G les prénoms correspondants. Voici une autre solution qui utilise le filtre...

Bonjour sylvanu, le forum, Ah mais je n'avais pas fait attention : il y avait une image perturbatrice qui se mettait à jour en R3:U3 de la feuille "Extraction". Après l'avoir retirée les durées d'exécution deviennent : - fichier du post #11 => 0,014 seconde - fichier du post #13 (ce fichier)...

Bonjour sylvanu, le forum, J'ai accéléré l'exécution de ma macro du post #13 => chez moi 0,056 seconde. La tienne par tableaux VBA => 0,025 seconde, c'est 2 fois plus rapide. A+