Contenu récent par Rheeem

Le code de la page saisie n'a pas été copié (le raz ne fonctionne pas ) Pour me débarrasser de l'ancien code vba j'ai enregistré sous format xlsx (sans macros )puis j'ai ajouté les modules. Essaie cette nouvelle copie.

Essaie cette copie , j'ai retiré thisworkbook1 du projet vba je ne sais pas pourquoi il y a deux variables pour le classeurs

Essaie cet exemple Une partie des paramètres sont dans la page Config : la plage de la date à générer et la liste des congés des agents Dans la page planning tu peux placer les noms des agents , le champ décalage est pour ajuster les plages travail afin qu'elles correspondent a celles...

L'horaire renseigne l'heure du rdv et doit être entré sous ces formats: soit uniquement l 'heure pour faciliter la saisie ex 10 ou 15.. soit en format temps complète 10:00 ou 14:30 ..

Bonjour, Il y a des erreurs de syntaxe donc tes modifications rdv > "" en plus l' ajout d'une variable locale "jourj" qui masque le champ de la date du formulaire . Dans cette nouvelle version le bouton de validation va clignoter pour indiquer que l'enregistrement a eu lieu, cela pour...

Essaie ce code pour le bouton d'enregistrement Private Sub CommandButton1_Click() Dim pos As Long, NewHorr As Long Dim Heur As Long Dim j As Long If rdv = "" Then MsgBox "vous n'avez pas Renseigné le Motif du R.d.V." rdv.SetFocus Exit Sub ElseIf Not IsNumeric(horaire) Then MsgBox...

Voila comment appliquer le code sur la colonne A, pour lancer l'opération appeler ExtraireList Dans ce genre d'opération qui touche le traitement interne du texte il faut s'attendre que certains caractères ne s'affichent pas correctement car GetCharacterPlacement ne fait pas de substitution...

Regarde dans l'exemple suivant, en grande partie grâce Gemeni: Pour tester lance la macro ExtraireEtAfficherGlyphes Option Explicit Private Declare PtrSafe Function CreateFontW Lib "gdi32" (ByVal nHeight As Long, ByVal nWidth As Long, ByVal nEscapement As Long, ByVal nOrientation As Long, ByVal...

Alors tu peux utiliser une marco pour ouvrir l'objet en l'affectant à OnAction de cet objet Sub OpenOle() Dim o As OLEObject Set o = Me.OLEObjects(Application.Caller) o.Verb xlVerbPrimary 'ou o.Activate .. End Sub

En Excel 2021 il y a la formule LET qui permet d'éliminer les répétitions dans les instructions ainsi on peut récrire la formule précédente : =LET( nb_mois; DATEDIF(D5; $C$3; "M"); SI(nb_mois < 12;nb_mois & " mois";ARRONDI.INF((nb_mois + 3)/12; 0)) ) comme je n'ai pas cette version je...

Je pense que les ages inférieurs à un an doivent être affichés en mois ou juste les marquer < 1 si l'age exacte n'est pas nécessaire .

C'était juste pour le test et la lisibilité, dans la formule originale l'age inférieur à un an est calculé dans une autre formule : =SI(DATEDIF(D5;$C$3;"Y")>=1;ARRONDI.INF(DATEDIF(D5;$C$3;"M")/12+0,3;0);DATEDIF(D5;$C$3;"M")/12)

Dans ton exemple placer cette formule dans E5 =ARRONDI.INF(DATEDIF(D5;$C$3;"M")/12+0,3;0)

Bonjour, La formule Arrondi sera bien pour arrondir vers l'age le plus proche au dela de 0.5 (age en mois / 12 + 6 mois)on passe à l'age suivant, mais tu veux controler àpartir de quel mois l'arrondi aura lieu Essaie , l'arrondi se produit à 3 mois de l'age =ARRONDI.INF(AGE_EN_MOIS/12+0,3;0)

Parfait, le dernier code fonctionne correctement, J'ai trouvé qu'on peut convertir localement les coordonnés de la souris sans passer par GetCursorPos et MapWindowPoints pour simuler le clic: Dans la prochaine mise à jour changer le code MouseDown: hit.pt.X = X * AppDpi / 72 hit.pt.Y...