Contenu récent par Legendre

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...

Merci à vous

Merci

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...

Merci pour vos analyses Bon week end Jacques

Merci

A priori l'instruction " Application.DisplayAlerts " n'est pas concernée dans ce bug. Présente ou pas la création et suppression d'un répertoire fonctionne. Seule la suppression du répertoire avec du contenu n'est pas fonctionnelle (le répertoire ne peut être supprimé) Jacques

Bonjour, Pas mal l'humour, mais quel code fonctionnel?

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...

Merci à vous, mon problème est résolu en rajoutant la ligne de code suivante 'Rechargement du formulaire Me.Repaint Encore merci

Bonjour Pour afficher l'image et la modifier avec une légende sous paint

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...

Merci je n'y avais pas pensé

Bonjour Problème résolu avec la solution de job 75

Bonjour Mon problème est résolu avec la solution de job75 Code suivant : MsgBox "Nombre de Matériels : " & Application.Subtotal(3, Range("A2:A" & Rows.Count)) Merci à vous c'est plaisant quand cela fonctionne