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,
Dans un UserForm je récupère les Items sélectionnés dans une variable Array, ensuite je souhaiterai avec cette variable faire un filtre automatique sur un tableau structuré.
Avec un Array en dur ça fonctionne :
Range("Tableau1").AutoFilter Field:=1 'supprime le filtre
Dim Tabl()...
J'ai trouvé une discussion sur ce forum concernant ce sujet.
Le code d'Hervé XLDnaute Barbatruc fonctionne bien sauf que les données dans le ComboBox sont juxtaposées et non pas alignées.
Voici mon code légèrement modifié :
Private Sub UserForm_Initialize()
Dim Coll As New Collection
Dim Cellule...
Bonjour,
J'ai un tableau constitué de 2 colonnes qui alimente une liste déroulante intuitive d'un combobox.
Dans la colonne 1 le code produit est au format 000 & la colonne 2 contient le nom du produit.
Voici mon code :
Private Sub UserForm_Initialize()
Set f = Sheets("BD2")
ComboBox1.List =...
Bonsoir.
Je sollicite votre aide pour un petit souci que je rencontre lors d'un filtre entre 2 dates avec un formulaire qui contient 2 TextBox le premier pour la date de début et le second pour la date de fin.
Voici mon code mais il ne filtre rien :
Private Sub CommandButton1_Click()
If...
Bonjour, :D
Suite à une discussion sur ce forum :
- Première question comment trier une liste sans doublons dans le ComboBox lorsqu'une ou plusieurs lettres sont saisies dans la TextBox.
- Deuxième question comment alimenter la ComboBox avec les données triées et sans doublons d'un classeur...
Bonjour à tous,
Je n'arrive pas à trier un Treeview en activant Sorted à True et je n'ai pas trouvé de réponse à ce problème.
Avez-vous une solution.
Merci d'avance pour vos réponses.
Bonjour,:D
Comment déclencher un évènement au clic sur une image dans un WebBrowser comportant plusieurs images.
Est-ce possible ?
Option Explicit
'activer la reference Microsoft Html Object Library
Dim WithEvents maPageHtml As HTMLDocument
Private Sub userForm_Initialize()...
Bonjour,
Après avoir créé une discussion sur ce forum qui a été résolue, je reviens vers vous pour un petit problème que je n’arrive pas à résoudre.
Sur le fichier ci-joint tout fonctionne lorsque les premières lettres sont saisies dans le TexteBox, la Listbox affiche tous les noms triés...
Bonjour. :D
Je fais appel à vous, car je ne suis pas arrivé à résoudre mon problème.
En admettant qu’un Useform contient 1 Combobox et 1 TextBox.
C’est évident d’utiliser les évènements 'Enter' et 'Exit'.
Private Sub ComboBox1_Enter()
ComboBox1.BackColor = &H80FFFF
End Sub
Private...
Bonsoir à tous.
Comment avoir 2 colonne dans une listes déroulante intuitive en faisant le tri sur la colonne 1.
Je me suis inspiré de l'excellent site de BOISGONTIER, j'arrive à récupérer les items de la première colonne et à la trier, mais je bloque pour la deuxième colonne.
Pourrie-vous...
Bonjour à tous. ☼:cool:
Je vous sollicite encore car à l'utilisation de la commande SendKeys "%{DOWN}"pour dérouler automatiquement une liste déroulante lorsque la cellule concernée est sélectionnée fonctionne, sauf qu'à chaque clic ça verrouille ou déverrouille le pavé numérique…
J'ai...
Bonjour à tous. :D:confused:
Petit souci avec un Popup que se ferme pas.
CreateObject("Wscript.shell").popUP "Ce message se fermera dans 3 secondes", 3, "Titre de la fenêtre", 64
Quelle est l'astuce ?
Merci d'avance pour votre réponse. ☼
Bonjour.
Je vous sollicite encore une fois, car je suis bloquer.
Sur le site de BOISGONTIER j'ai trouvé une macro que j'ai adaptée (voir pièce jointe).
Elle fonctionne bien, sauf si deux nom sont identique et le n° dossier différent.
Malgré mes recherches sur les forums je n'ai pas trouvé de...
Bonsoir.:D
Je dois réaliser une petite base de données sur Excel pour une association, cette application doit permettre sans connaissances particulières d’ajouter des champs dans la feuille BDD et dans la feuille qui sert de formulaire de création, consultation, modification et suppression...
Bonjour.:)
Malgré plusieurs recherches sur les forums je n’ai pas trouvé de solution.
Si j’utilise l'instruction Name :
Name "C:\Mes documents\Jurassic Park.pdf" As "C:\Mes documents\Jurassic Park - Copie.pdf"
Dans ce cas pas soucis.
Par contre si j’utilise des variables :
Dim...
Bonjour à tous. :D
Dans un userform qui contient une listbox dont la source est alimentée à l’ouverture par autre classeur et un bouton de commande qui permet sur l’évènement clic de passer la listbox en multi sélection.
L’évènement double clic sert à supprimer les items sélectionnés dans la...
Bonjour le forum. :)
Pour remplir une ComboBox en fonction des données en colonne A j’ai trouvé ce code sur un autre forum :
Private Sub UserForm_Initialize()
Dim C As Range
Dim tablo()
Dim i As Integer, j As Integer
Dim temp As String
Dim present As Boolean
ReDim tablo(1 To 1)
tablo(1) =...
Bonsoir à tous:)
Dans un Userform, un CommandButton permet de copier la valeur des ComboBox dans la feuille d’un autre classeur destination et le sauvegarde.
Cela fonctionne bien.
Mais à la nouvelle ouverture du classeur destination, le message suivant s'affiche : "Excel a rencontré un...
Bonjour
J’utilise dans un Userform un contrôle AcroPDF, à l’ouverture du classeur voici le message qui s’affiche :
« Cette application est sur le point d’initialiser les contrôles ActiviX partiellement non sûrs.
Si la source de fichiers est fiables, cliquer sur ok pour que les contrôles soient...
Bonjour à tous. :)
Comment extraire les caractères « I:\DOSSIERS ADHÉRENTS\Adhérents contrats » de la chaîne
« I:\DOSSIERS ADHÉRENTS\Adhérents contrats\DUMONT Pierre\Projets\Avant projets\DUMONT Pierre AP 1.0 du 18-12-12 »
J’ai essayé :
Sub extraire()
Dim NomAdhérent As String
NomAdhérent =...
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.