Solutions authored by youky(BJ)

  1. youky(BJ)

    Résolu XL 2013 Formulaire avec boutons d'option qui se met à jour tout seul

    Bonjour tous, Pour le fun j'ai un peu revu toutes les macros. Plus que 2 textbox Bruno
  2. youky(BJ)

    Résolu Microsoft 365 Liste déroulante dans Userform

    Bonjour, Voici un exemple Bruno Oups! un peu tard
  3. youky(BJ)

    Résolu XL 2016 Comxboxlist + tri

    Bonjour Babie, Voici avec du vba Je pense être bon, Bruno
  4. youky(BJ)

    Résolu XL 2019 Renommer automatiquement les onglets

    Bonjour Alinco, Je remets le fichier en plus je l'ai amélioré pour ôter les formules Ce fichier n'ai pas en lecture seul Bruno
  5. youky(BJ)

    Résolu XL 2013 Un petit coup de pouce pour finaliser mon projet

    Est-ce bon de me demander, il suffit de tester et en plus tu as tout compris. N'ai pas peur de bidouiller pour arriver à tes fins Ne pas avoir peur d'aller en bug j'ai surement dépassé plusieurs centaines de millier. Fait des copies du fichier au besoin Ici tu vois j'ai mis un point d'arrêt...
  6. youky(BJ)

    Résolu XL 2013 Aide sur création d'une ListBox

    Le code pour effacer le dernier N° est . . . ListBox1.RemoveItem (0) Bruno
  7. youky(BJ)

    Résolu XL 2013 Aide sur création d'une ListBox

    Une autre façon donc, Bruno
  8. youky(BJ)

    Résolu XL 2013 Créer un fichier Text à partir d'un Commandbutton sur Userform

    Petite modif Le on error était pas pris en compte Bruno Private Sub CommandButton1_Click() Dim myApplication As Object On Error GoTo MyErreur Set myApplication = CreateObject("Shell.Application") chemfich = ThisWorkbook.Path & "\mesjeux1.txt" myApplication.Open (chemfich) Set...
  9. youky(BJ)

    Résolu XL 2013 Userform/Masquer/Afficher la feuille donnée et garder les deux userform apparents

    Bonjour tous J'ai pas bien trouvé le bouton qui buggait. J'ai refait vite fait tes 2 user ne pas les renommer ca sert à rien Cela à suffit pour que tout refonctionne. Bruno
  10. youky(BJ)

    Résolu XL 2019 svp aider moi; message alerte rupture de stock et enregistrer sous

    Hello tous J'ai du mal à suivre . . . Enregistrer 1er page . . . en principe on n'envoie pas un fichier Excel mais un PDF Chose qui est réalisée dans mon bouton rouge sur Bon de Commande Attention enregistrer le fichier avant de cliquer sur le bouton rouge car le PDF est enregistré dans le même...
  11. youky(BJ)

    Résolu XL 2019 svp aider moi; message alerte rupture de stock et enregistrer sous

    Bonjour encore à tous, La macro mets en plus le prix et le montant et vérifie la Qte dispo Bruno Private Sub Worksheet_Change(ByVal Target As Range) Dim lig, col, n If Target.Count > 1 Then Exit Sub If Not Intersect(Range(Target.Address), Range("C24:C36")) Is Nothing Then lig = Target.Row If...
  12. youky(BJ)

    Résolu Microsoft 365 Eviter un message d'erreur renvoyant vers mon code vba

    Bonjour Landry, Essayez d'incorporer une gestion d'erreur comme ceci. Non testé . . . Bruno On Error Resume Next objHTTP.Open "GET", URL, False objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" objHTTP.setRequestHeader "Content-type"...
  13. youky(BJ)

    Résolu XL 2016 Macro VBA - Envoi mail automatique selon plusieurs échéances

    Bonjour Le mieux est de créer une colonne supplémentaire pour y mettre la 2ème adresse(même masquée) Voici un code qui si la diff est plus grande de 0 don 7 ou 15 on prend l'adresse en col J sinon en col H Bruno Sub EnvoiMail() Dim OutApp As Object Dim OutMail As Object For lig = 2 To...
  14. youky(BJ)

    Résolu Microsoft 365 userform msgbox + empecher ouverture par un autre utilisateur si déjà ouvert

    Bonjour ceci à mettre en Workbook et open Bruno Private Sub Workbook_Open() If ActiveWorkbook.ReadOnly Then MsgBox "Fichier déja ouvert ! Réessayer dans 2 minutes" ActiveWorkbook.Close (False) End If End Sub
  15. youky(BJ)

    Résolu XL 2016 liste déroulante en cascade dans un userform

    Bonjour J'ai réduit la taille de l'user car dépassait de mon écran. Utilise le zoom en fonction de la taille de l'écran ainsi de la hauteur et largeur Attention si tu le mets sur d'autres ordi. J'ai renommé les combobox CBB avec un N° Beaucoup plus facile avec une boucle on fait tout. exemple...
Haut Bas