UserForm remplit automatiquement

Bonjour,

Plutôt que d'utiliser x textbox et x checkbox, pourquoi ne pas utiliser une listbox multiselect?

Si j'ai bien compris ta seconde question, tout se passe dans le CommandButton_Click :

Private Sub CommandButton1_Click()
    Dim i As Integer, Valeurs As String, Cpt As Integer
    'pour i = 0, la ligne correspondante est la ligne 2 dans le classeur
    'donc pour "colorier" les lignes, il suffit de colorer les lignes i+2
    'il convient toutefois, avant de colorer, de "décolorer" tout
    Columns(1).Cells.Interior.ColorIndex = xlNone
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
            Valeurs = Valeurs & vbCrLf & ListBox1.List(i) & " - " & ListBox1.List(i, 1)
            Cpt = Cpt + 1
            '"coloration"
            Cells(i + 2, 1).Interior.ColorIndex = 3
        End If
    Next i
    Valeurs = "Vous avez sélectionnés " & Cpt & " Chantiers : " & Valeurs
    MsgBox Valeurs
End Sub

Pour la variable Valeurs, il s'agit d'un String, une chaîne de caractères.
vbcrlf est le caractère pour passer à la ligne,
ListBox1.List(i) est la première colonne de ma listbox
ListBox1.List(i, 1) la seconde colonne.
On cherche à cumuler les lignes dans une même variablme, donc il faut conserver sa valeur et y ajouter les nouvelles valeurs.
Du coup, Valeurs = Valeurs (anciennes lignes déjà rentrés) + vbcrlf (passage à la ligne) + ListBox1.List(i) & " - " & ListBox1.List(i, 1) (nouvelles données).

Au premier passage, ce code va faire un passage à la ligne puis entrer les premières valeurs. Cela nous convient car on peut ajouter sur cette première "ligne" vide le message "Vous avez sélectionnés " blablabla.

C'est + clair?

Ne pas oublier, là c'est un bête exemple, de référencer la feuille contenant les données. En effet, puisque tu es dans un UserForm, il convient de le préciser pour le cas ou l'utilisateur aurait une autre feuille sélectionnée...
Dans ce cas, privilégier l'écriture suivante :

Private Sub CommandButton1_Click()
    Dim i As Integer, Valeurs As String, Cpt As Integer
    'pour i = 0, la ligne correspondante est la ligne 2 dans le classeur
    'donc pour "colorier" les lignes, il suffit de colorer les lignes i+2
    'il convient toutefois, avant de colorer, de "décolorer" tout
With Sheets(1)
    . Columns(1).Cells.Interior.ColorIndex = xlNone
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
            Valeurs = Valeurs & vbCrLf & ListBox1.List(i) & " - " & ListBox1.List(i, 1)
            Cpt = Cpt + 1
            '"coloration"
            .Cells(i + 2, 1).Interior.ColorIndex = 3
        End If
    Next i
    Valeurs = "Vous avez sélectionnés " & Cpt & " Chantiers : " & Valeurs
    MsgBox Valeurs
End With
End Sub

A noter : en cas d'utilisation de With End With, il convient de rapprocher les objets concernés en plaçant un point devant.
Ainsi :

Sheets(1).Range("A1")

devient

With Sheets(1)
    .Range("A1")
End With

🎼 Cordialement,
Franck 🎶

Re-bonjour
Merci pour toutes ces explications et ces précisions.
Entre temps, j'ai trouver une solution à mon problème.

Etant donné quand j'ai une colonne (dans mon tableau et dans ma List.Multiselect) où les valeurs sont uniques, j'ai fait ceci:

    Dim i As Integer, Valeurs As String, Cpt As Integer, ref As String
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
 'Création d'une variable ref pour stocker la valeur unique dans la colonne 3 de ma list, et la rechercher dans mon tableau       
                ref = Me.ListBox1.List(i, 3)
                Cells.Find(What:=ref, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
                :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
                False, SearchFormat:=False).Activate

            ActiveCell.Select
            ActiveCell.EntireRow.Select

                With Selection.Interior.ColorIndex = 3
End with
...
End if

J'arrive au résultat que je voulais avec cette méthode, mais je garde la tienne au cas où!

Merci encore !