Résolu XL 2016 Uniformiser la date des cellules

Dranreb

XLDnaute Barbatruc
Bonjour.
Le projet VBA du classeur que vous avez joint n'a pas la référence à CLsCAs. La cocherez vous ?
Ensuite il y aura ça au début du module de l'UserForm :
VB:
Option Explicit
Private WithEvents CL As ComboBoxLiées ' Prise en charge les ComboBox de recherche et identfication
Private WithEvents CA As ControlsAssociés ' Prise en charge des autres contrôles
Private LCou As Long, TVL() 'Numéro de la ligne courante et tableau des valeurs de cette ligne
Private Sub UserForm_Initialize()
   Set CL = CLsCAs.Création.ComboBoxLiées '  Initialisation des variables objets globales.
   Set CA = CLsCAs.Création.ControlsAssociés
   CL.Plage Feuil6 ' Le ComboBoxLiées doit se baser sur le 1er tableau trouvé en Feuil6 (Source)
   Set CA.Colonnes = CL.Colonnes ' Le ControlsAssociés doit aussi reconnaître les titres des colonnes
' La seule partie à votre charge sera ici :


   CL.CouleurSympa
   CL.Actualiser
   End Sub
Remarque: les 4 TextBox du début seront toutes à remplacer par des ComboBox. Mais vous n'aurez pas à vous occuper de leurs listes, le CL s'en chargera. Je préfèrerais qu'il y ait quelques majuscules dans les noms des contrôles et TBx au lieu de txb, CBx au lieu de cmb et CBn au lieu de btn.
Par exemple TBxDateRévisionVrac au lieu de txbdaterevisionvrac
Et la frmsaisie renommée UFmSaisie.
Même Feuil6 je le renommerais WshSource.
 
Dernière édition:

Phylo

XLDnaute Junior
Bonjour Dranreb

voici le fichier formaté selon tes consignes :
1- Je préfèrerais qu'il y ait quelques majuscules dans les noms des contrôles et TBx au lieu de txb, CBx au lieu de cmb et CBn au lieu de btn.
Par exemple TBxDateRévisionVrac au lieu de txbdaterevisionvrac
Et la frmsaisie renommée UFmSaisie.
Même Feuil6 je le renommerais WshSource.

c'est fait

pour les 4 TextBox du début seront toutes à remplacer par des ComboBox. Mais vous n'aurez pas à vous occuper de leurs listes, le CL s'en chargera.

les

ComboBoxLiées
ComboBoxLiées et les ControlsAssociés ne figurent pas dans mes références pour les cocher.
Je ne sais pas pourquoi ? Est ce que c'est le fait que je travaille dans une compagnie et que l'administrateur a interdit d'installer ces compléments

voici le fichier
j'ai remarqué que le fichier devenu lourd depuis .....
merci bcp pour ton aide
 

Fichiers joints

Dranreb

XLDnaute Barbatruc
Le code que j'ai indiqué doit se mettre au début de l'UserForm.
Vous disiez au #41 avoir coché les complément je pensais que vous parliez de ceci :
1600273277633.png
Si ce complément est installé dans le dossier de compléments il est forcément disponible et s'il est coché coté Excel vous avez forcément le projet CLsCAs proposé dans les référence coté VBA. Mais auriez vous demandé, à son ouverture, au CBxLCtlA.xlsm de s'installer en tant que .xlam ailleurs que dans le dossier des compléments ? Si oui il suffit de l'ouvrir un coup de là où vous l'avez mis et vous aurez aussi le projet CLsCAs proposé dans les références coté VBA.
Remarque: je voulais aussi montrer la liste des références dans l'image mais j'ai eu la stupeur de tomber sur une protection par mot de passe de votre projet VBA en faisant Alt+OR
 
Dernière édition:

Dranreb

XLDnaute Barbatruc
Et, je viens de voir que du coté Excel vous avez renommé "WshSource" la feuille "Source", ce que je ne vous proposais pas du tout de faire, mais que vous n'avez pas renommé WshSource l'objet Feuil6 qui en assume la représentation dans VBA, comme je vous le proposais, ça, par contre.
 
Dernière édition:

Phylo

XLDnaute Junior
Malheureusement, j'ai essayé de charger les complements mais ceux que tu perles je n'arrive pas a les installer.

Pour la feuille 6, j'ai compris que tu voulais la renommer
Je suis navré de mon niveau dans le VBA
je suis trés débutant j'ai appris bcp de choses avec vous.
 

