Bonjour
Je souhaite alimenter une ComboBox à 2 colonnes avec le code suivant
Pourriez-vous m'aider ?
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
16
17
18
19
20 Sub FCombo() Dim i As Integer Sheets("Event").Select Sheets("Event").Unprotect Sheets("Event").ComboBox1.Clear ' ==> erreur LColCombo = Sheets("Inscriptions").Cells(6, Columns.Count).End(xlToLeft).Column For i = 8 To LColCombo Range("XFC" & i - 7) = Sheets("Inscriptions").Cells(6, i) Range("XFD" & i - 7) = Sheets("Inscriptions").Cells(3, i) Next RColCombo = Cells(Rows.Count, "XFC").End(xlUp).Row Sheets("Event").ComboBox1.ListFillRange = Sheets("Inscriptions").Range("XFC1:XFD" & RColCombo) '==> Erreur End Sub
Merci d'avance
Partager