Contenu récent par job75

Bonjour com689, le forum, Je n'ai pas compris pourquoi il faudrait une ou des colonnes supplémentaires. Sur la plage G6:AE999 j'ai construit la MFC avec cette formule : =SOMMEPROD(($F6=$F$6:$F$999)*(G6=$G$6:$AE$999)*ESTNUM(G6))>1 A+

Bien sûr puisqu'il y a des valeurs d'erreur #REF! et je pense que halecs93 est tout à fait capable de s'en rendre compte. Pour les éviter on peut remplacer la formule en RECAPITULATIF!AB22 par : =INDIRECT(A22&"!"&ADRESSE(40;COLONNE())) à tirer vers le bas.

Bonjour halecs93 et les autres, Dans UserForm_Initialize de UserForm2 j'ai juste remplacé : 'TextBox_cheque_dej.Value = ThisWorkbook.Sheets("RECAPITULATIF").Range("cheque_dej").Value par : TextBox_cheque_dej = ThisWorkbook.Sheets("RECAPITULATIF").Range("cheque_dej").Text A+

Bonjour poipoi, sylvanu, Allons allons il n'y a pas besoin de la feuille "année en cours" !!! Rien de plus simple, formule en C4 de la MFC appliquée à la plage $C$4:$Z$34 : =B4=AUJOURDHUI() A+

La macro affectée au bouton : Sub RapatrierFeuilles() Dim fichier As Variant, w As Worksheet Do fichier = Application.GetOpenFilename("Fichiers Excel (*.xls*),*.xls*") Loop While Mid(fichier, InStrRev(fichier, "\") + 1) = ThisWorkbook.Name If fichier = False Then Exit Sub...

Bonjour AIGOIN, le forum, Le code fait pourtant la même chose qu'au post #38 mais en effet j'ai ajouté dans la Worksheet_Change : F.Columns.ColumnWidth = 0.1 Essayez en ôtant cette instruction. A+

Bonsoir nullosse, Et merci, effectivement les Me.Calculate dans OptionButton_Click annulent la latence. Par contre Recalculate n'existe pas dans la feuille. A+

En fait je subodore une mise à jour mal fichue comme Microsoft à l'habitude d'en faire. Il faudra sans doute attendre une rectification.

J'ai décoché l'option "Désactiver l'accélération graphique", ça ne change rien.

Bonjour Magic_Doctor, Merci d'avoir cherché. J'ai parlé de GroupName donc il s'agit de contrôles ActiveX. Pas de LinkedCell, pas de macros, pas de formules, juste les 2 boutons. A+

Bonjour le forum, Sur Win 11 Excel 2019 (64 bits) je crée un groupe de 2 OptionButtons avec le même GroupName. Quand je clique sur l'un des boutons l'autre met environ 1 seconde pour se modifier. Je n'avais pas constaté cette lenteur auparavant, y a-t-il un moyen d'améliorer ça ? A+

Pour finir encore une simplification du code : Sub Etiquettes(souche$) Dim s1 As Shape, s2 As Shape, T As Range, i&, j& Set s1 = Shapes("ZT_1"): Set s2 = Shapes("ZT_2") Set T = Sheets(souche).ListObjects(1).Range For i = 2 To T.Rows.Count Step 2 If T(i, 7) = "couple" Then MAJ s1, T...

La feuille "Etiquettes" n'était pas nécessaire, on peut ajouter à chaque fois une feuille auxiliaire : Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$J$3" Or Target(1) = "" Then Exit Sub Dim w As Worksheet n = 0: X = 0: Y = 0 Application.ScreenUpdating = False Set F =...

Bonjour le forum, Il y avait une petite erreur : le prix de 35 € s'affichait à 25 €, j'ai corrigé le fichier du post #38. A+

Bonjour Vins74000, Créez plutôt votre propre discussion et joignez le fichier (sans données confidentielles) en précisant la cellule à traiter. A+