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

  • Initiateur de la discussion Initiateur de la discussion FCMLE44
  • Date de début Date de début

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 !

FCMLE44

XLDnaute Impliqué
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
 
Rebonjour FCMLE44,

Si tu appelles ton UserForm "Montants" depuis "Feuil2", essaye :
VB:
Private Sub TextBox13_Change()
  [I2] = TexBox13
End Sub

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

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

Image.jpg


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

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
 

Pièces jointes

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
 

Pièces jointes

@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
 

Pièces jointes

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
 

Pièces jointes

- 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

Réponses
3
Affichages
193
Retour