• Initiateur de la discussion Initiateur de la discussion ch93
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

C

ch93

Guest
Bonjour le forum,

Comment afficher dans l'userform les cellules pleines du champ C avec le chiffre du champ B.
Merci de votre aide. [file name=Test_20051015143204.zip size=10294]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Test_20051015143204.zip[/file]
 

Pièces jointes

Bonjour Vev, le Forum

Voici ton code d'initialisation du UserForm (à placer dans le Private Module de celui-ci.

Option Explicit


Private Sub UserForm_Initialize()
Dim Plage As Range, Cell As Range
Dim X As Long

With Me.ListBox1
    .ColumnCount = 2
    .ColumnWidths = '50;90'
End With

With ThisWorkbook.Worksheets('Feuil1')
   
Set Plage = .Range(.Range('C2'), .Range('C65536').End(xlUp))
End With


   
For Each Cell In Plage
       
If Not Cell = Empty Then
           
With Me.ListBox1
                .AddItem Cell.Offset(0, -1)
                .Column(1, X) = Cell
                X = X + 1
           
End With
       
End If
   
Next Cell
End Sub


Bon Week End
[ol]@+Thierry[/ol]
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
3
Affichages
723
Retour