Menu souris perso LMA, STephane, André

je travaille dessus, je ressors mes vieux programmes TP6 pour trouver l'algo Quicksort (très puissant) que j'utilisais alors pour trier mes tableaux.

André, voici un code qui t'économisera un clic, à ajouter dans thisworkbook à la suite de l'optimisation de Ti...

Tiens moi au courant si satisfaisant stp, Merci, FD

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Excel.Range)

Dim Ctrl As CommandBarControl
Dim Cel As Range, Plage As Range
Dim NbItem As Long, Boucle As Long
Dim DejaPris As Boolean
For Each Ctrl In Application.CommandBars("cell").Controls
If Ctrl.Tag = "brccm" Then Ctrl.Delete
Next Ctrl
With ActiveCell
If .Row = 1 Then Exit Sub
ReDim ListItem(1 To .Row)
Set Plage = Range(Cells(1, .Column), .Offset(-1, 0))
End With

For Each Cel In Plage
'inutile de boucler au delà de NbItem, le reste sera vide !
For Boucle = 1 To NbItem
If Cel.Value = ListItem(Boucle) Then
DejaPris = True
Exit For
End If
Next Boucle

If Not DejaPris And Cel.Value <> "" Then
NbItem = NbItem + 1
ListItem(NbItem) = Cel.Value
With Application.CommandBars("cell").Controls _
.Add(Type:=msoControlButton, before:=6, temporary:=True)
.Caption = CStr(Cel.Value)
.OnAction = "EcrisValeur(" & NbItem & ")"
.Tag = "brccm"
End With
End If
DejaPris = False
Next Cel
Application.CommandBars("cell").ShowPopup
End Sub

Voici une nouvelle version qui fait le tri

En prime, pour éviter de laisser "des traces" dans le menu Cellule en changeant de fichier, vous pouvez ajouter cette procédure dans Thisworkbook. Elle fera le ménage dans le menu cellule chaque fois qu'on désactivera le fichier

Private Sub Workbook_Deactivate()
Dim Ctrl As CommandBarControl
For Each Ctrl In Application.CommandBars("cell").Controls
If Ctrl.Tag = "brccm" Then Ctrl.Delete
Next Ctrl
End Sub

j'arrive après la bataille


pour info, pour utiliser ce genre de code, je suis moi obligé de cocher la référence Microsoft Office Visual Basic for Applications Extensibility


bye
stephane

Bonjour,
Elle est très bien ta macro Ti, mais pourrais-tu encore l'améliorer un petit peu. Je ne voudrais surtout pas te donner du boulot en plus mais.....

Je t'envoie le fichier zippé avec mon interrogation dedans :

Imagine que je doive remplir au fur et à mesure des infos diverses dans la colonne, si on doit faire des allers et retours sur des cellules vides il faut que le menussouris se souvienne qu'en ligne 20 par exemple, il y a eu quelque chose de noté. Et quand on revient à la ligne 17, il doit avoir une liste de choix complète. Ce qu'il ne sait pas faire en ce moment.
C'est peut-etre une autre version que je te demande (?)....

Merci à l'avance

Bonjour Celeda, Ti, andré etc...

Le fichier ci joint répond à la demande de Celeda mais... il ne fonctionne que pour les xlcelltype = "constantes"... jusqu'à l'amélioration suivante !

Cordialement, FD

Pas de problème Celeda, pour afficher les données insérées de toute la colonne, il suffit de remplacer la ligne :

Set Plage = Range(Cells(1, .Column), .Offset(-1, 0))

par celle-ci :

Set Plage = Range(Cells(1, .Column), Cells(65536, .Column).End(xlUp))

Et voilà !

Bonjour,
Et voilà, le tour est joué et tout fonctionne bien !
Super le système.
Merci pour la coopération de tout le monde.