Remplissage tableau avec un userform

[ascarter]

Bonjour le forum,
J'ai crée un userform qui contient une multipage et un bouton de validation. J'aimerais que le tableu dans la feuille1 se remplisse avec les données cochées de l'userform.
Est-ce possible de faire celà?
Merci d'avance pour vos réponses.

 

[Lolote83]

Re : Remplissage tableau avec un userform

Bonjour,
Voici un exemple
Cordialement
Lolote83

 

[ascarter]

Re : Remplissage tableau avec un userform

Merci beaucoup,a plus

 

[PrinceCorwin]

Re : Remplissage tableau avec un userform

Bonjour ascarter,
Bonjour Lolote,

La même en plus court :

Private Sub CommandButton1_Click()
    Range("A2:C8").ClearContents
    xCpt = 0
    i = Me.MultiPage1.Pages.Count
    For p = 0 To i - 1
        For Each xControl In MultiPage1.Pages(p).Controls
            If xControl = True Then
                Cells(2 + xCpt, 1 + p) = xControl.Caption
                xCpt = xCpt + 1
            End If
        Next xControl
    xCpt = 0
    Next
End Sub

Bonne journée

 

[ascarter]

Re : Remplissage tableau avec un userform

Merci PrinceCorwin,ceci me permet d'apprendre petit à petit les rouages de la prog en VBA, merci beaucoup à tous.

 

[ascarter]

Re : Remplissage tableau avec un userform

Re bonjour le forum,j'ai rajouté un bouton "Retrait" dans l'userform1. Comment faire pour enlever du tableau les données cochées dans l'userform?
Merci d'avance pour vos réponses

 

[Lolote83]

Re : Remplissage tableau avec un userform

Salut,
Voici peut être une solution.
@+ Lolote

 

[ascarter]

Re : Remplissage tableau avec un userform

Super,merci beaucoup Lolote
A+

 

[ascarter]

Re : Remplissage tableau avec un userform

Petit problème,dans la dernière solution de Lolote, si on veut effacer toutes les données d'une même colonne en même temps,seule la donnée située dans la première ligne de la colonne s'efface.
Pouvez-vous m'aider à résoudre ce problème? merci d'avance pour vos réponses.