Résultats de la recherche

  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
  16. youky(BJ)

    Résolu Liste déroulante, macro et protection ...

    Fallait mettre le MP Voici le fichier non testé je sais pas ou cela buggait Bruno EDIT enlève de partout dans les codes ou tu ôtes et remets la protection
  17. youky(BJ)

    Résolu Liste déroulante, macro et protection ...

    Bonjour David, 2 solutions 1)soit mettre en début de macro feuil2.unprotect et en fin de macro Feuil2.protect "motpassesibesoin" Ceci sur toutes les macros qui change stock 2) en workbook_open ceci permet aux macros de modifier même si protègé voir codevba Private Sub Workbook_Open() With...
  18. youky(BJ)

    XL 2016 Problème avec VLOOKUP

    Bonjour Une façon de faire sans boucle Bruno Sub addition() MsgBox Application.SumIf([A:A], "pb2", [G:G]) 'ou "Pb2" dans ta macro c'est pas pareil End Sub
  19. youky(BJ)

    Résolu XL 2016 Comxboxlist + tri

    Quelques précisions. Dans la macro j'ai: With Feuil2 cela n'est pas le nom de l'onglet mais ce que l'on appel le codename ci dessous on vois le codename à gauche et à droite le nom donné à l'onglet Donc à adapter sur votre fichier. ICI on vois que l'onglet nommé Data est Feuil1 Même si on...
  20. youky(BJ)

    Résolu XL 2016 Comxboxlist + tri

    Bonjour Babie, Voici avec du vba Je pense être bon, Bruno
Haut Bas