Résultats de la recherche

  1. L

    Définir le répertoire d'enregistrement

    Bonjour à tous, J'ai créé un programme qui génère un fichier et qui l'enregistre grâce à ce code : Sub Nommer_Extraction() Dim Chemin As String Application.ScreenUpdating = False Chemin = "C:\Enigmes/" With ActiveWorkbook .SaveAs Filename:=Chemin &...
  2. L

    renvoyer ok si une des mots d'une cellule est saisi dans une textbox

    Bonjour à tous, J'ai une userform avec une textbox et un bouton de validation. L'utilisateur saisi un mot dans la textbox et valide. Si ce qu'il a saisi correspond exactement au contenu de la la cellule de référence j'ai OK, sinon j'ai ERREUR par la formule classique suivante : If TextBox1 =...
  3. L

    Incrémenter une cellule en fonction du label dans lequel on click

    Bonjour à tous, J'ai une série de Label numéroté de 91 à 834 (autant vous dire un gros paquet) Je veux faire en sorte que lorsqu'on click dans l'un d'eux, la cellule Q1 de la feuille Accueil recoive le nom du label dans lequel j'ai cliqué. Pour l'instant je n'ai trouvé que cette solution ...
  4. L

    Modifier le niveau de sécurité des macros automatiquement

    Bonjour à tous, Comme le titre l'indique, je me demandais si il était possible de créer une macro qui définirait à l'ouverture d'un classeur le niveau de sécurité des macros sur le plus bas possible ? C'est vraiment au cas où car avec mon humble niveau de novice, je ne pense pas mais bon, on...
  5. L

    valeur renvoyée par OptionButton

    Bonjour à tous, J'ai une frame contenant 4 OptionButton. Lorsque je clique sur un d'entre eux, Vrai est renvoyé dans la cellule G3 et FAUX est renvoyé dans les cellules H3, I3 et J3. Ma première question est : est-il possible de renvoyer autre chose que VRAI et FAUX ( genre 1 ou 2) ? Ma...
  6. L

    Mettre le focus sur textBox1 en cliquant sur ListBox1

    Bonjour à tous, Tout est dans le titre. J'aimerais faire clignoter le curseur dans ma TextBox1 lorsque je clique sur ma ListBox1. J'ai essayé Private Sub ListBox1_Click() TextBox1.TabIndex = 0 End Sub mais rien de particulier ne se passe. Je pense que je ne maitrise pas cette fonction...
  7. L

    Probleme avec ClearContents

    Bonsoir à tous, En cliquant sur la ListBox1 de la userform RetourADQS, je cherche une ligne dans la feuil2 en fonction du contenu de la cellule de la colonne A qui doit être celui de sélectionné dans la ListBox1 Sub Chercher_Ligne() Application.ScreenUpdating = False...
  8. L

    macro pour envoyer un mail depuis excel par outlook

    Bonjour, J'ai la macro suivante pour envoyer un mail depuis excel par outlook. Sub SendEMail() Dim NouveauClasseur As Workbook Dim Destinataire As String Destinataire = "Mondestinataire@truc.fr" Dim Objetmessage As String Objetmessage = "Evénement constaté"...