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

Nagrom · 9 Février 2009

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 · 9 Février 2009

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

Bonjour Nagrom,

Essaye ce code :

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 · 9 Février 2009

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

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

Nagrom · 9 Février 2009

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

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

Nagrom

XLDnaute Occasionnel

Pièces jointes

bqtr

XLDnaute Accro

Bebere

XLDnaute Barbatruc

Pièces jointes

Nagrom

XLDnaute Occasionnel

Discussions similaires

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

Nagrom

XLDnaute Occasionnel

Pièces jointes

bqtr

XLDnaute Accro

Bebere

XLDnaute Barbatruc

Pièces jointes

Nagrom

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency