ListBox et cellule vide dans un tri

Merci c'est gentil je vais regarder ci c'est bon je te dis ca demain

En fait j'ai mis des dates bidons dans la feuille et pour la Textbox c'était pour l'affichage de la date du jour (=AUJOURDHUI )

Bonjour et Merci, c'est parfait

Comme je souhaite cacher la feuille(bd2)

j'essai via le net et les tutos de rajouter un bouton sur le formulaire pour supprimer la ligne de la feuille correspondante (bd2) sélectionner dans la listbox , mais je n'arrive pas à trouver ?

aurais tu la solution?

Merci

Cordialement

On a la manoeuvre double-clic qui t'amène sur la feuille (NB- Si elle doit être masquée, il faut prévoir de la démasquer pour pouvoir t'y amener (ou laisser tomber cette manoeuvre (?)... on peut travailler en VBA sur la feuille masquée mais pour y aller intervenir manuellement, là il faut démasquer...)

Supprimer la ligne ? Est-ce à partir du Userform (sélection dans ListBox, bouton pour supprimer la ligne) ? Ou bien à partir de la feuille ?

Re bonjour,

En fait ci possible feuille caché et travailler qu'avec l'userform donc éventuellement laisser tomber la procédure double clic qui amène sur la feuille et plutôt un bouton en plus supprimer la ligne sélectionner dans la listbox

merci

Cordialement

A voir !

La feuille est simplement masquée, mais tu peux la masquer en VeryHidden (par VBA), elle ne peut alors être démasquée que par VBA...

Cordialement.

Dim f, BD, ColVisu(), Ncol
Private Sub UserForm_Initialize()
  Set f = Sheets("Feuil000")
  ColVisu = Array(1, 3, 5, 9)                       ' Colonnes à visualiser (adapter)
  Ncol = UBound(ColVisu) + 1
  Set d = CreateObject("Scripting.Dictionary")
  BD = f.Range("A2:J" & f.[A65000].End(xlUp).Row)   ' 1 colonne de plus pourles nos de ligne
  For i = LBound(BD) To UBound(BD): BD(i, UBound(BD, 2)) = i + 1: Next i
  '-- en têtes de colonne ListBox
  x = Me.ListBox2.Left + 8
  y = Me.ListBox2.Top - 12
  For Each k In ColVisu
    Set Lab = Me.Controls.Add("Forms.Label.1")
    Lab.Caption = f.Cells(1, k)
    Lab.Top = y
    Lab.Left = x
    x = x + f.Columns(k).Width * 1#
    temp = temp & f.Columns(k).Width * 1# & ";"
  Next
  temp = Left(temp, Len(temp) - 1)
  Me.ListBox2.ColumnCount = UBound(ColVisu) + 1 + 1
  Me.ListBox2.ColumnWidths = temp
  '---- Contenu ListBox initial
  Dim Tbl(): n = 0
  For i = 1 To UBound(BD)
    If Len(Trim(BD(i, 9))) <> 0 And IsDate(BD(i, 9)) Then
      If CDate(BD(i, 9)) < Date Then
        n = n + 1
        ReDim Preserve Tbl(1 To Ncol + 1, 1 To n)
        c = 0
        For Each k In ColVisu
          c = c + 1: Tbl(c, n) = BD(i, k)
        Next k
        Tbl(Ncol + 1, n) = BD(i, UBound(BD, 2))  'no ligne
      End If
    End If
  Next i
  Me.ListBox2.Column = Tbl
End Sub

Private Sub ListBox2_Click()
  ligne = Me.ListBox2.Column(Ncol)
  f.Rows(ligne).Select
End Sub

Ceuzin

MFerrand a écrit :

La feuille est simplement masquée, mais tu peux la masquer en VeryHidden (par VBA), elle ne peut alors être démasquée que par VBA...

Bonsoir,

Merci c'est impec (j'ai juste retiré la partie le double clic qui me mettait en erreur puisque la feuille est masquée)

Cordialement.