Valeur d'un UserForm dans cellule precise

Bonjour à tous les membres du Forum,

Trouvant toujours réponse à mes interrogations de débutant en VBA, je vous soumets le problème rencontré.

Je prépare un fichier pour aider des stagiaires à remplir leurs frais de stage. Je crée un stagiaire dans la BD ainsi qu'un onglet par stagiaire.

J'aurai souhaité, grâce au bouton, "ajouter frais" remplir pour chacun des champs du Userform inscrire les frais dans la feuille de chacun des stagiaires dans des cellules précises (Par ex. les frais d'avion (champ : AvionStage) en cellule O24 et ceux de train (champ : TrainStage) en cellule O26).

Je n'arrive malheureusement pas à trouver le bon code.

Je remercie ceux qui pourront m'aider à résoudre ce problème.

Je joins un fichier exemple pour simplifier l'explication.

Bonjour

Si tes cellules sont toujours les mêmes voici un exemple de réalisation

Private Sub ValiderPaiement_Click()
Application.ScreenUpdating = False

If NomPrenomStagiaire = "" Then
    MsgBox "Il faut renseigner la case Stagiaire !!!", vbInformation, "Mauvaise Manip"
    Exit Sub

Else

    NomPrenomStag = NomPrenomStagiaire.Value
    With Worksheets(NomPrenomStag)
      .Range("O24") = Val(Replace(AvionStag, ",", "."))
      .Range("O26") = Val(Replace(TrainStag, ",", "."))
    End With
    'Worksheets(NomPrenomStag).Select
    'Columns(15).Find("", , , , , xlPrevious).Offset(1, 0).Select

    'ActiveCell = CCur(AvionStag)
    'ActiveCell.Offset(0, 1).Select

    'ActiveCell = CCur(TrainStag)
    'ActiveCell.Offset(0, 1).Select

End If

Bonsoir Banzai664

Merci pour ce coup de pouce qui va me permettre d'avancer dans mon projet.

Cela fonctionne parfaitement.

A la prochaine.