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]

merci et désolé

 

[soan]

@FCMLE44 (suite)

voici la 2ème erreur de compilation, dans le code du UserForm Prépacourriers :

l'ennui, c'est que dessous, dans le même module, y'a plein d'autres lignes du même genre,
qui vont bloquer la compilation de la même façon !

alors que tu ne saches pas corriger la référence Outlook, je veux bien, car c'est kek'chose
de spécial ; mais ces erreurs de compilation qui sont dues uniquement au code de ton
UserForm, comment ça s'fait qu'elles se produisent ? c'est pas normal puisque c'est censé
marcher sur ton PC ; et si le code VBA s'exécute, c'est que forcément, la compilation
a correctement abouti sur ton PC ! alors pourquoi ça bloque sur mon PC ?

la réponse, je l'ai ici :

dans ton UserForm Prépacourriers, il n'existe pas de TextBox10 !!! alors question :
pourquoi tu m'envoies un fichier où des TextBox manquent dans ton UserForm ?
et comment peux-tu dire que ça marche sur ton PC avec des TextBox absentes ?

soan

 

[soan]

note bien que s'il y avait une TextBox10, elle serait dans la liste du coin bas gauche
de l'image précédente, entre TextBox1 et TextBox11.

peut-être que tu t'es trompé de fichier, et que c'est un autre que tu dois m'envoyer ?

si tu m'envoies cet autre fichier, précise aussi ce que tu voudrais que j'y fasse,
et sur quelle feuille de calcul ? pour quel UserForm ? dans quel Module ?
modifier quelle sub ?

mais avant envoi, vérifie que la compilation marche correctement,
jusqu'au bout !

soan

 

[FCMLE44]

non tu as le bon fichier

 

[soan]

alors si j'ai le bon fichier, comment tu expliques qu'il y a des TextBox absentes ?
et qu'la compilation bloque car justement, le code VBA contient des références
à ces TextBox manquantes ? tant qu'ça bloque là-dessus, je fais quoi, moi ?

je mets en commentaire toutes les lignes de code VBA où ça bloque ? bon,
admettons ; c'est toujours possible si tu veux m'demander un travail qui ne
concerne pas ce UserForm Prépacourriers ; mais tu m'as toujours pas dit
c'que tu voudrais ; et j'peux pas l'deviner ! alors c'est quoi ?

précise si c'est sur Excel ou dans VBA ; si c'est sur Excel, sur quelle(s) feuille(s) ?
si c'est dans VBA, sur quel module standard ? ou sur quel UserForm ? et
quelle sub je dois modifier ? il y en a beaucoup, donc j'peux pas l'savoir
seul, sans qu'tu me l'indique !

en résumé : où faut faire une modif ? et quoi faire ?

soan

 

[FCMLE44]

ce sont des textbox que j avais du créer avant mais dont je nbai pas supprimer le code.

je dois faire le point de tout ce que je dois en core faire sur ce fichier et notamment et notamment via un userform pour supprimer et ou ajouter les noms des gestionnaires dans la feuille paramètre.

je reprend tout ça demain matin et te donne tout ce que je dois encore faire

bonne soiree

 

[soan]

ok, bonne soirée à toi aussi, et à demain !

soan

 

[FCMLE44]

Bonjour
Ci joint le fichier modifié normalement j'ai tout repointé plus aucune erreur de compilation selon moi.
Je fais maintenant le point qur tout ce que je souhaite encore faire sur ce fichier et te fournis un état détaillé dans la journée

 

[soan]

Bonjour @FCMLE44,

j'viens d'vérifier le nouveau fichier :

* j'ai été tout surpris de ne pas voir ta référence Outlook 16.0 !
tu as donc réussi à l'enlever ! (je m'suis dit : tant mieux ! )

* j'ai fait une compilation ; blocage en Module3,
sub ChoixMultiFichiers_EnvoiMail_Simu_RG(),
sur : Dim Ol As Outlook.Application

* j'ai mis ma référence Outlook 11.0, et là, super bonne nouvelle :
la compilation est OK !!! enfin !!! (j'y croyais plus ! )

* une autre solution aurait été de supprimer ce module, puisqu'il concerne
uniquement l'envoi par mail via Outlook ; et si ta demande pour ce fichier
est à propos d'autre chose. (j'ai vu que les Modules 5 et 6 concernent aussi les mails)

donc maint'nant, j'vais attendre ton futur état détaillé à propos de c'que tu veux
faire sur ce fichier (j'espère qu'y'aura pas trop d'choses ! ) ; rien ne presse,
alors prends ton temps ; et puis j'vais bientôt devoir m'absenter pour longtemps :
je serai de retour seulement ce soir, et tard (ou p't'être même demain).

soan

 

[FCMLE44]

Voici en détail ce qu'il me reste à faire dans ce fichier pour le moment avec un gros pavé de maintenance à la fin

- Feuille Courriers Ligne 31
Si société (en cellule B13 de la feuille salariés) dispose d'une caisse de caisse de congés (cf colonne G feuille Paramètre) alors la ligne 31 restera visible einson elle sera masquée

- Feuille ES Cellule J18
J'aimerais avoir le nombre de jours calendaires incluant week end et fériés en fonction du mois indiqué en cellule B17 de la feuille salarié

- Feuille ES Cellule J25
J'aimerais avoir le nombre de jours ouvrés incluant les jours fériés en fonction du mois indiqué en cellule B17 de la feuille salarié

Et pour terminer (enfin je pense à ce stade), je voudrais faire un module accessible par mot de passe pour pour voir mettre à jour les données régulièrement.

En fait, je souhaiterais rajouter dans mon fichier un bouton accessible depuis la feuille salarié me donnant accès à un userform sous condition de saisie d'un mot de passe afin de mettre à jour les données se trouvant en feuille paramètre

Je m'explique :

- un Userform qui va s'ouvrir avec les infos suivantes
- MAJ Gestionnaires
- MAJ Sociétés
- MAJ Plafond SS
- MAJ CCN

Lorsque l'on cliquera sur un de ces choix, un userform s'affichera pour y mettre à jour les données concernées sur la page paramètre

- Gestionnaires : Les données se mettront directement à jour en colonne A et B de la feuille Paramètre. Il y aura la possibilité de supprimer des gestionnaires et d'en ajouter d'autres

- Sociétées : Idem que Gestionnaires mais se mettra à jour dans les colonnes D à J de la feuille paramètres

- Plafond SS : MAJ de l'information en colonne U de la feuille Paramètre

- MAJ CCN : Même principe que les deux premiers choix mais dans les colonnes L à Q de la feuille Paramètres

Voilà qui devrait nous occuper un moment

Prendre ce nouveau fichier SVP

Merci de ton aide

 

[soan]

Bonsoir @FCMLE44,

* feuille "Salariés" : B13 : vide
➯ feuille "Courriers" : pas de Certificat de Congés Payés
normal, car il n'y a pas d'indication de Société.

* "Salariés" : en B13, mets : 45
➯ "Courriers" : pas de Certificat de Congés Payés
car la société 45 n'existe pas !

* "Salariés" : en B13, mets : 2
➯ "Courriers" : pas de Certificat de Congés Payés
la société 2 existe ; mais : Caisse de congés = Non

* "Salariés" : en B13, mets : 3
➯ "Courriers" : Certificat de Congés payés
la société 3 existe ; et : Caisse de congés = Oui

je ne pensais pas que tu allais me demander autant de choses !
ça en fait trop, et de toute façon, tes autres demandes sont
trop difficiles pour moi ; je laisse donc la suite à un autre
intervenant ; bonne chance !

soan