Reporter des données d'un tableau excel à un userform

[maninwhite]

Bonjour à toutes et à tous

Après avoir crée un formulaire userform qui me permet de reporter les données dans un tableau excel, j'aimerai réalisé l'inverse.
C'est à dire reporter les données du tableau excel dans l'userform.

Mais je n'arrive pas à le faire pour certains bouts de code, que moi même je n'avais aps écrit et que j'ai du mal à comprendre.

Ci dessous le code qui me permet de transférer les valaurs dans le tableau, le but étant de me donner le code pour le contraire 🙂

Le code contraiore sera bien entendu placé dans UserForm_Initialize

Dim p As MSForms.Page, c As Control, i As Integer, x As Long, T() As Variant

For Each p In reporter_un_incident_part2.MultiPage_KE.Pages
    For Each c In reporter_un_incident_part2.MultiPage_KE.Pages(p.Name).Controls
        If TypeName(c) = "CheckBox" Then
        If c.Value = True Then
        i = i + 1

                ReDim Preserve T(1 To i)
                T(i) = c.Caption
                End If
            End If
        Next c
Next p

If i = 0 Then
Call MsgBox("Vous n'avez coché aucun system defects", vbExclamation, Application.Name)
ElseIf i > 4 Then Call MsgBox("Vous avez coché plus de 4 system defects", vbExclamation, Application.Name)

Else:

    Do While UBound(T) < 4
        i = i + 1
        ReDim Preserve T(1 To i)
        T(i) = "Non applicable"
        Loop



x = Columns(22).Find("", Cells(Rows.Count, 22), xlValues, , 1, 1, 0).Row
        Cells(x, 22).Resize(1, Columns.Count - 21).Find("", Cells(x, Columns.Count), xlValues, , 2, 1, 0).Resize(1, UBound(T)).Value = T



With Sheets("report")
            .Cells(.Cells(Rows.Count, "U").End(xlUp).Row + 1, "U") = reporter_un_incident_part2.ComboBox_immediate_cause.Value

End With
End If

Si l y a besoin d'explications pour le code, n'hésitez pas...

Merci

 

[maninwhite]

Re : Reporter des données d'un tableau excel à un userform

Up svp.
Je pense que Pierrot pourra m'aider vu que c'est lui qui avait écrit ce code.

Merci