XL 2019 Doublon à supprimer

C

Compte Supprimé 979

Guest
Bonjour Alexpoupp

Voici la procédure à ajouter dans ton USF, j'ai supprimé la propriété RowSource de ta ComboBox

VB:
Private Sub UserForm_Initialize()
  Dim dLig As Long, Lig As Long
  ' Pas de RowSource
  Me.ComboArrivéCariste.RowSource = ""
  ' Effacer la liste (au cas ou)
  Me.ComboArrivéCariste.Clear
  ' Avec la feuille
  With Sheets("Réceptions")
    dLig = .Range("A" & Rows.Count).End(xlUp).Row
    For Lig = 5 To dLig
      If .Range("L" & Lig).Value <> "Terminé" Then
        Me.ComboArrivéCariste.AddItem .Range("A" & Lig)
      End If
    Next Lig
  End With
End Sub

A+
 

vgendron

XLDnaute Barbatruc
Salut @BrunoM45

Ce fil est un doublon (encore un !!)

@alexpoupp modifie le contenu de ton premier post pour le vider et indiquer que c'est un doublon !
 

Statistiques des forums

Discussions
315 080
Messages
2 116 021
Membres
112 637
dernier inscrit
pseudoinconnu