CheckBox

ftho

XLDnaute Occasionnel

• 1 Septembre 2008

• #2

Re : CheckBox

Bonjour,

Le signe de concaténation est le & et pas le +

Code:

Private Sub Validate_Click()
If CheckBox1.Value = True Or CheckBox2.Value = True Then
Cells(ActiveCell.Row, 11).Value = CheckBox1.Caption & CheckBox2.Caption
Unload Me
Else
Unload Me
End If
End Sub

et si tu veux par exemple ajouter un espace entre les 2 captions

Code:

CheckBox1.Caption & " " & CheckBox2.Caption

 

Vote positif 0 Vote négatif

T

Tom32

XLDnaute Occasionnel

• 1 Septembre 2008

• #3

Re : CheckBox

Merci,
mais mon probleme est plus complique que ca : j`ai 6 Checkbox, ce qui represente 63 combinaisons differentes possibles (1,2 ; 1,4,6 ; ...) donc si je dois les ecrire toutes une par une j`ai pas fini !
En gros j`ai besoin d`un code qui ferait : Si une (ou plusieurs) checkbox est cochee, met la (ou les) captions dans telle cellule.

 

Vote positif 0 Vote négatif

Luki

XLDnaute Accro

• 1 Septembre 2008

• #4

Re : CheckBox

bonjour,

Pas testé :

Code:

Private Sub Validate_Click()
Dim Str As String
Dim i As Integer

For i = 1 To 6
    If Controls("CheckBox" & i) Then Str = Str & Controls("Checkbox" & i).Caption & " "
Next i
Cells(ActiveCell.Row, 11).Value = Str


Unload Me

End Sub

Dis-nous

 

Dernière édition: 1 Septembre 2008

Vote positif 0 Vote négatif

T

Tom32

XLDnaute Occasionnel

• 1 Septembre 2008

• #5

Re : CheckBox

Ok merci, je te redis demain si ça fonctionne !

 

Vote positif 0 Vote négatif

T

Tom32

XLDnaute Occasionnel

• 2 Septembre 2008

• #6

Re : CheckBox

C`est bon, ca marche impecable, je l`ai juste un peu modifie pour que ca aille avec ce que je voulais.

Quand je remplirai mon tableau, j`irai de colonne en colonne, une fois la colonne J remplie, je passerai a la colonne K, et j`aimerais que mon userform se charge des que je passe a la colonne K. comment faire ? Entrer une private sub dans le code de la feuille ? Si oui, lequel ?

Merci d`avance

 

Vote positif 0 Vote négatif

T

Tom32

XLDnaute Occasionnel

• 2 Septembre 2008

• #7

Re : CheckBox

C`est bon, j`ai trouve un moyen ! Je te remercie pour ton aide !

Bonne journee

 

Vote positif 0 Vote négatif