Contenu récent par un internaute

  1. U

    Autres [RÉSOLU] Peut-on arriver à "schunter" la difficulté que j'ai crée moi-même?

    Bonjour le forum Je voudrais mettre en double click la macro ci-dessous Mais où? Cordialement Merci pour vos éventuels retours? Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Range("H3:H500"), Target) Is Nothing Then UsfInfos.Show 0 End If End Sub
  2. U

    Autres [RÉSOLU] Mettre en format personnalisé h:mm

    J'ai fait Merci à tous Cordialement
  3. U

    Autres [RÉSOLU] Mettre en format personnalisé h:mm

    Bonjour gosselien Super merci à toi Je mets le programme en entier Tu fais stp le 2ème onglet (somme 28:02) le reste je m'en occupe
  4. U

    Autres [RÉSOLU] Peut-on arriver à "schunter" la difficulté que j'ai crée moi-même?

    Mis ça dans ThisWorkbook Ça fonctionne Vous cassez pas la tête les "amis"!! Merci à vous tous Cordialement '***************************************************************************** If (Target <> "" And Not IsError(Application.Match(CSng(Date), Columns("G"), 0))) Or Target <>...
  5. U

    Autres [RÉSOLU] Peut-on arriver à "schunter" la difficulté que j'ai crée moi-même?

    Bonjour à tous et merci pour vos contributions mais trop difficile pour moi J'ai encore modifié le programme pour avoir des R.V le même jour car ce n'était pas prévu Le seul truc c'est supprimer une ligne
  6. U

    Autres [RÉSOLU] Mettre en format personnalisé h:mm

    Bonjour le forum Je n'arrive pas à mettre le résultat 2h25mm Punaise c'est simple pourtant Merci à vous
  7. U

    Autres [RÉSOLU] Peut-on arriver à "schunter" la difficulté que j'ai crée moi-même?

    Ça se passe ici suivant que j'inverse ces 2 lignes en commentaires ou non Si je met la 2ème en non commentaires je ne peux plus afficher la date du jour Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) DerLig = Range("A" & Rows.Count).End(xlUp).Row If...
  8. U

    Autres [RÉSOLU] Peut-on arriver à "schunter" la difficulté que j'ai crée moi-même?

    Bonjour sylvanu Et pourtant... Si je veux inscrire la date du jour je double click sur cellule A4 ça affiche Samedi 04 Octobre 2025 ainsi que dans colonne G J'enregistre tout va bien Si je veux modifier la date toujours cellule A4 je tape par exemple 02/02/2026 ça affiche bien ainsi que dans...
  9. U

    Autres [RÉSOLU] Peut-on arriver à "schunter" la difficulté que j'ai crée moi-même?

    Je m'excuse encore si c'est possible Peut-on faire afficher la date G sous le format affiché au lieu de la taper J'ai fait J'ai bricolé quelque chose mais pour effacer la date du 11 Février 2026 (exemple) il faut double cliquer 2 fois cellule A4 pour revenir à la date du jour puis ça efface la...
  10. U

    Autres [RÉSOLU] Peut-on arriver à "schunter" la difficulté que j'ai crée moi-même?

    Re SUPER J'aurais du le voir moi pas attentif du tout... ah! la vieillesse et la maladie SUPER un GRAND merci à toi Bonne fin de soirée
  11. U

    Autres [RÉSOLU] Peut-on arriver à "schunter" la difficulté que j'ai crée moi-même?

    Bonjour sylvanu Tu as bien compris la demande c'est exactement ça Mais pourquoi Mardi 03 Nov 2026 au lieu de Novembre
  12. U

    Autres [RÉSOLU] Peut-on arriver à "schunter" la difficulté que j'ai crée moi-même?

    Bonjour le forum Il y a des années que j'ai voulu faire afficher la père lettre en Majuscule des dates colonne A Ça fonctionne bien quand c'est la date du jour mais quand j'anticipe un futur R.V par exemple 02/02/2026 Tout d'abord il faut que la date colonne G soit la même donc je fait un double...
  13. U

    Autres Quelques fois ça bug feuilles cachées

    Toutes mes excuses Confondu Nom de répertoire et de fichier Bonne journée
  14. U

    Autres Quelques fois ça bug feuilles cachées

    Bonjour le forum Dans la macro ci-dessous ça bug mais pas toujours sur cette ligne Sheets(1).Select 'Mettre Sheets(1).Select à cet endroit sinon il passe en revue toutes les feuilles Je suis obligé d'aller dans format afficher feuille et les faire afficher Auriez-vous svp...
  15. U

    Autres je n'arrive pas à récupérer mon userform pour l'afficher

    C'est celui de la feuille qu'il faut activer et ça fonctionne Merci sylvanu Bonne journée Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Range("C3:C500"), Target) Is Nothing Then UsfInfos.Show 0 End If End Sub
Retour