Résultats de la recherche

  1. L

    Microsoft 365 Afficher le resultat d'un Combobox1 (Userform1) dans Combobox2 (Userform2)

    Bonjour, J'ai créé un (Userform1) avec un ComboBox1 et un (Userform2) avec un ComboBox4 Le Combobox4 (Userform2) fait référence à la liste déroulante du (Userform1) Combobox1 Mon souhait est le suivant : Lorsque je double clic sur le nom "X1" contenu dans le Combobox4 (Userform2), le...
  2. L

    Microsoft 365 Compter et afficher un numéro correspondant à un filtre sélectionné

    Bonjour, Je souhaiterai compter le nombre de modes (Nombre de lignes de ma feuille Excel) puis sélectionner les chiffres entre 40000 et 49999 (inclus) La macro doit également pouvoir m'afficher le numéro commençant par 4 le plus élevé afin de pouvoir incrémenter la numérotation dans un combobox...
  3. L

    Supprimer tous les contenus d'un répertoire créé sous VBA

    Bonjour, Je souhaite supprimer un répertoire et son contenu (plusieurs dossiers avec diverses extensions). Ce répertoire a été initialement créé en renseignant "oui" dans le ComboBox31 et doit être supprimé en remplaçant "oui" par "non"; Cependant, ce code fonctionne partiellement quand il n'y...
  4. L

    Problème pour afficher une image liée à un Combobox (Liste déroulante) dans un formulaire

    Bonjour, Dans un Userform1 j'ai une liste déroulante liée au ComboBox1 qui me permet d'afficher l'Image1 elle même liée au nom correspondant au Combobox1. Un code appelé (Code1) me permet d'ouvrir l'image1 lorsque je clic sur Image1. Mon problème est le suivant : Quand je clique sur Image1 puis...
  5. L

    Afficher le ou les fichiers liés à un nom dans un Combobox

    Bonjour Je souhaite afficher un fichier .doc ou .docx ou .pdf lié au nom du Combobox Je précise que le nom du ou des fichiers liés porte le même nom que celui du ComboBox Mon code est le suivant ...
  6. L

    Compter les lignes dans une feuille en présence de filtres activés - Compter le nombre de lignes sélectionnées

    Bonjour Je souhaite compter les lignes de ma feuille (onglet) Pour ce faire j'ai le code suivant (Sans filtres activés) ----------------------------------------------------------------------------------------- Private Sub CommandButton23_Click() If ActiveWorkbook.Name <> ThisWorkbook.Name Then...
  7. L

    Microsoft 365 Ouverture d'une vidéo (mp4) avec VLC - Ouvrir ou Annuler la vidéo

    Bonjour J'ai un code qui me permet d’accéder à l'ouverture d'une vidéo au format MP4 avec VLC. Le code est le suivant: ------------------------------------------------------------------------------------- Private Sub CommandButton13_Click() 'Bouton "VIDEO" 'Aller ouvrir l'image sélectionner avec...
  8. L

    Déplacer le curseur sur la ligne suvante et rester sur la dernière ligne contenant des données

    Bonjour Afin de me déplacer sur la ligne suivante de haut en bas j'ai copié et amélioré le code suivant : --------------------------------------------------------------------------------------------- Private Sub CommandButton4_Click() 'Bouton ligne suivante dans la liste déroulante 'MsgBox...
  9. L

    Utiliser un formulaire lorsque deux fichiers "excel" sont ouverts

    Bonjour à tous J'ai créé un formulaire lié à un fichier excel (.xlsm) A. Ce formulaire me permet de modifier, créer ou supprimer des données. Je travaille sur ce formulaire en parallèle d'un deuxième fichier Excel B ouvert que je consulte en même temps à l'écran. Le problème est le suivant ...
  10. L

    Accès au formulaire d'un fichier Excel ouvert avec un deuxième fichier excel ouvert

    Bonjour à tous J'ai créé un formulaire lié à un fichier excel (.xlsm) A. Ce formulaire me permet de modifier, créer ou supprimer des données. Je travaille sur ce formulaire en parallèle d'un deuxième fichier Excel B ouvert que je consulte en même temps à l'écran. Le problème est le suivant ...
  11. L

    Autres Inserer une formule a base de LOG dans un TextBox

    Bonjour à tous, Je souhaiterais appliquer la formule ci-dessous en en double cliquant sur le Textbox 20 =10*(LOG10(Y2*1000000))+Z2 Y2=TextBox5 Z2=TextBox6 TextBox20 est le résultat de la la formule. Mon code de débutant est le suivant: Private Sub TextBox20_DblClick(ByVal Cancel As...