alignement dans un Userform.

C

CHALET53

XLDnaute Barbatruc

• 5 Mars 2011

• #2

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

 

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 5 Mars 2011

• #3

Re : alignement dans un Userform.

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

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 5 Mars 2011

• #4

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 🙂

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 5 Mars 2011

• #5

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 🙂

 

Pièces jointes

• Recettes tinet V2.zip

  28.7 KB · Affichages: 29

Dernière édition: 5 Mars 2011

Vote positif 0 Vote négatif

tinet

XLDnaute Impliqué

• 5 Mars 2011

• #6

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

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 5 Mars 2011

• #7

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 🙂

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 5 Mars 2011

• #8

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 🙂

VB:

 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

 

Dernière édition: 5 Mars 2011

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 5 Mars 2011

• #9

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 🙂

 

Pièces jointes

• Recettes tinet V4.zip

  30.1 KB · Affichages: 31

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 5 Mars 2011

• #10

Re : alignement dans un Userform.

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

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 5 Mars 2011

• #11

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.

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 5 Mars 2011

• #12

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

 

Vote positif 0 Vote négatif

P

PMO2

XLDnaute Accro

• 5 Mars 2011

• #13

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

 

Vote positif 0 Vote négatif

tinet

XLDnaute Impliqué

• 5 Mars 2011

• #14

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+

 

Vote positif 0 Vote négatif