userform inserer resultat "OptionButton"

[gerardd3617]

bonjour
je n'arrive pas a inserer le resultat du "OptionButton" et faire la multiplication
merci a vous tous
cordialement

 

[Compte Supprimé 979]

Re : userform inserer resultat "OptionButton"

Bonsoir Gerardd3617

Voici le code
Avec With pense à mettre le point '.' devant Range()
Cela permet de dire au code que ton Range() est lié au Sheet() désigné

[/COLOR]Private Sub CommandButton1_Click()
  Dim L As Integer
  L = Sheets("saisie").Range("d65536").End(xlUp).Row + 1
  Sheets("saisie").Activate
  If ComboBox1 = "" Then
    MsgBox "Vous n'avez pas saisi le NOM !"
    ComboBox1.SetFocus
    Exit Sub
  End If
  With Sheets("saisie")
    .Range("d" & L).Value = ComboBox1.Value  'nom
    .Range("i" & L).Value = ComboBox2.Value  'nb carnet
    .Range("c" & L).Value = Label2  'date
    If Me.OptionButton3.Value = True Then
      .Range("G" & L).Value = Me.OptionButton3.Caption
    End If
    If Me.OptionButton4.Value = True Then
      .Range("H" & L).Value = Me.OptionButton4.Caption
    End If
  End With
  ComboBox1.SetFocus
End Sub

A+

 

[gerardd3617]

Re : userform inserer resultat "OptionButton"

merci bruno
il ne manquait pas grand chose mais c'est enorme
il me manque que la multiplication
merci
a+