Résultats pour "combobox multiselection"

1'186 résultats pour cette recherche

Bonjour,

Je souhaiterai que quand je choisi la classe dans la zone de liste (ComboBox1), je télécharge le contenu de la feuille classe 1 en mettant les noms dans la zone de liste Nom et les prénoms dans la zone de liste Prénom et la colonne note dans la zone de liste Note.

Toutefois le listStyle de la zone de liste « Note » est sur listOption pour pouvoir cocher et décocher les noms des élèves pour calculer la moyenne des élevés que j’ai sélectionné. Et la propriété MultiSelect est activé pour pouvoir sélectionner plusieurs à la fois.

Le txtMoyenne calcule la moyenne des notes selectionner.

Merci beaucoup pour votre aide. Toutes les idées sont les bienvenus.

Je reste à l'écoute

Bonjour à tous,

Je cherche à faire un truc tout simple ... mais je ne trouve pas et j'ai besoin de vos lumières.

Je voudrais pouvoir sélectionner/cocher plusieurs personnes dans une même cellule depuis une liste prédéfinie.

Vous trouverez en fichier joint un exemple avec un onglet correspondant à la liste de personnes, et un onglet missions ou je voudrais pouvoir sélectionner une/des personnes de la liste du 1er onglet pour chacune des missions.

L'idéal serait qu'une fois une personne sélectionnée, que je ne puisse par la sélectionner à nouveau (ils ne peuvent être que sur une mission à la fois)

Merci beaucoup pour votre aide sur le sujet, n'hésitez pas si vous avez besoin d'info complémentaire.

Cordialement,

Sébastien

Bonjour le Forum,

Je tourne en rond depuis deux jours pour essayer de récuperer les valeurs multi sélectionnées de ma listbox.

Actuellement ma listebox contient deux colonnes et je dois récupère facilement la valeur sélectionnée que je copie en colonne 8.

.Cells(i, 8).Value = ListBox1.Column(0)

Mais dès que j'active la multisélection impossible de récupérer une valeur.

Dans l'idée j'aimerai pouvoir sélectionner plusieurs valeur de la listebox et les copie en colonne 8 avec un symbole de séparation ( , / _....) ou un retours chariot par exemple.

Si vous avez des idées pour réaliser ceci, ou des explications car j'ai du les louper .....

Merci à ceux qui prendront le temps de me lire,

8nc.xlsm (47.45 Ko)

Bonsoir à vous

Après plusieurs essais sans succès, je reviens vers vous pour une aide concernant une macro pour une LISTBOX MULTISELECT de mise à jour.

Tous les détails explicatifs sont sur le fichier ci-attaché.

Je vous remercie d'avance du temps que vous apportez à mon aide.

Bonne soirée

14modele-02.xlsm (29.30 Ko)

Hello,

Je suis bloque dans mon projet VBA sur mon userform

Je vous explique :

-Ma feuille excel est constituee d'un tableau de valeurs situees en A2:X400 (la ligne A1:X1 ne servant qu'aux titres de mes colonnes.)

  • A partir de la colonne B2 se situe une liste de noms par exemple "ERIC' en B2, "Mathilde" en B3 etc....
  • Les colonnes C jusqu'a W sont constituees de valeurs Numeriques
  • Enfin la colonnes X a pour but de recevoir le resultat d'un calcul entre les differentes colonnes precendente par exemple : X.cells(I).Value = D.cells(I).value * G.cells(I).value
  • J'ai definis l'ensemble des cellules contenues dans chacunes des colonnes par des variables de type range comme ceci:

Dim B,C,D,E,.......,X, as Range

Set B = Worksheets("Shee1").Range("B2:B400")

....... Set X = Worksheets("Shee1").Range("X2:X400")

  • J'ai creer un USERFORM avec une list box et un bouton de commande
  • A son lancement le USERFORM genere l'ensemble des noms situe en colonne B dans l'objet listbox en supprimant les doublons de la liste

Ce que je souhaite desormais c'est que lorsque l'utilisateur selectionne un ou plusieurs noms dans la liste Box puis clique sur le bouton de commande OK alors le calcul suivant s'effectue en colonne X ( par exemple : X.cells(I).Value = D.cells(I).value * G.cells(I).value / 100) et ce uniquement pour les valeurs selectionnes dans la listbox et pour chaque ligne correspondantes.

( exemple si ERIC et Mathilde sont selectionnes dans la listbox alors le calcul s'effectura en colonnes X pour chaques lignes ou ERIC et MATHILDE sont contenues en colonne B)

Pouvez vous m'aider a faire cette derniere partie du code svp.

Ps: desole je sais que ca serait bcp plus simple avec le projet mais pour des raisons de confidentialit eje ne peux pas le partager.

Bonjour j'essaie d'adapter un programme excel à mes besoins.

J'aimerais pouvoir faire une mutisélection dans une listbox de userform.

J'ai essayer beaucoup de choses avant de faire appel à vous mais la je n'ai plus le choix.

ci joint le document ... pour l'exemple avec le bouton "DONNÉES" on ne peut que sélectionner qu'une chose à la fois ..

et même si dans les propriétés de la listbox on mets le multisélection(multi ou extented) ca ne fonctionne pas ..

Bonjour, je suis en train d'essayer de modifier un code déjà existant.

Ce que je veux faire c'est que dans une listbox je veux pouvoir faire une multisélection puis la valider.

Le problême c'est qu'au départ le script n'était pas concu ainsi ... je ne suis pas un expert en VBA et je ne veux pas tout faire exploser.

dans les options de la liste box j'ai mis:

multiselect: -1 fm multiselectmulti mais quand j'essaye de valider ca ne fonctionne pas

c'est pour le Userform11 -----> listbox1

Bonjour,

C'est la première fois que je post sur ce forum.

J’ai adapté une partie du code trouvé sur ce forum, dans le fichier ci-joint, je souhaiterai envoyer dans la cellule B2 les noms sélectionnés dans la ListBox de de la feuille, pour les multi sélections les noms devront être espacés d'un point-virgule.

Petit souci à l’ouverture du fichier au premier clic sur la ListBox ça bug.

Comment contourner ce problème.

Merci d’avance pour votre aide.

Bonjour , dans le fichier ci-joint , je souhaiterai envoyer dans la colonne Nom de la feuille Base , les noms sélectionnés dans la listbox de l'userform , pour les multisélections les noms devront etre espacés d'un point virgule.

merci de votre expertise

Bonjour à tous,

Dans mon projet j'ai installé une ListBox à 6 colonnes et à multiselection.

Je voudrai savoir si il y aurai un code pour qu'à chaque sélection elle s'inscrit dans une feuille nommées "Données"

Merci d'avance de votre aide

En vous souhaitant une bonne et heureuse année pour 2014

@+

Amicalement

Noel

bonjour à tous!!

vous les pros vous allez surement trouver que ma question relève du b.a.ba mais le fait est que je suis en première section de maternelle pour le vba!! alors désolée par avance..

voici mon souci:

je crée un userform type formulaire qui permet de remplir une première feuille FORMULAIRE qui est la version a imprimer à terme du userform, chaque info du userform à une cellule cible définie et fixe sur cette feuille

et une feuille BASE DE DONNEE qui est ... ben euh... la base de donnée récapitulative où par contre les info se stockent par ligne les unes au dessous des autres au fur et à mesure. le USF contient des combobox des list box et des text box

concernant une list box à selection multiple (nommée Lb_Responsable), je n'arrive pas à envoyer les résultats choisis dans la cellule D13 du feuillet FORMULAIRE et dans la colonne G ligne après ligne dans le feuillet BASE DE DONNEE

et si en plus ces résultats étaient séparés par un point virgule ce serait Bizance.

voici le code associé à une sub du commandbutton "enregistrer" que j'ai piqué et bricolé mais qui ne fonctionne pas:

Dim I As Integer, y As Integer

With Me.Lb_Responsable

For I = 0 To .ListCount - 10

If .Selected(I) = True Then

Sheets("BASE_DE_DONNEE").Range("G" & Maligne).Value = .List(I)

Sheets("FORMULAIRE").Range("D13").Value = .List(I)

End If

Next I

End With

je vous envoie un fichier pour vous clarifier tout ça

merci encore pour tous ceux qui prendront même un petit peu de temps pour m'aider

à bientôt

82pour-forum.xlsm (65.79 Ko)

Bonjour à tous,

Actuellement, mon UserForm dispose d'une zone de liste, cet zone de liste puise sa source de données dans une plage de cellule que j'ai nommer : "Liste". Il est possible de selectionner plusieurs champs dans ma zone de liste.

J'ai fait un bouton, dans lequel on peut trouver le code suivant :

Private Sub Bouton_Modification_Click()
a = ListBox_Fraise2Taille.ListCount 'Nombre de valeur contenue dans la zone de liste
    For i = 0 To a - 1
        If ListBox_Fraise2Taille.Selected(i) Then
            'MsgBox "la valeur suivante est sélectionnée : " & ListBox_Fraise2Taille.List(i)
            Range("Tableau_Fraise").Find(ListBox_Fraise2Taille.List(i)).Select 
            Selection.EntireRow.Select
        End If
        Next i
End Sub

Ce qui permet de faire une boucle et de pouvoir lire le contenue du "tableau". Actuellement quand je sélectionne plusieurs champs de ma zone de liste sa sélectionne la ligne entière de ma feuille correspondant a la dernière valeur de ma zone de liste, hors je souhaiterais que toutes les ligne dans ma feuille qui on était sélectionner dans ma zone de liste soit sélectionner dans ma feuille.

Seriez-vous comment je peut faire ?

J'espère avoir était assez clair pour que vous puissiez comprendre pour le mieux.

Cordialement,

Mica

Bonjour ,

Je cherche à ranger dans une cellule les sélections d'une listbox(multisélection) .

Chaque sélection devra etre séparée d'un point virgule.

Sous access cette fonction est déja paramètrée.

Peut etre pas possible sous excel ?

En vous remerciant de votre expertise

Bonsoir ,

une fois de plus je viens chercher de l'aide .

Dans le fichier ci-joint , un userform dans lequel une listbox multisélection , je souhaiterais ranger les sélections de la listbox dans une feuille .

Merci de votre expertise

Bonjour à tous,

J'ai réalisé un userform pour la conception de devis automatique (Excell -> Word).

Malgré tout et dans le but de l'optimiser, je désirerais rajouter une fonction.

En effet, il m'est déjà possible de remplir automatiquement les caractéristiques des clients via une base de donné alimentée grâce a ce même userform.

En outre, lorsqu'un client déjà listé dans la bdd me contact pour un devis, je le sélectionne dans le "Combobox_Client" et toute ces infos (adresse, mail, tel etc...) se renseignent automatiquement dans les textbox associés.

Le "souci" est que je peux avoir plusieurs contacts pour le même client, je désireras alors rajouter un combobox supplémentaire (Combobox_Client_Contact) qui se renseignerait en fonction de la sélection dans le Combobox-Client.

Par la suite, se n'est qu'une fois ce "second" Combobox renseigné que les Textbox le seraient.

Je connais une solution avec un tableau où les en-tete seraient les nom de clients et les colonnes les contacts mais malheureusement ma bdd ne se renseigne pas de cette manière et j'ai des centaines de clients déjà inscrits.

Il faudrait que le Combobox_Client_Contact recherche dans la colonne "A" les valeurs correspondant au Combobox_Client et affiche les valeurs de la collone "B" si référent.

Auriez vous la solution svp?

Exemple de tableau excell: Vue supprimée pour cause de données confidentielles

Mon userform:

Bonjour,

Après beaucoup de recherches sur internet je n'arrive pas à trouver de solution à mon besoin.

En bref, (pour être simple) voici les étapes ci-dessous de mon projet :

en vert celles que je suis arrivé à coder

en rouge celles que je n'arrive pas à effectuer

1- Création d'un tableau dans mon ComboBox "promotion" (ComboBox_promotion)

2- Ouverture d'une fichier Excel spécifique selon la valeur du ComboBox "promotion"

3 -Initialisation de mon ComboBox "NOM Prénom" (ComboBox_nom) selon les données du fichier Excel ouvert précédement

Voici une photo de mon UseForm et mon VBA :

capture
Private Sub UserForm_Initialize()

    promotion

End Sub
Sub chargement()

ComboBox_nom.List = Sheets("Stage B1").Range("B2:B10")

End Sub
Sub promotion()

    Dim promotion(0 To 7) As String

        promotion(0) = "A1"
        promotion(1) = "A2"
        promotion(2) = "A3"
        promotion(3) = "A4"
        promotion(4) = "A5"
        promotion(5) = "B1"
        promotion(6) = "B2"
        promotion(7) = "B3"

    Dim i As Integer

    For i = 0 To 7
      ComboBox_promotion.AddItem promotion(i)
    Next
End Sub
Private Sub CommandButton_ok_Click()

    If ComboBox_promotion.Value = "B1" Then
    Workbooks.Open ("C:\Users\test\Desktop\AppLog_Local\Suivi B1.xlsx")
    TextBox_label = ActiveWorkbook. Name
    ActiveWindow.WindowState = xlMinimized

    Else: Unload Me
    MsgBox "Fichier non trouvé !"

    End If

    chargement

End Sub

Private Sub CommandButton_annuler_Click()
    Unload Me
End Sub

Je vous remercie de votre aide...

Bonjour à toutes et à tous !

Je n'ai pas l'habitude de postuler dans des forums mais l'heure est grave. Voilà une semaine que je tourne en rond sur un code.

Je cherche à améliorer la gestion des stocks d'un produit qui se nomme "cartes API" (Automate Programmable Industriel).

Tout commence par la feuille "SAISIE" dans laquelle un formulaire userform s'ouvre en cliquant sur le bouton saisir.

J'aimerais que sur ce formulaire qu'une action de "recherche par cascade" se fasse.

A partir de la liste constructeur on sélectionne "Constructeur 1" ou "Constructeur 2". Suite à ce choix j'aimerais que le combobox de "Type d'api" se mette à jour en regardant toutes les cartes du constructeur associé de la feuille "DATA".

Par la suite une fois le type d'api et de carte sélectionné j'aimerais faire apparaitre la ou les références de la carte dans le combobox "Référence de la carte", mais pour ce faire il faut additionner les deux critères de recherche...

Je bloque pour effectuer ces deux recherches si quelqu'un à une piste, bien entendu je veux rendre tout celà évolutif en cas d'ajout de référence...

Merci d'avoir pris le temps de me lire !

Rolls

Bonjour,

J'ai suivi un Tuto pour un formulaire de gestion d'adhérents d'association.

J'ai donc une ComboBox pouvant rechercher le nom des adhérents et affichant leurs autres données dans des TextBox.

Or, j'ai aussi créé des ComboBox mélangé à ces TextBox et là... Impossible de tout lire.dès la 1ère comboBox, celà bloque.

Auriez-vous une solution ?

Merci.

15rame-forum.xlsm (66.83 Ko)

Bonjour a tous le forum

Je viens vers vous pour un problème de combobox .

je cherche le moyen de lier deux combobox dans un userform .

Dans le combobox1 je tape le nom et le N° de matricule s'affiche dans le combobox2.

je voudrais que s'il existe un homonyme (Même nom prénom) le combobox2 passe en ROUGE et que l'on choisisse le matricule .

j'espere avoir été clair dans mes explication

Je reste connecter pour tout renseignement

Je joint mon fichier pour plus d'explication.

Merci de votre aide

Bonjour,

je souhaite charger la combo TabHoraires_Code_horaire en fonction de la valeur de la combo TabHoraires_Client. Je souhaite utiliser la méthode suivante:

la valeur de la première Combo est utilisée comme critère de filtre pour la table TabHoraires, et seules les lignes apparentes de celui-ci alimenteront la deuxième combo. J'ai essayé d'utiliser SpecialCells(xlCellTypeVisible), mais je n'arrive pas au résultat voulu:

voici le code et un classeur test:

Private Sub TabHoraires_Client_Change()

Dim iLigne As Integer

Dim n As Integer

If Me.TabHoraires_Client.ListIndex = -1 And IsError(Application.Match(Me.TabHoraires_Client, choix1, 0)) Then

Me.TabHoraires_Client.List = Filter(choix1, Me.TabHoraires_Client.Text, True, vbTextCompare)

Me.TabHoraires_Client.DropDown

Else

'salarie_a_modifier_click

End If

wksBDD_horaires.ListObjects("TabHoraires").Range.AutoFilter Field:=1

wksBDD_horaires.ListObjects("TabHoraires").Range.AutoFilter Field:=1, Criteria1 _

:=TabHoraires_Client.Value

n = wksBDD_horaires.Range("TabHoraires_Client").End(xlDown).Row - 1

For iLigne = 1 To n

Me.cTabHoraires_Code_horaire.AddItem wksBDD_horaires.Cells(iLigne + 1, Range("TabHoraires_Code_horaire").Column).Value

' c'est ici que j'ai essayé de positionner SpecialCells(xlCellTypeVisible)

Next iLigne

End Sub

merci d'avance

Recherches récentes

filtrer comboboxtrier colonne listboxsimulation trainoutlook vbaregrouper feuillesattendu expressioncache edgeliaison entre fichiers excelsfiltre avanceclignotantecomment saisir uniquement valeurs numeriquescoloriser ligne complete fonction variable listeoutooksynthesefractionner lignescroise dynamiquedecalerformule conversion tempsconversion tempsconvertir temps