Résultats de la recherche

  1. J

    XL 2010 Drag and Drop

    Merci pour cette réponse Je ne pense pas que ça va résoudre mon problème Je m'intéresse à Listview1 et au déplacement de la barre de défilement sur l'évènement Drag Over.
  2. J

    XL 2010 Drag and Drop

    Bonjour à tous Voilà plusieurs jours que je trouve pas de solution. Je voudrais que lorsque je fais un DragOver sur la ListView1 la barre de défilement verticale se déplace. Mais jusque là toutes mes tentatives échouent, si une âme charitable pouvait m'apporter une solution ça me permettrait de...
  3. J

    XL 2016 Comment replacer Internet explorer par EDGE?

    Bonjour Ceci fonctionne chez moi. Sub test() CreateObject("WScript.Shell").Run ("msedge.exe") End Sub
  4. J

    Microsoft 365 Désactiver temporairement l'impossibilité de renommer une feuille

    Bonjour Une proposition en utilisant Custom UI Editor ( logiciel gratuit) pour personnaliser le menu contextuel "Ply" A modifier si besoin.
  5. J

    Microsoft 365 Problème format date dans formule concatené

    Bonjour Job75 Vous avez parfaitement raison et c'est beaucoup plus simple.
  6. J

    Microsoft 365 Problème format date dans formule concatené

    bonjour Une proposition avec des SI imbriqués de janvier à mai, à continuer =SI(MOIS(B4)=1;NOMPROPRE("jan");SI(MOIS(B4)=2;NOMPROPRE("févr");SI(MOIS(B4)=3;NOMPROPRE("mars");SI(MOIS(B4)=4;NOMPROPRE("avr");SI(MOIS(B4)=5;NOMPROPRE("mai");"etc..."))))&"-"&ANNEE(B4)&"_Test")
  7. J

    Insérer une somme variable à chaque changement de jour pour calculer les heures totales par jour

    bonjour Effectivement, le calcul se fait par jour, alors que je le fais par semaine (mauvaise lecture du post #3) La macro corrigée est : Nous obtenons les mêmes résultats. PS : Sub Test paraît plus rapide. Sub Test() Dim i Dim DerniereLigne Dim Dic As Object DerniereLigne = Range("b" &...
  8. J

    Insérer une somme variable à chaque changement de jour pour calculer les heures totales par jour

    Bonjour Essayez la Sub Test() J'ai ajouté le numéro de semaine en colonne B de façon à utiliser la formule SOMME.SI.ENS(I:I;B:B;48) en colonne O A adapter si ça répond à votre attente.
  9. J

    XL 2016 fonction SI plusieurs conditions

    Bonjour Une autre solution avec des si imbriqués. Je lai fait pour 3 conditions.
  10. J

    Microsoft 365 Modification de lettre via une mise en forme conditionnelle

    Bonsoir Essayez avec RechercheV RECHERCHEV($F6;$B$15:$C$18;2;FAUX)
  11. J

    XL 2019 Remplacer des formules par une macro

    Bonjour J'ai regardé l'avancement mais je n'ai pas d'accès aux liaisons nous n'avons pas le même office donc je n'ai pas par exemple la fonction isoWeekNum Du coup, je ne peux guère tester et ne peut que donner mon impression. Les 2 macros sont très complexes et difficile à comprendre. Avec...
  12. J

    XL 2019 Remplacer des formules par une macro

    Je regarde sans pouvoir garantir une réponse immédiate.
  13. J

    XL 2019 Remplacer des formules par une macro

    Bonjour à tous, bonjour chich Si j'ai bien compris on voudrait remplacer les formules et les MFC par des macros. Travail fastidieux compte tenu de la complexité de certaines formules. Si je devais le faire voilà comment je m'y prendrai, sachant qu'il faudrait optimiser le code. Bon courage...
  14. J

    Microsoft 365 autoriser acces suivant nom de cellule

    Peut-être un peut trop rapide… Mais voici une proposition. Le code est normalement bien commenté. Dans l'exemple je mets mon Username "jmand" en D4 S'agissant d'un fichier partagé, il faudrait un "Administeur" pour pouvoir afficher toutes les colonnes en cas de besoin. voir Sub AfficheColonnes()...
  15. J

    Microsoft 365 autoriser acces suivant nom de cellule

    J'ai oublié Comme le fichier a plusieurs utilisateurs, sera t'il en mode partagé ? Sinon il sera en lecture seule s'il est déjà ouvert par quelqu'un.
  16. J

    Microsoft 365 autoriser acces suivant nom de cellule

    Bonjour A mon niveau, je ne vois pas d'autre solution qu'en passant par du code VBA. Etes-vous partant ?
  17. J

    Microsoft 365 Afficher la photo d'un produit dans un UserForm

    Re bonjour En omettant option explicit en début de module vous ne verrez pas si les variables sont bien déclarées. et vous ne verrez pas les erreurs potentielles. Dans les autres modules du fichier, j'ai bien vu option explicit en début de chaque module. Il est vraiment préconisé de mettre...
  18. J

    Microsoft 365 Afficher la photo d'un produit dans un UserForm

    Bonjour Dans Private Sub Liste_Produits_Click() ajoutez et essayez ceci Dim Fichier Fichier = Me.CheminPhoto.Text Me.Image1.Picture = LoadPicture(Fichier) PS : dans le module du Userform vous avez omis Option Explicit
  19. J

    XL 2013 les contrôles déplaçables dans un frames dans un userform

    Bonjour Si ça peut aider ? les 3 petits boutons restent alignés. Ma proposition n'est pas des meilleures et je suis curieux de voir la suite. Bonne journée, Option Explicit Public WithEvents bouton As msforms.Label '*********************************************** Private Sub...
  20. J

    XL 2010 Application.Dialogs pour graphiques

    Bonjour Voici une partie du projet. J'utilise un module de classe pour les évènements des graphiques L'objectif étant de limiter les actions d'un utilisateur sur les graphiques Pour ce faire j'ai personnalisé le ruban avec CUSTOM UI pour ne plus faire apparaître les outils de graphique et mis en...