Résultats de la recherche

Bonjour à toutes et tous, Je viens de refaire plus simple suite étude des feuilles et des codes VBA. Création d'un concaténation et recherche en Find plus simple avec création d'une colonne supplémentaire dans chaque feuille ce qui me permets une clé unique pour la recherche. J'ai procédé...

Bonjour à toutes et tous, Une petite étude pour 2 Find en boucle: tant que le Personnel existe, a=Find(ComboBox1) tant que l'Année existe, b=find(ComboBox2) si a=b alors , on quitte les deux boucles, a est la bonne valeur (récupération du Rows)

Bonjour à toutes et tous, Je viens de prendre en compte la modification d'une application sur Excel et j'ai besoin de votre aide. Pour faire simple, j'ai une ComboBox1 qui permet de sélectionner un personnel avec la mise à jour de diverses Texbox concernant celui-ci. J'ai une deuxième...

Bonjour, L'userform pour le masque de saisie et juste les 4 premières lignes. Merci.

Bonjour, Je viens de finir avec la non possibilité de supression de certaines lignes de mon tableau par click droitmais je voudrais maintenant empécher la supression des 4 premières lignes de mon tableau par le masque de saisie. Une idée sur une méthode ? Je n'ai aucune idée sur le code: sur...

Bonjour, Je suis un idiot, j'avais laisser le code dans la partie enregistrement. J'ai pris en compte aussi le cas d'un enregistrement sans date, puis modification tout de suite. "Private Sub btnDebutConge_Click() Dim dateRef1, dateRef2 As Date ' Declaration de variables Dim...

Bonjour dg62, Par principe le dernier moment avant enregistrement, mais je reprends votre solution, effectivement plus logique et je n'ai pas le soucis du combobox. Par contre, toujours le soucis de la txtDebutConge dans le cas d'un vide. Pas logique pour moi, mais il arrive que certain...

Effectivement. Par contre le soucis de la non saisie de la date possible ce qui implique une erreur pour moi. J'ai utilisé le code suivant dans le WriteRecord: "If Me.txtName.Value = "" Then MsgBox "Entrer un Nom, vous devez reprendre la saisie" Unload Me 'fermeture et...

Merci, mais comme le boss pense à un champ date vide, petit soucis. Je ne pense pas qu'avec une value par défaut "espace" de textbox cela marche.

Bonsoir, Merci pour la solution, je n'avais pas penser au calendar. Par contre, je dois refaire le code pour la reprise du champ txtDebutconge pour la prise en compte du non remplissage de celle-ci. Ma solution ne marche plus avec le dateRef1 ="". je vais essayer demain avec une value par...

Suite modification et vérification, j'ai repris l'affectation des textbox. La recopie est bien prise en compte dans la feuille. Par contre, les calculs sont faux ? Affichage systématique des même valeurs dans 4 textbox ? Sans doute un format date, mais je sèche ? Merci

bonjour, J'ai un problème pour l'affectation avec le usf calendar qui me renvoir un format d/mm/yyyy ? Avant, pas de soucis et cela bloque l'affectation ou alors j'ai pas compris. J'ai ajouter la ligne de code en modifiant, au dessus, afin de prendre en compte le format: "Dim l As Integer...

Bonjour, Ce matin bug car non prise en compte des calculs dans les TextBox ? Je ne comprends pas car hier aucun soucis après enregistrement et fermeture puis réouverture. Par contre, lors de la saisie je n'ai plus la mise en forme de la ligne ? J'essai de relire le code pour voir mais aucune...

Bonsoir, La modification sur la partie du code: " If dateref1 = "" Then 'prise en compte d'une non saisie de date de Début de congé txtfinConge.Value = "" 'textbox vide txtConPatient.Value = "" 'idem txtRdvAmAvant.Value = "" 'idem txtRdvHiaAvant.Value =...

Merci, J'avais pris en compte le format avec un bouton pour un calendrier afin de faciliter la saisie et surtout éviter les erreurs.

Merci, J'avais bien vue le problème, mais suite contact avec le responsable, pour lui la possibilité d'une non saisie doit être possible. Ce qui me semble pas logique ! Je pense partir sur un contrôle d'une date, si saisie les calculs se feront et sinon, un message de confirmation et je passe...

Merci, Aucun soucis pour le code, cela marche. J'ai juste fait les modifications par rapport au value des textbox. Le code: "Private Sub WriteRecord(ByVal RecordNumber As Long) Dim dateref1, dateRef2 As Date ' Declare variables. Dim IntervalType As String 'm pour ajouter des mois y pour...

bonjour, Merci pour la réponse rapide, je verrais cela demain car je dois partir. J'avais pris les mêmes formules avec une condition si la date est vide. =SI(ESTVIDE(L3);" ";MOIS.DECALER(L3;6)-1) représente M3 pour les autres calculs en -70 et -50 =SI(ESTVIDE(L3);" ";MOIS.DECALER(L3;3)+1)...

Bonjour à toutes et tous, J'ai un soucis car je n'arrive pas à résoudre un problème de calcul. J'ai une userform avec des Textbox, pour certaines modifiables et d'autres juste pour affichage de dates d'échéances. J'ai deux types de calcul: - un calcul par rapport à une date d'une Textbox...