Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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
 

soan

XLDnaute Barbatruc
Inactif
ah oui ! ben j'savais pas, moi ! c'est tout nouveau, pour moi, ce formulaire !

et quand j'clique sur le bouton Saisie, ça marche pas : erreur 6 :
"Dépassement de capacité" ; tu as la même chose ?
 

soan

XLDnaute Barbatruc
Inactif
y'a ces erreurs de compilations surtout à cause de c'qui concerne Outlook :

tu as Outlook 2016, et moi Outlook 2003 ; mais même en remplaçant la référence
Outlook 16.0 par la référence Outlook 11.0, ça plante quand même :
la compilation ne veut pas passer !

peux-tu me transmettre une version de ton fichier les choses qui concernent Outlook,
où tu as enlevé la référence d'Outlook 16.0, et où la compilation s'est déjà faite
correctement, jusqu'au bout ?


soan
 

soan

XLDnaute Barbatruc
Inactif
je te laisse lire mon post #53 précédent ; je vais faire une très longue pause
car j'ai pas encore mangé, et j'ai faim ! (et j'dois sortir pour aller faire des
courses : j'ai plus d'provisions chez moi ! )

je lirai ta réponse ce soir, quand j'reprendrai sur mon PC. A+


soan
 

soan

XLDnaute Barbatruc
Inactif
Bonsoir @FCMLE44,

mêmes problèmes qu'avant, et dans le menu de VBA : « Outils / Références... » :
tu peux voir qu'il y a toujours une référence à Outlook 16.0 ; après l'avoir
remplacée par ma référence d'Outlook 11.0, ça passe la 1ère erreur de
compilation ; mais après, y'a plein d'autres erreurs de compilation !

pourtant, je t'avais bien demandé d'enlever la référence Outlook 16.0, et de vérifier
si la compilation se passe bien, complètement et jusqu'au bout ; cela avant de
m'envoyer ton fichier !

résultat : on perd du temps bêtement à cause d'erreurs de compilation qui sont bien
trop nombreuses pour que « j'm'amuse » à toutes les enlever !

et même si je mets simplement en commentaire les lignes fautives, c'est beaucoup
trop aléatoire pour que j'puisse me fier à ce projet VBA !

alors prochaine étape : envoie-moi un fichier où la compilation aboutit sans erreur ;
c'est la 1ère chose que j'regarde en 1er ; s'il y a encore la référence à Outlook 16.0
et qu'après l'avoir remplacée par Outlook 11.0 la compilation aboutit, ça pourra
me convenir aussi ; mais si la compilation bloque quand même après, ça n'ira pas,
et on ne pourra toujours pas avancer !!! (ça sera tout d'même bien dommage d'en être
toujours au même point !)


en attente de ton prochain fichier ... en espérant qu'cette fois, il sera OK !


soan
 

FCMLE44

XLDnaute Impliqué
Supporter XLD
excuses moi je ne sais pas faire ça
ce n est pas volontaire
 

soan

XLDnaute Barbatruc
Inactif
ok, alors pour la référence je vais le faire moi ; mais patiente un peu :
je vais mettre d'autres images sur ce qui se passe, même après avoir
mis ma bonne référence d'Outlook 11.0.


soan
 

soan

XLDnaute Barbatruc
Inactif
la 1ère erreur est celle-ci, dans Module1 :



et même après avoir mis en commentaire cette ligne, y'en a d'autres après !

je vais mettre une image sur la 2ème erreur de compil, mais sois patient
car c'est long à faire le copier/coller de l'image et sa mise en forme.


soan
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…