Besoin d'aide pour remplir un tableau

[p.fournand]

Bonjour a tous,
j'ai besoin d'aide pour remplir un tableau en sortant d'une boite de dialogue
Merci d'avance

 

[Cousinhub]

Re : Besoin d'aide pour remplir un tableau

Bonjour,

essaie ce code :

Private Sub CommandButton1_Click()
Dim Lig As Long
Dim I As Byte
With Worksheets("Feuil1")
    .Range("C7").Value = Me.Calendar1.Value
    On Error Resume Next
    Lig = Application.Match(CLng(Me.Calendar1), .Columns(9), 0)
    On Error GoTo 0
        If Lig > 0 Then
            For I = 1 To 3
                .Cells(14 + I, 4).Value = Val(Me.Controls("TextBox" & I).Value)
                .Cells(Lig, 9 + I).Value = Val(Me.Controls("TextBox" & I).Value)
            Next I
        End If
End With
Unload Me
End Sub

 

[p.fournand]

Re : Besoin d'aide pour remplir un tableau

Mille Merci pour cette reponse rapide
elle fonctionne parfaitement