Tri dans un userform

  • Initiateur de la discussion Initiateur de la discussion zozotitou
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

zozotitou

XLDnaute Junior
Bonjour le forum

Je débute dans les macros et le VBA, je voudrais par macro dans des combos le tri de colonne dans le fichier par catégorie
-1- Par sport (ne pas avoir de doublon dans le combo)
-2- une fois sélectionner le sport avoir la catégorie (ne pas avoir de doublon dans le combo)
Ainsi de suite
A la fin pouvoir écrire la sélection dans une autre feuille

Merci de votre aide
Cdlt
 
Dernière édition:
Re : Tri dans un userform

Bonsoir

Ci joint le fichier avec une approche totalement différente.

L' usf comporte une "listview" qui affiche les données en fonction de la sélection choisie.

Il faut cliquer sur la première colonne pour faire avancer le schim.....

A tester


JP
 

Pièces jointes

Re : Tri dans un userform

Bonsoir

Une nouvelle version

Modification des données de la ligne sélectionnée
Ajout d'un nouvel enregistrement

En utilisant le fichier proposé par Bebere une macro pour afficher les données dans une "ComboBox"


A tester, à modifier

JP
 

Pièces jointes

Re : Tri dans un userform

Bonjour le forum,

Le problème c’est de récupérer les infos dans une autre USERFORMS avec 2 voire 3 TEXTBOXS supplémentaires pour mettre des commentaires et donner la modifications que sur la date et ecrire dans les TEXBOXS et recopie le tout dans la feuille.

Merci beaucoup.
 
Re : Tri dans un userform

Bonsoir

Il faut mettre les valeurs dans des variables publiques ou dans des cellules d'une feuille et récupérer ces valeurs pour les insérer lors de la création des enregistrements en modifiant le code de la macro CommandButton5_Click

Code:
...................................................
For i = 1 To ListView1.ListItems.Count
    If ListView1.ListItems(i).Checked = True Then
        ligne2 = Mid(ListView1.ListItems(i).Key, 2, 50)
        dl1 = Sheets(nomf2).Range("A65536").End(xlUp).Row + 1
' ecriture de la date
        Sheets(nomf2).Cells(dl1, 1) = date1 ' variable publique
' recopie des données
        For j = 1 To nbcolonne
            Sheets(nomf2).Cells(dl1, j + 1) = Sheets(nomf1).Cells(ligne2, j)
        Next j

' ajout des commentaires
        Sheets(nomf2).Cells(dl1, nbcolonne +1 ) = commentaire1 
        Sheets(nomf2).Cells(dl1, nbcolonne +2 ) = commentaire2


        ListView1.ListItems(i).Checked = False
    End If
Next i
...................................................


JP
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
22
Affichages
909
Réponses
5
Affichages
138
Réponses
11
Affichages
248
  • Question Question
Microsoft 365 affichage userform
Réponses
4
Affichages
361
Réponses
6
Affichages
170
Retour