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

 

[FCMLE44]

Non tout est lié
J'avance pas à pas
C'est toute une maquette automatisée que je fais
Le fait d'appuyer sur le bouton SAISIE sur le userform PrépaCourrier doit permettre de remplir les données qui se mettront automatiquement dans ces cellules

 

[soan]

comment tu fais pour afficher le UserForm Prépacourriers ?
je veux dire : à partir de quelle feuille ? et tu cliques sur
quel bouton ?

 

[FCMLE44]

Sur le bouton de la feuille courriers
Ce bouton

 

[soan]

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 ?

 

[FCMLE44]

Non

Ca m'ouvre bien le userfom SomVersées
J'utilise le fichier Test 5
Pour voir mon fichier avancé dans son intégralité, voici le fichier maquette

 

[soan]

j'viens d'essayer ton fichier, mais j'ai plusieurs erreurs de compilation !

soan

 

[FCMLE44]

A quel niveau

 

[soan]

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]

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

 

[FCMLE44]

J'ai enlevé l'impression et donc la référence à outlook ca devrait fonctionner

 

[soan]

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

 

[soan]

ce post et les suivants : compléments en images.

référence Outlook 16.0 : « MANQUANT » ; réf remplacée par Outlook 11.0 :

soan

 

[FCMLE44]

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

excuses moi je ne sais pas faire ça
ce n est pas volontaire

 

[soan]

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]

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