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

[FCMLE44]

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

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

    Me.TexBox13 = Sheets("Feuil2").Range("I2")

Quelqu'un aurait il une idée ? Merci

 

[soan]

Rebonjour FCMLE44,

Si tu appelles ton UserForm "Montants" depuis "Feuil2", essaye :

Private Sub TextBox13_Change()
  [I2] = TexBox13
End Sub

Private Sub UserForm_Initialize()
  TexBox13 = [I2]: ComboBox2.List = [I2:I10]
End Sub

soan

 

[FCMLE44]

Pourquoi le Combobox2 ? Il est indépendant
J'essaie de comprendre
Dans mon textbox13, je souhaite simplement avoir ma cellule I2 de ma Feuil2

 

[soan]

Re,

Tu as écrit : « Pourquoi le ComboBox2 ? » ; j'ai juste optimisé ton code VBA initial :

Pour t'aider plus, je préférerai avoir un fichier (sans données confidentielles).

soan

 

[FCMLE44]

Parce que j'aurais plusieurs combobox

 

[FCMLE44]

Voici le fichier

 

[soan]

@FCMLE44

Je te retourne ton fichier modifié.

à te lire pour avoir ton avis.

soan

 

[FCMLE44]

C'est parfait merci

 

[FCMLE44]

Mon bouton ne se trouvera pas sur la même feuille
comment aller chercher mes données sur la feuil2 à partir de la feuil1

 

[FCMLE44]

Dans la liste figurant en L2, il pourra y avoir d'autres éléments soit colonne I de I2 à I13 au lieu de I2 à I10

 

[soan]

@FCMLE44

Je te retourne ton fichier modifié.

* regarde d'abord "Feuil2" ; puis va sur "Feuil1"
* fais sur "Feuil1" tous les tests nécessaires

* dans ThisWorkbook, lis très attentivement tous les commentaires
(j'ai pas besoin d'préciser l'texte en vert, car tout est en vert ! )

* regarde ensuite Module1 ; puis le code de ton UF

alors, c'est ok, n'est-ce pas ?

m'est avis qu'tu pourras passer à l'étape suivante : les montants
(si t'as besoin d'un coup d'main, n'hésite pas à m'demander)

soan

 

[FCMLE44]

Bonjour
Merci pour le travail aussi tardif
A quel endroit je peux préciser le nom de ma feuille ou aller chercher mes éléments car ce n'est pas le fichier définitif que tu as mais un modèle sans données

aussi les trois listes déroulantes sommes nettes du userform ne se complète pas

Enfin lorsque je veux copier SomVersées sur mon userform via le bouton ca ne fonctionne pas

Je te fournis mes feuilles telles qu'elles seront
Bouton sur feuille courriers et remplissage sur feuille courrier cellule B140

 

[FCMLE44]

@FCMLE44

Je te retourne ton fichier modifié.

* regarde d'abord "Feuil2" ; puis va sur "Feuil1"
* fais sur "Feuil1" tous les tests nécessaires

* dans ThisWorkbook, lis très attentivement tous les commentaires
(j'ai pas besoin d'préciser l'texte en vert, car tout est en vert ! )

* regarde ensuite Module1 ; puis le code de ton UF

alors, c'est ok, n'est-ce pas ?

m'est avis qu'tu pourras passer à l'étape suivante : les montants
(si t'as besoin d'un coup d'main, n'hésite pas à m'demander)

soan

Bonjour
Merci pour le travail aussi tardif
A quel endroit je peux préciser le nom de ma feuille ou aller chercher mes éléments car ce n'est pas le fichier définitif que tu as mais un modèle sans données

aussi les trois listes déroulantes sommes nettes du userform ne se complète pas

Enfin lorsque je veux copier SomVersées sur mon userform via le bouton ca ne fonctionne pas

Je te fournis mes feuilles telles qu'elles seront
Bouton sur feuille courriers et remplissage sur feuille courrier cellule B140

 

[FCMLE44]

Pour que ce soit plus facile, je te fourni mon fichier tel qu'il sera afin que tu aies bien les feuilles concernées paramètres et Courriers

En feuille paramètres, tu retrouveras la liste de choix en colonne Y de Y2 à Y12
Les données devront se mettre automatiquement en feuille courriers cellules B83 à B91 puis B94 à B95

Il faut qu'ensuite je puisse transférer ce code sur mon fichier final

Merci

 

[FCMLE44]

???