Mettre une lettre dans une cellule avec un userform

Bonsoir le forum,

Je souhaiterais que par un userform et une case à cocher insérer une lettre ou un mot dans une cellule.

J'ai mis un exemple de fichier en pièce jointe car je ne connais pas du tout le système de case à cocher dans userform.

Merci d'avance pour votre aide

4test-encoche.xlsm (14.19 Ko)

Bonjour,

voici un exemple,

note/ j'ai remis les controls dans l'ordre (1 à 7)

Bonjour,

voici un exemple,

thunder23 -Test encoche.xlsm

note/ j'ai remis les controls dans l'ordre (1 à 7)

Re i20100,

Super merci par contre si je veux modifier l'emplacement du x ou que ça supprime, est-ce qu'il faut que mette un Initialize au début?

Super merci par contre si je veux modifier l'emplacement du x ou que ça supprime, est-ce qu'il faut que mette un Initialize au début?

modifie la macro comme ça,

Private Sub CommandButton1_Click()
For i = 1 To 7
 If Me.Controls("CheckBox" & i) Then
    Sheets("Feuil1").Cells(6 + i, "E") = "x"
 Else
    Sheets("Feuil1").Cells(6 + i, "E") = ""
 End If
Next
End Sub

Super merci par contre si je veux modifier l'emplacement du x ou que ça supprime, est-ce qu'il faut que mette un Initialize au début?

modifie la macro comme ça,

Private Sub CommandButton1_Click()
For i = 1 To 7
 If Me.Controls("CheckBox" & i) Then
    Sheets("Feuil1").Cells(6 + i, "E") = "x"
 Else
    Sheets("Feuil1").Cells(6 + i, "E") = ""
 End If
Next
End Sub

Bonjour i20100,

Nickel comme ça encore merci

Rechercher des sujets similaires à "mettre lettre userform"