Résultats de la recherche

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?

Pour ce faire, il faudrait que la ligne de saisie et la ligne de la listview aient les mêmes champs (hormis la date)

Testez le classeur ci-joint l'ouverture du classeur externe est effectué au moment de l'initialize de l'userform ou du click sur le label Tournée . N'oubliez pas de modifier les variables Chemin_Tr et Chemin_Fichier_Tr_Base avec les vrais noms de dossier Private Sub UserForm_Initialize()...

Bonjour, A quel moment exécutiez-vous ce code ? la cellule Q2 correspond à quoi dans le nouveau classeur ?

Exact, c'est une erreur qui peut se produire quand la feuille vient juste d'être créée . Erreur plutôt incompréhensible mais qui ne devrait plus se produire si on met les entêtes dans la ligne 1 . Code corrigé pour info : With Sheets("Journal") Dim R As Range: Set R =...

Bonsoir, Zippez le .

Bonsoir, Si je comprend la demande, il faut ajouter la ligne renseignée dans la frame "PRISE DE NOTES DU PARCOURS" quand on clique sur le bouton "AJOUTER" aux lignes existantes dans une certaine feuille ? Pas de gestion de doublons , vous risquez de vite saturer votre classeur . Pour ce faire...

Bonjour, Dans Module2 : Sub Afficher2() Dim Lcol As Range, Lrow As Range ' On définit la plage où se situent les données Set Lrow = Columns("A").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious) Set Lcol = Rows(2).Find("*", SearchOrder:=xlByRows...