Utilisation des Optionsbutton

[arma]

Bonjour à tous,

J'ai quelques soucis de compréhension avec l'utilisation des Userform.
Je cherche à simplifier le travail de l'utilisateur, i.e qu'à l'ouverture j'aimerais que le Userform s'ouvre seul et qu'après avoir choisi le territoire et le mois, les valeurs déterminées se copient/collent dans les cellules B6 et F9 après validation.
Hors avec ce que j'ai essayé, non seulement il faut une macro complémentaire pour ouvrir le Userform, mais en plus cela ne donne rien derrière après validation
D'après ce que j'ai vu sur le site, cela doit être simple pour beaucoup, mais je n'y arrive pas malgré l'épluchage d'un bouquin sur VBA

Merci pour le temps que vous m'accorderez.

 

[Compte Supprimé 979]

Re : Utilisation des Optionsbutton

Bonjour Arma et bienvenue sur ce forum

Il ne te manque pas grand chose, juste l'incription de tes variables sur la feuille

Sub Entites_Click()
Dim ChoixDELP As String
    If DELP16.Value = True Then
    ChoixDELP = "POITOU CHARENTES EST"
    ElseIf DELP17.Value = True Then
    ChoixDELP = "POITOU CHARENTES OUEST"
    ElseIf DELP19 = True Then
    ChoixDELP = "LIMOUSIN"
    ElseIf DELP24.Value = True Then
    ChoixDELP = "AQUITAINE NORD"
    Else: ChoixDELP = "GIRONDE"
    End If
  ' Après avoir donné une valeur à la variable
  ' On inscrit le résultat
  Range("D6").Value = ChoixDELP
End Sub

Sub Mois_Click()
Dim ChoixMois As String
If JANVIER.Value = True Then
ChoixMois = "JANVIER"
ElseIf FEVRIER.Value = True Then
ChoixMois = "FEVRIER"
ElseIf MARS.Value = True Then
ChoixMois = "MARS"
ElseIf AVRIL.Value = True Then
ChoixMois = "AVRIL"
ElseIf MAI.Value = True Then
ChoixMois = "MAI"
ElseIf JUIN.Value = True Then
ChoixMois = "JUIN"
ElseIf JUILLET.Value = True Then
ChoixMois = "JUILLET"
ElseIf AOUT.Value = True Then
ChoixMois = "AOUT"
ElseIf SEPTEMBRE.Value = True Then
ChoixMois = "SEPTEMBRE"
ElseIf OCTOBRE.Value = True Then
ChoixMois = "OCTOBRE"
ElseIf NOVEMBRE.Value = True Then
ChoixMois = "NOVEMBRE"
Else: ChoixMois = "DECEMBRE"
End If
' Après avoir donné une valeur à la variable
' On inscrit le résultat
Range("F9").Value = ChoixMois
End Sub

Voilà

 

[arma]

Re : Utilisation des Optionsbutton

Effectivement, c'est tout bête
Merci beaucoup en tout cas, car j'ai coincé longtemps en voulant faire trop compliqué.