Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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...
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...
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,
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...
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...
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
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 ...
Bonjour j'ai adapté le code suivant
Private Sub CommandButton31_Click()
Dim C As Workbook
Dim M As Worksheet
Dim compteur As Integer, derligne As Integer
Dim cellule As Range
Set C = ThisWorkbook
Set M = C.Worksheets("Materiels")
derligne = M.Range("A" & Rows.Count).End(xlUp).Row
For Each...
Merci Robert
Mais j'ai fais une erreur dans mon code de départ
Corriger
derligne = Worksheets("Materiels").Range("A" & Rows.Count).End(xlUp).Row
For Each cellule In Worksheets("Fiches").Range("A2:A" & derligne)
Pour lire
derligne = Worksheets("Materiels").Range("A" &...
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...
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...
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.