Pourquoi ma macro ne retourne t-elle rien ?

Option Explicit

Bonjour à toutes et à tous.

Si quelqu'un pouvait-il m'aider ma macro ne retourne rien.

Private Sub UserForm_Initialize()

Dim i As Integer

Dim j As Integer

For i = 8 To Range("A65536").End(xlUp).Row

For j = 1 To 17 Step 5

ComboBox1.List() = Worksheets("Feuil7").Range(Cells(i, j), Cells(i, j)).Value

Next j

Next i

End Sub

Bonjour

Pas très clair ton problème

Sans conviction

Option Explicit
Private Sub UserForm_Initialize()
Dim i As Integer
Dim j As Integer

  For i = 8 To Range("A65536").End(xlUp).Row
    For j = 1 To 17 Step 5
      ComboBox1.AddItem Worksheets("Feuil7").Cells(i, j)
    Next j
  Next i
End Sub

Si pas ça

Tu y indiques ce que tu as et ce que tu veux

Ca ne fonctionne toujours pas mais merci en tout cas

Je vais mettre le fichier. En gros je veux récupérer les noms des personnes qui se trouvent dans ma feuille BDD.

Bonjour

Sur la base de ton fichier

Efface tout le code présent dans le module de l'userform

Colle y ce code

Je t'ai changé le nom des variables pour mieux comprendre le code

Option Explicit

Private Sub UserForm_Initialize()
Dim Ligne As Long
Dim colonne As Integer

  For colonne = 1 To 17 Step 4
    For Ligne = 9 To Feuil6.Cells(Rows.Count, colonne).End(xlUp).Row
      ComboBox1.AddItem Feuil6.Cells(Ligne, colonne)
    Next Ligne
  Next colonne
End Sub

waouh merci beaucoup