Contenu récent par Dranreb

Bonjour. Ça n'a plus rien à voir avec l'UserForm que j'avais vu dans votre classeur, ça ! Du moment qu'on ne cherche pas trop à comprendre comment ils fonctionnent en interne, les mises à jour programmées à l'aide de mes objets ComboBoxLiées et ControlsAssociés ne sont pas compliquée du tout à...

Bonjour. Ne manquez pas de me tenir au courant de vos adaptations. J'ai vu qu'il y avait une paire d'OptionButton dans votre UserForm. Il y a bien une classe CAssoOBn pour les gérer, pourtant ce type de contrôle n'est pas supporté par la méthode Add de l'objet ControlsAssociés. En revanche un...

Bonjour. Les formats de nombres de cellules ne s'appliquent qu'aux cellules contenant des nombres. La saisie d'un point au lieu d'une virgule incitera Excel à interpréter comme du texte la valeur à attribuer à la cellule et non comme un nombre.

Bonjour. Oui, ce que j'ai joint c'est bien un modèle d'utilisation de ce système. Pouvez vous adapter la Sub UserForm_Initialize à vos besoins ? Le reste de la programmation ne devrait pas beaucoup changer.

Je pourrais vous proposer un système de mise à jour standard de la feuille "Base de données" si vous voulez. Il me semble que la Date pourrait aussi faire l'objet d'une ComboBox … Je n'aurais pas besoin feuilles "Salariés" ni "Affaire". Une nouveauté se tape dans une ComboBox, l'existant donne...

Bonsoir. Est ce normal qu'il n'y ait ni Private Sub UserForm_Initialize() pour exécuter du code lors de la première mention du UserForm de la journée ou depuis son dernier Unload, ni Private Sub UserForm_Activate() pour en exécuter lors de son Show ?

Bonsoir. Votre condition est toujours vraie vu que si votre cellule Cells(B, "C") est égale à une des deux TextBox elle est forcément différente de l'autre. Peut être :If Feuil1.Cells(B, "C") = TextBox2.Text & " " & TextBox3.Text Then

Bonjour. Seriez vous intéressé par un UserForm proposant une palette paramétrable pour chaque feuille de tout classeur via un nom "Couleurs" ? J'ai un truc comme ça déjà écrit à 95 % …

Bonsoir. CCur au lieu de CDbl vous assure une exactitude de 4 décimales.

Bonjour. Pour une TextBox avec WorkWrap=True, après .Autosize=False je mets une certaine valeur maxi au .Width pour éviter de reprendre celui défini par l'ancien texte.

Bonjour Cette doc le confirme bien, non ? C'est bien une Sub Workbook_BeforeClose pour le module ThisWorkbook ! Une Sub Worksheet_BeforeClose dans un module d'objet Worksheet serait simplement ignorée. Coneil: Utilisez toujours les listes déroulantes qui surmontent la fenêtre de code pour...

Bonsoir. Un objet Worksheet n'a pas d'évènement BeforeClose. Un objet Workbook, si.

Bonjour Vous pourriez avoir intérêt à repartir de ce classeur.

Mes excuses aussi d'avoir répété qui avait déjà été dit, derrière une intervention qui avait ignoré tout ça …

Encore une fois CurDir peut ne pas avoir été changé par ChDir s'il n'y a pas aussi eu un ChDrive. Pour un dossier de réseau l'API SetCurrentDirectory change toujours CurDir. Declare Function PtrSafe SetCurrentDirectory Lib "kernel32" Alias "SetCurrentDirectoryA" _ (ByVal lpPathName As String)...