Discussion :

[patricktoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Sebphyto]

C bon j'ai trouvé...
rajoutes ça entre le dernier End with et end sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Seb

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

[patricktoulon]

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

creation

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Sebphyto]

Re,
Et bah voilà c niquel....
Bravo, patrick...

[patricktoulon]

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

[Sebphyto]

J'adore tes coups de gueule, c toi quoi, les gens du sud sont comme ça...
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

[patricktoulon]

bon

fait moi plaisir ferme ton fichier

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patricktoulon]

tien j'ai ajouté les icons encopiant une image avec pasteface sur les item menu ca ca va te plaire
demande gentillement
ho oui ca fait mal hein !.....

[Sebphyto]

fait moi plaisir ferme ton fichier

Avec plaisir..

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

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.......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
J'ADORE TON MENU

[patricktoulon]

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

[Sebphyto]

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...


Seb

[patricktoulon]

oui c'est possible de les fabriquer dynamiquement mais il serait vraiment petit

[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...

[patricktoulon]

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


fichier en pièce jointe

[araigné]

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.

[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

[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

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

[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...

[patricktoulon]

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 !!!.....

[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