Dranreb

XLDnaute Barbatruc
Bonjour.
Que se passe-t-il lors de cette installation automatique, sur confirmation toutefois, à l'ouverture du classeur de la ressource ? On ne m'a jamais signalé d'incident jusqu'à présent.
Pourquoi dites vous les compléments ? Il n'y en a qu'un seul: le CBxLCtlA.xlam qui s'installe à partir du classeur précurseur CBxLCtlA.xlsm et contient les définitions des types d'objets ComboBoxLiées et ControlsAssociés dans un projet VBA nommé CLsCAs à mettre en référence dans les projets VBA des classeurs devant l'utiliser.
 
Dernière édition:

Phylo

XLDnaute Junior
Bonjour

je n'arrive pas a installer le complément
Aurais-tu stp un exemple avec une video ? ou alors pourrais-tu m'envoyer un fichier pour le télécharger directementmeme par le bouton parcourir ?
Merci d'avance. Cordialement,



1600371372857.png



Pour le fichier, j'ai mis la procédure dans le début du userforme
j'ai modifié dans la procédure ce que tu m'a demandé
 

Fichiers joints

Dranreb

XLDnaute Barbatruc
Lorsque vous ouvrez le CBxLCtlA.xlsm de la ressource indiquée au #32, il vous affiche normalement le message suivant :
Ce classeur n'est pas dans l'état définitif propre à son utilisation.
Son enregistrement dans votre dossier de compléments va vous être proposé.
Voulez vous d'abord une copie de sa feuille d'aide ?
À moins d'annuler, il ouvre ensuite votre dossier de compléments en vue de s'y enregistrer en .xlam, ce que vous devez confirmer par le bouton Enregistrer.
S'il ne rencontre aucun problème il conclut par ce message :
Installation terminée avec succès.
Dans votre application VBA vous pouvez à présent
cocher "CLsCAs", menu Outils, Références…
Il est conseillé de le faire tout de suite, surtout si vous avez changé le dossier de destination, auquel cas il ne figurera pas dans les compléments disponibles. Mais il est quand même au moins ouvert juste après l'installation, mais seulement pour la session Excel, et s'ouvrira de toute façon par la suite à l'ouverture de votre classeur du moment que CLsCAs aura été coché dans les références de son VBAProject.
 
Dernière édition:

Phylo

XLDnaute Junior
Oui effectivement ca été installé comme tu as mentionné

Merci


1600379071640.png


Mais j ai une question vu que le fichier est utilisé par plusieurs personnes
est ce c est obligatoire que tous les utilisateurs coche ce complement


Merci
 

Dranreb

XLDnaute Barbatruc
Pas claire votre question. Une fois la référence cochée, le projet CLsCAs sera chargé automatiquement chaque fois qu'on ouvrira le classeur, pour toutes les personnes qui viendront sur votre ordinateur pour cela. Il est bien sur C:\, qui est le disque dur, votre classeur, non ?
S'il est sur un autre lecteur, il serait peut être bon que le CBxLCtlA.xlam y soit aussi.
 
Dernière édition:

Phylo

XLDnaute Junior
j ai posé cette question parceque on travaille sur le meme fichier aui est partagé sur le réseaux de la campagnie mais chacun son ordinateur.

Merci

Pour le fichier, c'est quoi l'étape suivante maintenant ?
 

Dranreb

XLDnaute Barbatruc
Aïe. Il est sur un chemin réseau… Je ne peux que vous conseiller de faire des essais. Il faut naturellement que le xlam soit accessible quand on ouvre le classeur. Je ne crois guère qu'il pourrait le charger du dossier de compléments forcément différent de chaque utilisateur.
L'étape suivante c'est d'écrire dans la Sub UserForm_Initialize les CL.Add CBx…, "Intitulé de la colonne" et CA.Add …, "Intitulé autre colonne", Mode:=?
Ça m'intéresserait que vous précisiez une certaine valeur commune à l'argument Mode pour les contrôles qui doivent changer la date dans les TextBox des colonnes à leur droite …
Si aucune solution ne s'avérait commode pour l'accès aux 13 modules de service dont 12 de classe du projet CLsCAs, il resterait le dernier recours d'en équiper le VBAProject du classeur d'application.
 
Dernière édition:

Phylo

XLDnaute Junior
J ai essayé déja de lancer l'userforme
il me donne le message suivant comme s'il reconnait pas encore le complement installé.

