Ajouter valeur d'un label d'userform dans une cellule

[Nagrom]

Bonjour,

Je dispose d'une userform avec 3 labels ayant chacun une case à cocher. Je souhaiterai savoir s'il est possible lorsqu'on clique sur le bouton "valider" de l'userfom, les valeurs des labels où la case est cochée s'affichent sur la feuille excel 3 fois avec ajout d'un caractère supplémentaire.

Le fichier ci-joint permet de visualiser ce que je recherche avec l'userform.

Merci d'avance.
MP

 

[bqtr]

Re : Ajouter valeur d'un label d'userform dans une cellule

Bonjour Nagrom,

Essaye ce code :

Private Sub CommandButton1_Click()
Dim k As Byte, y As Long

With Sheets("Campagne")
 .Range("A1:A" & .Range("A65536").End(xlUp).Row).Clear
 y = 1
  For k = 1 To 3
     If Controls("CheckBox" & k) = True Then
       .Cells(y, 1) = Controls("Label" & k)
       .Cells(y + 1, 1) = "X " & Controls("Label" & k)
       .Cells(y + 2, 1) = "XX " & Controls("Label" & k)
       Controls("CheckBox" & k) = False
       y = y + 3
     End If
  Next
End With
 
End Sub

Il faut comme dans ton fichier exemple que le CheckBox1 soit en face du Label1, même chose pour le 2ème et le 3 ème.


Bonne journée
A+

 

[Bebere]

Re : Ajouter valeur d'un label d'userform dans une cellule

bonjour Nagrom
une 1ère réponse
à bientôt

 

[Nagrom]

Re : Ajouter valeur d'un label d'userform dans une cellule

Bonsoir à vous deux,

Je vous remercie beaucoup pour votre contribution, c'est parfais.

Bonne soirée.
Nagrom