alignement dans un Userform.

[tinet]

Bonsoir le forum,


Je cheche une solution pour aligner dans l'Userform les prix à droite.
Actuellement produit à gauche ok, mais suivi de son prix.

Pour une meilleur lisibilité je cherche à aligner le prix à droite

Merci de votre aide.

a+

 

[CHALET53]

Re : alignement dans un Userform.

Bonjour,

est-ce qu'en t'inspirant de ce rajout, tu peux trouver la solution :

If UCase(c) Like UCase(Me.TextBox1) & "*" And UCase(c) Like "*" & UCase(Me.TextBox2) & "*" _
And c.Offset(0, 8) Like IIf(ListBox2.ListIndex = -1, "*", ListBox2.Text) _
And c.Offset(0, 1) Like frais Then
d = " " & c: d = Right(d, 15)
Me.ListBox1.AddItem d & vbTab & vbTab & c.Offset(0, 3).Value
End If

 

[CHALET53]

Re : alignement dans un Userform.

suite : j'avais mis 15 blancs dans d (qui ne sont pas retranscrits dans le message)

 

[Paritec]

Re : alignement dans un Userform.

bonjour Tinet, chalet le forum
pour faire cela il faut que tu utilises une listview, là tu auras la possibilité de positionné les texte à droite à gauche ou centré et cela par colonne, ce que tu souhaites.
Par contre le code devra être revu complètement
a+
Papou 🙂

 

[Paritec]

Re : alignement dans un Userform.

Re Bonjour Tinet le forum
ton fichier modifié avec ta listbox, je ne sais pas si cela te conviendra mais regardes et dis moi
c'est pas franchement du aligné à droite mais !!!
redis moi
a+
Papou 🙂

 

[tinet]

Re : alignement dans un Userform.

Bonjour à tous,

Patirec, tu as la bonne solution, je vais réajuster mon Userform, et en jouant sur la largeur des colonnes avec ta fonction.

tu peux me donner un peu plus explications sur une "listview" ou un exemple.
je te remercie

 

[Paritec]

Re : alignement dans un Userform.

Bonjour tinet le forum
tu as plein d'exemple sur le forum pour les listview, mais attention c'est plus compliqué, enfin regardes déjà dans la recherche sur le forum et tu me rediras.
Une précision ce n'est pas une fonction, je mets les lignes en mémoire dans un tableau et je colle le tableau dans la liste de la listbox
a+
papou 🙂

 

[Paritec]

Re : alignement dans un Userform.

Re Tinet,
je viens de chercher sur le forum et je n'arrive pas à trouver !!!!
en fait depuis le nouveau forum, je ne trouve plus rien c'est désolant.
bref alors voilà un exemple de code de listview
a+
papou 🙂

 Private Sub UserForm_Initialize()
    IniListview
End Sub

Sub IniListview()
Dim i As Long, j As Byte
Feuil1.AutoFilterMode = False
With ListView1
    .ListItems.Clear
    With .ColumnHeaders
       .Clear
       .Add , , "Code Client", 60
       .Add , , "Nom Client", 60
       .Add , , "Code Article", 70
       .Add , , "Désignation", 90
       .Add , , "Quantité", 100, 2
       .Add , , "Prix Unitaire", 100
       .Add , , "Prix Total", 100
       .Add , , "Date", 70
       .Add , , "Année", 70
       .Add , , "Numéro Document", 100
       .Add , , "Type Document,100"
              .Add , , , 0
    End With
 .View = lvwReport
 .FullRowSelect = True
 .Gridlines = True
        For i = 2 To Feuil1.Range("A65536").End(xlUp).Row
            .ListItems.Add , , Feuil1.Cells(i, 1)
            For j = 2 To 12
                .ListItems(.ListItems.Count).ListSubItems.Add , , Feuil1.Cells(i, j)
            Next
            .ListItems(.ListItems.Count).ListSubItems.Add , , i
        Next
    ListView1.ListItems(1).Selected = False
    Set ListView1.SelectedItem = Nothing
    End With
End sub

 

[Paritec]

Re : alignement dans un Userform.

Re Tinet,
ton fichier en retour avec une modification quand tu cliques sur le bouton OK il n'y a plus à choisir une cellule avant de cliquer, la première cellule vide de la colonne A va s'incrémenter de la valeur de la listbox
a+
Papou 🙂

 

[kjin]

Re : alignement dans un Userform.

Bonjour, salut Papou 🙂,
Listview
Tu peut aussi filtrer avec mon pseudo...
A+
kjin

 

[Paritec]

Re : alignement dans un Userform.

Re Kjin,
je viens de cliquer sur ton lien et voilà ce que j'obtiens?????? en rouge ci-dessous
si tu as une solution a me donner je prend sans problème
avant quand je cherchais des listview c'est ce que je recherchais kjin (le roi des listview)
a+
Papou 🙂

PS : excuses Tinet de me servir de ton post

Désolé - aucun résultat. Veuillez essayer avec une autre requête.

 

[kjin]

Re : alignement dans un Userform.

Re,
Papou je te rassure, je suis moi-même toujours aussi paumé...😱
Quand tu es dans la page d'accueil du forum excel, clickes tu bien sur "recherche dans ce forum" (à coté de "Outils") puis sur recherche avancée
A+
kjin

 

[PMO2]

Re : alignement dans un Userform.

Bonjour,

J'ai modifié votre code tout en restant sur votre ListBox1 (voir la pièce jointe).

Cordialement.

PMO
Patrick Morange

 

[tinet]

Re : alignement dans un Userform.

Re Patirec,

Merci pour la fonction que tu as ajouter sur la cellule automatique, mais je dois garder la possibilité du choix de ma ligne.
Merci également PMO pour ta correction.

En ce qui concerne une "listview" je regarderai ultérieurement car je dois avancer sur mon fichier.

a+