1600383635296.png

Au faite, ce fichier est fait pour des raison de statistiques et pour la tracabilité des activités de l'équipe.

Pour l'écriture de la procédure, je ne sais pas comment écrire une procédure
j'espére que cela va t'aider !!!!!

voici les intitulés des comboxes et les textboxes selon les colonnes

Colonne J: CBxreceptionbulk = initiales
Colonne K: TBxDateReceptionVrac : Date sous format : dd-mm-yyyy
Colonne I : TBxDateEcheanceVrac = DateReceptionVrac +2

Colonne L : CBxRevisionBulk = initiales
Colonne M : TBxDateRevisionVrac = Date sous format : dd-mm-yyyy

Colonne N : CBxRelacheBulk= initiales
Colonne O : TBxDateRelacheVrac = Date sous format : dd-mm-yyyy

Colonne P: CBxComBulk= initiales
Colonne Q: CBxComBulk2= initiales

Colonne S: CBxReceptionFG = initiales
Colonne T: TBxDateReceptionFG : Date sous format : dd-mm-yyyy
Colonne R : TBxDateReceptionFG = DateReceptionFG +2


Colonne U : CBxRevisionFG = initiales
Colonne V : TBxDateRevisionFG = Date sous format : dd-mm-yyyy

Colonne W : CBxRelacheFG = initiales
Colonne X : TBxDateRelacheFG = Date sous format : dd-mm-yyyy


Colonne P: CBxComFG= initiales
Colonne Q: CBxComFG2= initiales
 

Dranreb

XLDnaute Barbatruc
Bonjour.
La référence à CLsCAs n'est probablement toujours pas cochée dans le VBAProject de votre classeur, ou bien elle est portée MANQUANT parce que vous vous êtes mis dès maintenant (c'est trop tôt) à le tester sur un autre poste que celui où vous l'avez compilé, et que le complément n'est pas sur le réseau pour cela.
Remplacez par des ComboBox toutes les TextBox destinées aux informations d'identification de la ligne, celle qui ne changeront plus une fois la ligne créée.
Pour celles-ci mettez une Instruction CL.Add Me.SonNon, "Intitué de la colonne dans le tableau"
Pour les autres controles mettez une instruction CA.Add Me.SonNon, "Intitué de la colonne dans le tableau". Les ComboBox qui ont déjà une liste fixe à part doivent être confiées à CA, non à CL.
 
Dernière édition:

Phylo

XLDnaute Junior
Bonjour

J'aurai besoin stp de m'aider pour écrire la procédure
juste un exemple d'instruction pour une colonne fixe et une pour une colonne qui changera

et je vais compléter la procédure


merci d'avance
 

Dranreb

XLDnaute Barbatruc
Ce n'est pas une procédure à écrire, ce sont des instructions à ajouter derrière le commentaire
"' La seule partie à votre charge sera ici :". Il faut une instruction pour chaque contrôle correspondant à une colonne du tableau.
Je ne peux pas vous donner d'exemple, je n'ai pas actuellement sous les yeux de nom de contrôle ni d'intitulé de colonne. Alors un nom bidon et un intitulé bidon ne seraient pas plus clairs il me semble que les formes générales que je vous ai indiquées.
Vous pouvez aussi lire l'aide de la méthode Add de l'objet ComboBoxLiées pour plus d'informations, ainsi que celle de l'objet ControlsAssociés.
 
Dernière édition:

Phylo

XLDnaute Junior
Merci je vais essayer de le faire et te l'enverrai pour me corriger stp

quand tu dis l'intitulé de la colonne dans le tableau c'est à dire le titre de la colonne dans excel

exemple
colonne B ; code du vrac
 

Dranreb

XLDnaute Barbatruc
Oui c'est cela. C'est possible parce que c'est la clé dans la collection ListColumns du ListObject qui représente le tableau. Il doit donc être indiqué avec exactitude.
 

Phylo

XLDnaute Junior
Bonjour
J'ai suivi tous ce que tu m'a dit dans les anciens messages et j'ai écrit tous les instructions,
merci de jeter un coup d'oeil stp

juste pour te dire que je n'ai pas encore partagé le fichier dans le réseaux vu que le fichier n'est pas encore finalisé:

j'ai l'impression que j'ai le meme message ou quelque chose ne vas pas
merci
 

Fichiers joints

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas