Listview et click sur un element d'une colonne

Version imprimable

Voir 40 message(s) de cette discussion en une page

re a oui ca m'a échappé faut dire que c'est plus courant dans les userforms

bon mais ca change rien il y a toujours un problème a l'utilisation il faut mettre en mode création puis revenir pour débloqué son utilisation

donc même punition walouh!!!!!!!!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub test()
    Dim lst As OLEObject
    Dim tablo(4, 10)
    With Sheets("Feuil1")
        Set lst = .OLEObjects.Add("Forms.ListBox.1", Left:=0, Top:=Cells(3, 1).Top, Width:=300 - 2, Height:=100)
        With lst
            .Name = "listV"
            .Width = 10 * 80
            .Top = .Top + 50
            .Object.ColumnCount = 10
            For L = 1 To 4
                .Object.AddItem "R" & L
                For col = 1 To 9
                    .Object.List(L - 1, col) = "R" & L & "C" & col
                Next
            Next
            '.Object.List = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
        End With
    End With
End Sub

heu... t'a pensé a remplacer tout ce foutoir de mes deux par un menu context perso
pas de control ajouté pas de spectre pas de sousillon avec tout ca

05/03/2016, 18h08
Sebphyto
C bon j'ai trouvé...
rajoutes ça entre le dernier End with et end sub
Code:

1 2 lst.Visible = False lst.Visible = True
Seb

Citation:

Envoyé par patricktoulon

heu... t'a pensé a remplacer tout ce foutoir de mes deux par un menu context perso
pas de control ajouté pas de spectre pas de sousillon avec tout ca

Quesako???

Edit:
J'ai vu, je ne connaissais pas
Faut voir :weird:

1 pièce(s) jointe(s)

re exemple avec listbox

voila c'est quand meme plus rapide avec une list box

creation

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Public tablo(10)
Sub test()
    Dim lst As OLEObject
 
    With Sheets("Feuil1")
        Set lst = .OLEObjects.Add("Forms.ListBox.1", Left:=0, Top:=Cells(3, 1).Top, Width:=300 - 2, Height:=100)
        With lst
            .Name = "listV"
            .Width = 10 * 51
            .Top = .Top + 50
            .Object.ColumnCount = 10
            .Object.ColumnWidths = "50;50;50;50;50;50;50;50;50;50"
            tablo(0) = 50
            For L = 1 To 4
                .Object.AddItem "R" & L
                For col = 1 To 9
                    .Object.List(L - 1, col) = "R" & L & "C" & col
                tablo(col) = old + 50
                old = tablo(col)
                Next
            Next
 
        .Visible = False
    .Visible = True
    End With
    End With
End Sub

évènement a mettre dans le module de la feuille

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub listV_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ind = IIf(Val(Y / 12) = -1, 0, Val(Y / 12))
    ind = IIf(ind > 3, 3, ind)
 'Sheets(1).Label2 = Val(X / 50)
 MsgBox listV.List(ind, Val(X / 50))
 ' a la place ton msgbox tu call une sub avec  listV.List(ind, Val(X / 50)) comme argument 
End Sub
Private Sub listV_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ind = IIf(Val(Y / 12) = -1, 0, Val(Y / 12))
    ind = IIf(ind > 3, 3, ind)
  'Sheets(1).Label1 = Y & vbCrLf & ind
listV.ListIndex = ind
End Sub

Pièce jointe 203007

05/03/2016, 19h23
Sebphyto

Re,
Et bah voilà c niquel....
Bravo, patrick...
05/03/2016, 19h31
patricktoulon

re coup de gueule

oui bon ben ca reste du truc bien pourri a mon gout
un menu popup bien propre serait plus pro
le menu est créé a l'ouverture du classeur et supprimer a la fermeture
on ajoute rien c'est fluide net sans bavure
j'dis ca moi hein!!....

voila c'est fini mon coup de gueule ;):mrgreen:
05/03/2016, 20h42
Sebphyto

J'adore tes coups de gueule, c toi quoi, les gens du sud sont comme ça...:D
Et tu vois ce n'est pas que moi qui propose de nouvelles choses à chaque fois!!!!!! (popup)....

Mais il consisterai en quoi ton menu popup, parce que du coup.....enfin tu vois....
Seb

1 pièce(s) jointe(s)

re tiens pleure maintenant

bon

fait moi plaisir ferme ton fichier

ouvre un nouveau
met un module standard
colle lui ca dans ce module

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
'Création de la barre d'outils lors du lancement du UserForm
Sub initmenu()
    Dim Barre As CommandBar, mypop, pop(5)
    deletebar
    Set Barre = CommandBars.Add("RxCX", msoBarPopup, False, True)
    Set mypop = Barre.Controls.Add(msoControlPopup)
    mypop.Caption = "Reunion"
    For i = 1 To 4
        Set pop(i) = mypop.Controls.Add(msoControlPopup)
        pop(i).Caption = "R" & i
        For b = 1 To 9
            Set bout = pop(i).Controls.Add(msoControlButton, 2, , , True)
            bout.Caption = "R" & i & "C" & b
            'bout.faceid=222
            bout.OnAction = "srxcx"
        Next b
    Next
End Sub
'Supprime la barre d'outils lors de la fermeture du UserForm
Sub deletebar()
    On Error Resume Next
    CommandBars("RxCX").Delete
End Sub
Sub srxcx()
MsgBox CommandBars.ActionControl.Caption
End Sub

maintenant dans la feuil1
met lui un controlx label1

dans le module de la feuille colle lui ca

Code:

1
2
3
4
5
Private Sub Label1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   initmenu
        Application.CommandBars("RxCX").ShowPopup 
 
End Sub

