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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Olive de BI

XLDnaute Nouveau
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]])"
 
Solution
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]])"
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]])"
 
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!!!!
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour