Contenu récent par job75

  1. job75

    Microsoft 365 Recherche de doublons à plusieurs critères sur plusieurs colonnes

    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+
  2. job75

    XL 2016 Impossible de définir la propriété Value

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

    XL 2016 Impossible de définir la propriété Value

    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+
  4. job75

    Calendrier pas catholique

    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+
  5. job75

    XL 2021 création d'étiquettes

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

    XL 2021 création d'étiquettes

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

    XL 2019 Lenteur sur groupe d'OptionButtons

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

    XL 2019 Lenteur sur groupe d'OptionButtons

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

    XL 2019 Lenteur sur groupe d'OptionButtons

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

    XL 2019 Lenteur sur groupe d'OptionButtons

    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+
  11. job75

    XL 2019 Lenteur sur groupe d'OptionButtons

    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+
  12. job75

    XL 2021 création d'étiquettes

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

    XL 2021 création d'étiquettes

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

    XL 2021 création d'étiquettes

    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+
  15. job75

    Sauvegarder un fichier avec la date du jour.

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