Contenu récent par youky(BJ)

  1. youky(BJ)

    XL 2010 Cumuler tant que

    Bonjour cp4, Do While Nombres <> "" 'au lieu de 0 Bruno
  2. youky(BJ)

    Microsoft 365 [VBA ou Formules] Déconcaténations multiples d'adresses postales dans plusieurs cellules

    Bonjour Ralph et tous, Voici de retour le fichier Macro sous le bouton rouge Bruno
  3. 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
  4. youky(BJ)

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

    Bon voici le nouveau code on prends le dernier chiffre de type? Bruno Private Sub Menu_Change() Dim k%, lig% OptionButton1 = False: OptionButton2 = False: OptionButton3 = False lig = Menu.ListIndex + 2 Controls("OptionButton" & Right(Feuil1.Cells(lig, 2), 1)) = True For k = 1...
  5. youky(BJ)

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

    Je ne peux regarder que ce soir Bruno
  6. youky(BJ)

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

    Bonjour Tubule, Voici le code bien modifié, j'ai pas regardé les autres macros Bruno Private Sub Menu_Change() Dim k% OptionButton1 = False: OptionButton2 = False: OptionButton3 = False Controls("OptionButton" & Menu.ListIndex + 1) = True For k = 1 To 4 Controls("TextBox" & k) =...
  7. youky(BJ)

    Autres Suppression du code d'une sheet

    Bonjour à tous, exemple pour supprimer le code de Feuil2 sheets à adapter ou à mettre en boucle Suivre les conseils aussi de Job75 sinon bug. Bruno Sub effacevba() 'exemple pour effacer code de Feuil2 With ThisWorkbook.VBProject.VBComponents("Feuil2").CodeModule For i = .CountOfLines To...
  8. youky(BJ)

    Résolu Changer code pour supprimer au lieu d'effacer ligne.

    Salut le motard, et au forum, A essayer car comme dit vgendron c'est l'un ou l'autre. Ceci supprime la ligne complète A remplacer For i = LBound(Stock) To UBound(Stock) par 'on part du bas et on remonte For i = UBound(Stock) To LBound(Stock) Step-1 et remplacer f1.Range(f1.Cells(i + 8...
  9. youky(BJ)

    XL 2019 Discussion à supprimer

    Bonjour Patrick, Voici un vieux fichier Emprunt avec formules Bruno
  10. youky(BJ)

    XL 2016 Menu en userform

    Pour répondre à Jcf Voici un fichier retrouvé qui va répondre à ta demande Voir en menu complément Bruno
  11. youky(BJ)

    XL 2016 Menu en userform

    Pour information mon menu a été réalisé en 1998 pour un site de billard au Canada A l'époque il était en menu flottant et avec les différentes versions il s'est retrouvé en onglet Complément (pas terrible) Je suis retombé sur ce menu et me suis dit tiens je vais le mettre sur un userform Chose...
  12. youky(BJ)

    XL 2016 Menu en userform

    Bonjour, Pour ceux que cela peut intéresser voici un fichier exemple Voici ce que cela donne en image Avec ce menu on peut se passer de bouton Les macros à exécuter sont dans OnAction Bruno
  13. youky(BJ)

    Résolu Microsoft 365 Liste déroulante dans Userform

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

    XL 2019 Liste des fenêtres ouvertes

    Salut bien, J'ai fais un classeur exemple Tout est indiqué à l'intérieur. Bruno
  15. youky(BJ)

    Il faut supprimer tout les unprotect et protect qui interfère sur le workbook_open

    Il faut supprimer tout les unprotect et protect qui interfère sur le workbook_open
Haut Bas