Contenu récent par fanch55

Le classeur ci-joint traite les couleurs pour la listview de JOURNAL et la listview1 de PREPARATION ( code commun ) J'ai pas compris .... 🤔

Il semblerait que @ChTi160 se soit retiré de la discussion. C'est dommage car il me semble qu'il avait dit que le code pour le Journal fonctionnait de son coté . De mon coté cela fonctionne : Tu as toujours un listview vide ? Et avec le classeur joint ?

Salut, Dans le module ComboFiltreePat, sub ci-dessous modifiée Function ListeFiltree_2D(combo As Object, ByRef tblB, Optional Col As Long = -1) Dim a&, Lig, c, Tbl(), OK As Boolean, CoL1&, CoL2&, Cx& If combo.Value = "" Then combo.List = Array(" "): combo.Clear: Exit Function ' If Col >...

Private Sub LblTournee_Click() Dim Fichier As String Dim Wb As Workbook Dim Chemin_Tr As String: Chemin_Tr = "C:\Notes 25\01-Tournées\" Dim Chemin_Fichier_Tr_Base As String: Chemin_Fichier_Tr_Base = "C:\Notes 25\00-ESV 702 25\notes.xlsb" Dim nomF As...

Ce code charge ce qui est dans la feuille Jounal dans le listview de l'userform Journal . As-tu QQ chose dans cette feuille ?

Pour ma part, je l'ai mise en largeur 0 en bout de ligne de la listview pour pouvoir renseigner la textbox lors de la sélection ( on ne peut pas deviner la catégorie ....)

Code à placer dans l'userform JOURNAL : Option Explicit Private Sub UserForm_Initialize() Dim Cel As Range, Data As Range, Line As Range, It As ListItem With ThisWorkbook.Sheets("Journal") Set Data = .Range("A1").CurrentRegion For Each Line In Data.Rows With...

Dans le dernier code fourni, si tu as décommenté les lignes dont tu parlais, il prend en compte la Catégorie ' ThisWorkbook.Activate ' indispensable si on a ouvert un autre classeur ... ' With [t_Journal].ListObject.ListRows.Add.Range ' .Resize(, 8) = Array(CmB_Categories, CmB_Type...

Checkboxes remis, plus de rechargement intempestif de listview1 . Je supprime les classeurs dans le post .

Salut @ChTi160 , je n'en vois pas l'utilité sauf pour une suppression multiple. Pour l'ajout, cela n'a pas d'impact . Pour une modification, c'est absolument inutile puisqu'il n'y a qu'une ligne de saisie ... ( A moins d'une fonction non encore définie 🤔 ? )

Ok, j'ai rajouté des contrôles sup . (Classeur supprimé)

Un autre éditeur sympa de Ribbon pour classeur avec ou sans macro https://github.com/fernandreu/office-ribbonx-editor/releases/download/v1.9.0/OfficeRibbonXEditor-NET6-Installer.exe Attention, comme tout éditeur de fichier, si le classeur est ouvert par CustomUi et également par Excel, les...

Chez moi le classeur ci-joint avec le code indiqué :

Pour répondre strictement à la demande : Private Sub userform_initialize() Dim Lcol As Range, Plage As Range, Alist As Object ' dernière cellule non vide de la ligne sélectionnée Set Lcol = Rows(3).Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious) Set Plage = Range("C"...

Salut Pat, Je ne comprend pas ce que tu veux dire: la combobox a toujours qu'une seule colonne dans ce code en sachant qu'on y met les valeurs de la ligne sélectionnée?