Bonjour;
J'ai un souci avec une formule en VBA, j'ai 1 groupement de 10 options button, chaque bouton cocher provoque une action différente, si aucun bouton est cocher une message box (vbokcancel) s'ouvre. Le problème c'est que lorsque je clic sur annuler, la procédure ne s’arrête pas et ma feuille de calcul se remplit. Moi je souhaiterais lorsque je clic sur annulé pouvoir retourner à mon userform en ayant gardé en mémoire les cases que j'avais cochées avant d’avoir cliqué sur enregistrer et que ma feuille ne se soit pas quand même rempli des information que j'ai noté.
Je pense qu'il faut d'abord mettre la condition pour ouvrir la messagebox et après mes condition pour remplir ma feuille. Le problème c'est que je ne trouve pas la bonne formulation.
voici mon code actuel.
J'ai un souci avec une formule en VBA, j'ai 1 groupement de 10 options button, chaque bouton cocher provoque une action différente, si aucun bouton est cocher une message box (vbokcancel) s'ouvre. Le problème c'est que lorsque je clic sur annuler, la procédure ne s’arrête pas et ma feuille de calcul se remplit. Moi je souhaiterais lorsque je clic sur annulé pouvoir retourner à mon userform en ayant gardé en mémoire les cases que j'avais cochées avant d’avoir cliqué sur enregistrer et que ma feuille ne se soit pas quand même rempli des information que j'ai noté.
Je pense qu'il faut d'abord mettre la condition pour ouvrir la messagebox et après mes condition pour remplir ma feuille. Le problème c'est que je ne trouve pas la bonne formulation.
voici mon code actuel.
Code:
If banco1.Value = True Then 'Si coché ...
Sheets("score").Cells(no_ligne, 12) = Sheets("score").Cells(no_ligne, 2)
Sheets("pronostic").Cells(no_ligne, 12) = "match 1"
ElseIf banco2.Value = True Then 'Si coché ...
Sheets("score").Cells(no_ligne, 12) = Sheets("score").Cells(no_ligne, 3)
Sheets("pronostic").Cells(no_ligne, 12) = "match 2"
ElseIf banco3.Value = True Then 'Si coché ...
Sheets("score").Cells(no_ligne, 12) = Sheets("score").Cells(no_ligne, 4)
Sheets("pronostic").Cells(no_ligne, 12) = "match 3"
ElseIf banco4.Value = True Then 'Si coché ...
Sheets("score").Cells(no_ligne, 12) = Sheets("score").Cells(no_ligne, 5)
Sheets("pronostic").Cells(no_ligne, 12) = "match 4"
ElseIf banco5.Value = True Then 'Si coché ...
Sheets("score").Cells(no_ligne, 12) = Sheets("score").Cells(no_ligne, 6)
Sheets("pronostic").Cells(no_ligne, 12) = "match 5"
ElseIf banco6.Value = True Then 'Si coché ...
Sheets("score").Cells(no_ligne, 12) = Sheets("score").Cells(no_ligne, 7)
Sheets("pronostic").Cells(no_ligne, 12) = "match 6"
ElseIf banco7.Value = True Then 'Si coché ...
Sheets("score").Cells(no_ligne, 12) = Sheets("score").Cells(no_ligne, 8)
Sheets("pronostic").Cells(no_ligne, 12) = "match 7"
ElseIf banco8.Value = True Then 'Si coché ...
Sheets("score").Cells(no_ligne, 12) = Sheets("score").Cells(no_ligne, 9)
Sheets("pronostic").Cells(no_ligne, 12) = "match 8"
ElseIf banco9.Value = True Then 'Si coché ...
Sheets("score").Cells(no_ligne, 12) = Sheets("score").Cells(no_ligne, 10)
Sheets("pronostic").Cells(no_ligne, 12) = "match 9"
ElseIf banco10.Value = True Then 'Si coché ...
Sheets("score").Cells(no_ligne, 12) = Sheets("score").Cells(no_ligne, 11)
Sheets("pronostic").Cells(no_ligne, 12) = "match 10"
Else 'Si non coché ...
Dim Rep4 As Integer
Rep4 = MsgBox("Valider sans utiliser le banco ?", vbOKCancel)
If Rep4 = vbCancel Then Exit Sub
Sheets("pronostic").Cells(no_ligne, 12) = ""
End If