Épurer VBA sur application Excel

Résolu
Ricky38 -  
Bonjour à tous,

j'ai monté une petite application avec Excel et VBA et j'aimerais bien qu'un pro du VBA puisse épurer mon code. Je débute en VBA alors il y a surement des lacunes dans mon code.

De plus, lorsque je coche un checkbox il ajoute VRAI dans ma feuille et FAUX si elle n'est pas cochée. À la place j'aimerais avoir le caption ou le non du checkbox dans ma cellule.

https://www.cjoint.com/c/CDynhV1JFhT

Merci d'avance de votre aide



--
Tout problème a une solution...il faut juste être persévérant.

5 réponses

  • Votes
  • Date
  • Date décroissante
  1. Mike-31
    Re,

    j'ai jeté un oeil sur ton fichier, je le regarde dans le week end parce qu'il y a du boulot,
    en fait tu ouvres l'userform, tu saisis dans les différents activex et tu enregistres à la suite en cliquant sur nouveau
    ou tu reprends une ligne que tu modifies avec enregistrer
    c'est cela
    1. Ricky38 Auteur Contributeur
      Merci de prendre le temps,

      en fait je saisis et clique sur nouveau pour enregistrer à la suite à la prochaine ligne vide
  2. Mike-31
    Re,

    Oui ça j'ai vu mais le bouton enregistrer sert à quoi ou plutôt que veux tu faire
    1. Ricky38 Auteur Contributeur
      ahhh excuse moi, le bouton enregistrer ne servira probablement à rien pour le moment. C'est juste que quand j'ai monté le userform je l'ai ajouter en même temps que les autres.

      De toute façon je veux ajouter un code pour qu'à la fermeture du classeur il s'enregistre automatiquement.

      Merci encore
  3. Mike-31
    Re,

    lorsqu'une checkbox est cochée que veux tu afficher

    et dans le cas contraire que veux tu afficher
    1. Ricky38 Auteur Contributeur
      exemple de la checkbox Vierge:
      si elle est cochée j'aimerais voir apparaître Vierge et sinon laisser la cellule vide
      et même chose pour toutes les checkbox

      Merci
    2. Mike-31
      Ok sur l'envoi de mail j'ai posté le fichier anniversaires
    3. Ricky38 Auteur Contributeur
      ok merci bien, c'est super gentil
  4. Mike-31
    Re,

    teste ton userform voir si c'est ce que tu veux, pour l'afficher j'ai mis un bouton sur la feuille

    https://www.cjoint.com/?CDAtQjNMsJ1
    1. Ricky38 Auteur Contributeur
      Salut Mike,

      c'est parfait, la seule chose c'est que les checkbox contaminé et Floor Sweep semblent avoir un problème.
      Pour le reste tout fonctionne à merveilles
    2. Ricky38 Auteur Contributeur
      Salut Mike,

      ok tout est parfait,

      j'ai réglé le problème pour contaminé et Floor Sweep, c'était juste une erreur de colonne dans le code.

      Je suis assez fier de moi car je croyais que mon code était beaucoup moins beau que cela.
      À force de décortiquer, d'essayer et de comprendre des bouts de codes on va faire quelque chose avec moi hahahaha

      C'est vraiment gentil à toi, merci.
  6. Mike-31
    Re,
    L'erreur vient de moi, trop rapide et pas contrôlé, excuse
    Je vais regarder de plus près voir si on peut alléger le code, je n'ai regardé que tes checkboxs
    Après avoir ajouté une ligne, arrive t il que tu sois obligé de modifier des données sur une ligne
    A+
    Mike-31

    Une période d'échec est un moment rêvé pour semer les graines du savoir.