Contenu récent par TREM

  1. T

    Microsoft 365 filtrer avec une combo box

    Bonjour C'est parfait merci beaucoup !!!
  2. T

    Microsoft 365 filtrer avec une combo box

    Bonjour Oneida Merci pour votre réponse J'ai mal précisé ma demande : il me suffirait de remonter l'année ex. *2021* en conservant le mode filtre pour sélectionner les champs des colonnes adjacentes Pourriez vous adapter votre code dans ce sens s'il vous plait ?
  3. T

    Microsoft 365 filtrer avec une combo box

    bonsoir j'aimerais filtrer la colonne B "date" avec une combo box je n'arrive pas à la paramétrer pour le format date merci d'avance pour votre aide
  4. T

    XL 2016 insérer ligne avec formule suivant plage

    C'est bon, ça marche après adaptation du code de Philippe du post précédemment cité : Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("A8:A" & Range("A65535").End(xlUp).Row)) Is Nothing Then Cancel = False Rows(Target.Row).Select...
  5. T

    XL 2016 insérer ligne avec formule suivant plage

    Je ne sais pas, j'ai copier le code de job75 du post https://www.excel-downloads.com/threads/inserer-une-ligne-en-gardant-les-formules.20019145/ J'ai bricolé le code : j'ai délimité la plage 2) la colonne affiche "soldé" au double clic et n'insère plus de nouvelle ligne mais ça prend + 10...
  6. T

    XL 2016 insérer ligne avec formule suivant plage

    Bonjour Rouge, La formule est en H La colonne AQ (déplacé en K dans le fichier joint) affiche "Soldé" au double clic mais régénère une nouvelle ligne (ce que je ne souhaite pas) C'est pourquoi, je voudrais limiter l'action du double clic de la première partie du code (de job 75) qui insère...
  7. T

    XL 2016 insérer ligne avec formule suivant plage

    Bonjour à tous, Je souhaiterais modifier : Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect([A:A], Target) Is Nothing Then Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromleftOrBelow ActiveCell.FormulaR1C1 = "21CC0" End If If Not...
  8. T

    TREM

    Bonjour, Merci pour votre accueil Acheteur de profession, autodidacte sur excel, je picore les infos pour subvenir à mes besoins Mons souhait : pouvoir un jour, renvoyer l'ascenseur à des internautes dans le besoin : je dois tout à @ Cordialement Laurent