Résultats de la recherche

  1. Nico_J

    XL 2021 Comment lister mardi et mercredi d'une année VBA

    Bonjour à tous, Comment lister les mardi et les mercredi d'une année en VBA Merci d'avance
  2. Nico_J

    XL 2016 Position userform dans coin supérieur gauche de cellule 2016 et+

    Bonjours tout le monde, Je me permets de ressortir un sujet qui revient assez souvent mais sans vraiment coller pour chacun. Le placement d'un userform dans le coin supérieur gauche d'une cellule sélectée. Depuis 2017, avec Patrick on a travaillé sur le sujet un bon moment sans réel succès...
  3. Nico_J

    XL 2021 Doublons, Colorer partie de ligne en fonction de valeur dans colonne défini

    Bonjour les amis, je coince sur la création d'un code, j'ai trouvé un code me permettant de trouver les doublons dans une colonne en les colorant, mais j'aimerai pouvoir colorer la ligne entière de "H" à "U" Voici le code que j'ai actuellement ainsi qu'une image pour visualiser le concept en...
  4. Nico_J

    XL 2016 Optimisation code agenda

    Bonjour à tous, je suis en train de créer un agenda automatique, et aimerai vos différents avis pour optimiser le code, parce que j'avoue, ça pas top top je trouve mais ça marche. merci Sub Test() Agenda 2020, 12 'année puis mois End Sub Function Agenda(année, Mois) Dim I As Long, col As...
  5. Nico_J

    XL 2016 Décaler groupe cellule (boucle)

    Bonjour à tous, je plante sur un petit bout de code, je cherche à décaler des valeurs de N-1 à N-2 et ainsi de suite, pour pouvoir y inserrer les nouvelles, j'ai fait ce code si dessous mais non je joint egalement un apercu pour mieux comprendre Sub cloture_TEST() Dim i As Integer, j As...
  6. Nico_J

    XL 2016 WebBrowser qui disparait dans MultiPage

    bonjour à tous, Je me trouve face à un petit problème, dès que je navigue dans le multipage, le webbrowser dans historique clients disparait. Je suis dans gestion clients selectionne mon client et je vais sur historique clients, ça match mais si je retourne dans gestion clients et retourne dans...
  7. Nico_J

    XL 2016 Adaptation Private Sub Worksheet_Change

    Bonjour à tous, j'ai un petit souci, je n'arrive pas à adapter un code dans Private Sub Worksheet_Change Sub SommeTextCouleurRouge() Set PlageTest = Range("A1:B15") For Each Cell In PlageTest If Cell.Interior.ColorIndex = 3 Then total = total + Cell.Value End If...