Discussion :

[Papillon34]

Bonjour j'aimerai savoir quel algorythme permet de recopier les cellules excel qui se touvent en ligne ds une liste déroulante ds un useform (jusqu'à la dernière cellule pleine sachant que ça peut varier). j'ai une formule ms c'est pour copier les cellules en colonne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For i = 2 To Sheets("Matières").Range("A1").End(xlDown).Row

Merci

[momone18]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub UserForm_Initialize()
    Dim mafeuille As Worksheet
    Dim j, col, lig, fin  As Integer
    Set mafeuille = Sheets("feuil1")
 
    mafeuille.Activate
    fin = mafeuille.Range("A1").End(xlToRight).Column
    lig = 1 'si on traite la ligne A
    col = 1 'si on part de la première colonne
 
    For j = col To fin
        ComboBox_liste.AddItem (Cells(lig, j).Value)
    Next j
 
End Sub