voila c'est juste un exemple comme ca fait a l'arrache en moins de 2 minutes
dans la sub srxcx tu fait ce que tu veux apres puisque tu a la valeur de l'item

Wagadougou!!!!! voila pour le nordiste :mrgreen:

Pièce jointe 203009

05/03/2016, 21h13
patricktoulon

1 pièce(s) jointe(s)

re et pour remuer le couteau dans la plaie

:ptdr:

tien j'ai ajouté les icons encopiant une image avec pasteface sur les item menu ca ca va te plaire
demande gentillement :mouarf:
ho oui ca fait mal hein !.....
Pièce jointe 203010
05/03/2016, 21h14
Sebphyto

Citation:

fait moi plaisir ferme ton fichier

Avec plaisir..

Citation:

voila c'est juste un exemple comme ca fait a l'arrache en moins de 2 minutes

ouais, ouais, bon ca va, moi j'aurais mis..........Euuuuuh...bah je c pas...;)

Ccccccccc, excellent ton menu contextuel....simple et propre sans chichi....çà demande bien plus pour m'apprendre...hihi

Citation:

voila pour le nordiste

et bien encore pour un certain temps, mais je compte bien bouger et arriver pas si bas que toi, mais dans le sud....:P...projet, projet....

Je ne sais pas combien de fois j'ai pu te remercier, mais encore une fois merci de partager ta connaissance ;)
seb
Edit:
J'avais pas vu ton dernier post....ouhhouhhh trop bien, mais le mieux serai les petits icons, R1,R2,R3,R4....puis R1C1,R1C2, etc....
Et oui plus tu en propose et plus je t'en demande....le fouetteur fouetter :sm:
J'ADORE TON MENU
05/03/2016, 21h22
patricktoulon

re

Citation:

J'avais pas vu ton dernier post....ouhhouhhh trop bien, mais le mieux serai les petits icons, R1,R2,R3,R4....puis R1C1,R1C2, etc....

precise je comprends pas
05/03/2016, 21h36
Sebphyto

2 pièce(s) jointe(s)

De ce genre comme sur le site Zeturf....mais je ne veux pas les copier, car ils sont propre à chez eux....Plagiat....si tu vois ce que je veux dire...

Pièce jointe 203012 Pièce jointe 203013
Seb
05/03/2016, 21h52
patricktoulon

re

oui c'est possible de les fabriquer dynamiquement mais il serait vraiment petit
05/03/2016, 21h57
Sebphyto

T'inquiète c déjà très bie comme çà..
Par contre je veux bien, ton bout de code avec l'insertion de tes images de petits chevaux...
05/03/2016, 22h40
patricktoulon

2 pièce(s) jointe(s)

RE

CA TE PLAIT HEIN!!!!!!!

tien regarde j'ai récupéré le petit dada en rouge qui court dans une page de course et je l'ai modifié 4 fois de couleur et j'en ai fait 4 images différentes

je les ai placé sur le sheets a chaque changement de réunion dans la création du menu je change de couleur
Pièce jointe 203018

fichier en pièce jointe
06/03/2016, 14h29
araigné

1 pièce(s) jointe(s)

Alternative au listview mscomctl

Bonjour,

J'ai une alternative au ListView mscomctl.ocx (compatible mac et office 64 bits) à proposer: http://vbalib.com/wp/librairies/controles/listview/
Cette librairie permet de gérer les événement Click/DblClick/RightClick sur les cellules. Par contre je n'ai pas testé pour l'ajouter dans une worksheet en oleObject.

Pièce jointe 203051
06/03/2016, 15h43
Sebphyto

Salut A vous deux,

@Patrick, c'est encore mieux...bravo...j'ai également regardé des anciens post à ton nom en 2009-2011, sur ce sujet...justement

@Araignée:
Ton truc est intéressant, mais oblige le partage du fichier xlam, si l'on veut l'utiliser sur un autre post....

A+
Seb
06/03/2016, 18h45
patricktoulon

ou la !! 2009 2011 ca date j'ai fait mieux depuis plus propre

j'i regardé l'alternative qui a été proposée en effet c'est pas mal j'ai eu l'idée de le faire mais je trouver que construire avec des labels chaque cellules de la listview était un pousser le bouchon loin
quelqu'un d'autre la fait et c'est tant mieux je l'aurais fait en moins lourd quand même
a étudier

Citation:

Ton truc est intéressant, mais oblige le partage du fichier xlam, si l'on veut l'utiliser sur un autre post....

seb pas du tout on peu faire la même chose dans une classe dans le classeur
06/03/2016, 19h03
Sebphyto

AH oui, c pas faut...
Mais les classes, c'est pas mon truc pour l'instant.....tu vois ce que je veux dire....Hisser-haut et ses rames, tu sais...;)
06/03/2016, 19h06
patricktoulon

re

:mouarf:
ca te conviens le menu on peu faire autrement avec 4 labels si tu veux et des beaux icons

mais il faut quand même que tu te concentre sur la finalité hein !!!.....
06/03/2016, 20h42
Sebphyto

Ah oui, mais là çà va être bien plus cossu....si tu me proposes autre chose, parce que j'ai déjà réfléchi ......Après à toi de me dire si tu est open....;)

Donc si tu est partant...je veux bien expliquer du début à la fin de mon projet....(j'ai déjà réalisé les icons que je souhaite entre autre)
Donc je t'expliquerai de l'ouverture du fichier à la fermeture, avec ce qu'il se passe dedans....

A toi, de me dire, mais je souhaite également apprendre et participer, j'aurai peut-être besoin de temps mais peu importe, cela mettra le temps qu'il faut...;)
Seb

Voir 40 message(s) de cette discussion en une page