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

Olive de BI · 20 Août 2023

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

Code:

        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 · 20 Août 2023

Bonjour.

VB:

        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]])"

Dranreb · 20 Août 2023

Bonjour.

VB:

        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 · 20 Août 2023

Dranreb à dit:

Bonjour.

VB:

        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!!!!

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

Olive de BI

XLDnaute Nouveau

Dranreb

Dranreb

XLDnaute Barbatruc

Olive de BI

XLDnaute Nouveau

Discussions similaires