Microsoft 365 Récupérer la valeur d'une cellule dans un userform

FCMLE44

XLDnaute Impliqué
Supporter XLD
Bonjour

Dans un userform Montants, je souhaite dans une textbox (texbox13) y insérer la valeur de la cellule I2 de la feuille 2

J'ai donc fait cela
VB:
Private Sub TextBox13_Change()
Sheets("Feuil2").Range("I2") = Montants.TexBox13
End Sub

Private Sub UserForm_Initialize()
    Me.TexBox13 = Sheets("Feuil2").Range("I2")
    ComboBox2.List = Worksheets("Feuil2").Range("I2:I10").Value
End Sub

Le code bloque au niveau de cette partie
Code:
    Me.TexBox13 = Sheets("Feuil2").Range("I2")

Quelqu'un aurait il une idée ? Merci
 

FCMLE44

XLDnaute Impliqué
Supporter XLD
Nous ne serons pas forcément sur la cellule G82 lorsque nous saisirons sur le userform SomVersées
Nous déclencherons ce userform en cliquant sur le bouton avec le petit crayon en appuyant sur le bouton ci dessous
1603886899789.png
 

soan

XLDnaute Barbatruc
Inactif
@FCMLE44

réponse à ton post #35

exact, mais si tu l'utilises, ce sera différent :

voici l'explication : le bouton nommé "Bouton 1" affiche le UserForm
seulement si la cellule active est sur une ligne où il y a marqué
"SOMMES BRUTES" en cellule B (fusion B: D) ; pourquoi ; pour que
les données du UserForm soient écrites dans les bonnes cellules
de destination.

et j'ai fait c'qu'il faut pour les libellés et les montants. :)

si besoin, tu peux m'demander une adaptation.
alors ? ton avis ?


soan
 
Dernière édition:

FCMLE44

XLDnaute Impliqué
Supporter XLD
Ce système fonctionne trés bien et je te remercie d'avoir passé tout ce temps
Néanmoins, pour plus de praticité paour les équipes, je souhaiterais que ce userform se déclenche à partir de ce bouton dans l'autre userform
1603887391242.png


Et que les données qui s'affichent en B83 s'affiche en B141 etc..... de manière automatique style copié collé
 

Discussions similaires

Statistiques des forums

Discussions
312 088
Messages
2 085 201
Membres
102 817
dernier inscrit
Nini668