userform multiconnes non contigues

[nanard25]

userform multicolonnes non contigues

Bonjour à Tous,
Merci beaucoup à tous et plus particulièrement à bqtr, fred65200 et Thierry

la macro ''PresentationEnLignesAvecAddItem'' fonctionne parfaitement.
Pour ce qui est des doublons effectivement j'aimerai ne pas avoir de doublon sur les colonnes
B et D

Comment puis-je récupérer la valeur de la colonne D ?

Pour ce qui est de la démo de Thierry, son application est parfaite que dis-je c'est le summum
mais je n'ai pas compris ou pas vu au niveau de la suppression des doublons

Merci encore

Merci beaucoup et bon dimanche à Tous😛
Nanard25

 

[fred65200]

Re : userform multiconnes non contigues

Ce code trouver ... , documenté par ouskel'n'or t'aidera sûrement.

je t'envoie le lien en MP.

Sub PresentationEnLignesAvecAddItem()
Dim Liste
Dim DerLigne As Long, DerCol As Byte
DerLigne = Range("A65535").End(xlUp).Row 'Dernière ligne de la plage
'sur 2007
'DerLigne = Range("A1048576").End(xlUp).Row 'Dernière ligne de la plage

Liste = Array(2, 4)  'liste des colonnes ds la feuille de calculs B et D
DerCol = UBound(Liste)
Me.ListBox1.ColumnCount = DerCol + 1
'On remplit la première colonne
For NoLigne = 1 To DerLigne
Me.ListBox1.AddItem Cells(NoLigne, Liste(0)).Value
Next
For NoCol = 1 To DerCol
For NoLigne = 0 To DerLigne - 1
Me.ListBox1.Column(NoCol, NoLigne) = _
Cells(NoLigne + 1, Liste(NoCol)).Value
Next
Next
End Sub

Salutations

 

[bqtr]

Re : userform multiconnes non contigues

Bonjour nanard25, fred65200

Une autre façon de faire : (ne traite pas les doublons)

Private Sub UserForm_Initialize()

Dim cell As Range
For Each cell In Range("B1:B" & Range("B65536").End(xlUp).Row)
   With ListBox1
      .ColumnCount = 2 ' nbre de colonne
      .ColumnWidths = "30;30" 'largeur des colonnes
      .AddItem cell 'alimentation de la 1ère colonne
      .List(.ListCount - 1, 1) = cell.Offset(0, 2) 'alimentation de la 2ème colonne
   End With
Next

End Sub

Pour les doublons, c'est sur 1 ou les 2 colonnes ?

A+

 

[_Thierry]

Re : userform multiconnes non contigues

Bonjour Bqtr,Fred62500, Nanard25, le Forum

Je n'ai pas tout suivi, mais à l'époque j'avais fait des démos sur les ListBox, dont une qui avait fait couler pas mal d'encre virtuelle sur ce Forum...

Le Fil de Discussion :
=> DEMO USF ListBox en Folie 1000ème et 44 Balais!

Le Fichier Démo :
Lien supprimé

Il y a pas mal d'astuces dedans....

Bonne Journée
@+Thierry

 

[Dan]

Re : userform multiconnes non contigues

Bonjour,

Juste pour saluer le Roi de l'USF, notre Thierry à qui je souhaite un bon retour sur xld. 🙂
Cela faisait longtemps tout de même 😀

Une DUVEL pour fêter cela tiens ! 😀😛

Bonne AP

Dan