Microsoft 365 Créer une formule avec une valeur récupérée dans une Textbox

[Olive de BI]

Bonjour,
J'aimerai pouvoir remplacer dans ma formule (ici: ""bb"") par la valeur de ma textbox Me.txtNom.
Auriez-vous la syntaxe nécessaire.
Merci d'avance et bonne fin de journée

        Feuil1.Select
        Feuil1.Range("A1048576").End(xlUp).Offset(1, 0).Select
        ActiveCell.Offset(0, 0) = Me.txtPrenom
        ActiveCell.Offset(0, 1) = Me.txtNom
        'On affecte les formules dans la fiche bilan
        ActiveCell.Offset(0, 6).FormulaR1C1 = "=SUMIF(TJanvier[[Prénom]],""bb"",TJanvier[[Total virement]])"

 

[Dranreb]

Bonjour.

        Feuil1.Select
        Feuil1.Range("A1048576").End(xlUp).Offset(1, 0).Select
        ActiveCell.Offset(0, 0) = Me.txtPrenom
        ActiveCell.Offset(0, 1) = Me.txtNom
        'On affecte les formules dans la fiche bilan
        ActiveCell.Offset(0, 6).FormulaR1C1 = "=SUMIF(TJanvier[[Prénom]],""" & TxtNom.Text & """,TJanvier[[Total virement]])"

 

[Olive de BI]

Bonjour.

        Feuil1.Select
        Feuil1.Range("A1048576").End(xlUp).Offset(1, 0).Select
        ActiveCell.Offset(0, 0) = Me.txtPrenom
        ActiveCell.Offset(0, 1) = Me.txtNom
        'On affecte les formules dans la fiche bilan
        ActiveCell.Offset(0, 6).FormulaR1C1 = "=SUMIF(TJanvier[[Prénom]],""" & TxtNom.Text & """,TJanvier[[Total virement]])"

Magique et ultra rapide!
Merci beaucoup, ça faisait des heures que je cherchais!!!!