Re : Sélection choix multiple
Bonjour,
j'essaie de modifier cette partie mais j'ai des erreurs en faisant des copier-coller d'un exemple ==> l'original
Private Sub CommandButton1_Click()
'declaration variable texte
Dim Vmessage As String
'si cochage : ajouter à Vmessage puis dans la cellule
If CBpneu.Value = True Then
Vmessage = Vmessage & CBpneu.Caption & ";"
End If
If CBfrein.Value = True Then
Vmessage = Vmessage & CBfrein.Caption & ";"
End If
If CBeclairage.Value = True Then
Vmessage = Vmessage & CBeclairage.Caption & ";"
End If
ActiveCell.Value = Vmessage
ActiveCell.Offset(0, -1).Range("A1").Select
Unload UserForm1
End Sub
Style de changement ==>
Private Sub CommandButton1_Click()
'declaration variable texte
Dim Vmessage As String
'si cochage : ajouter à Vmessage puis dans la cellule
If CBpneu.Value = True Then
Vmessage = Vmessage & CBpneu.Caption & ";"
End If
If CBfrein.Value = True Then
Vmessage = Vmessage & CBfrein.Caption & ";"
End If
If CBeclairage.Value = True Then
Vmessage = Vmessage & CBeclairage.Caption & ";"
End If
If CBtest.Value = True Then
Vmessage = Vmessage & CBtest.Caption & ";"
End If
ActiveCell.Value = Vmessage
ActiveCell.Offset(0, -1).Range("A1").Select
Unload UserForm1
End Sub
mais cela ne fonctionne pas je doit mal m'y prendre cela n'est pas évident pour une personne qui ne maitrise pas le sujet comme moi.
combien de temps cela t'a pris de faire l'exemple du départ ?
merci