Staple1600
XLDnaute Barbatruc
Bonjour à tous
Voilà le problème que je n'arrive pas à résoudre (D'ailleurs est-ce possible?)
EDITION: ajout fichier exemple: Ce lien n'existe plus
Avec ce code (dans une feuille)
et dans un module
A ce stade le code fonctionne:
le menu contextuel est redefini et quand on clique la msgbox me renvoie bien la Caption
• Mais comment récupérer la saisie de l'utilisateur dans le TextBox
(msoControlEdit) pour l'inscrire dans ActiveCell ainsi que les autres TextBox ?
(avec ActiveCell.Offset(n,n) ect... ) quand on clique sur VALIDER ?
J'ai cherché sur le forum, sur le net, et je finis pas croire que c'est impossible
Et vous? Avez-vous une solution?
Merci à ceux qui s'intéresseront à la question.
Bonne journée à tous.
Voilà le problème que je n'arrive pas à résoudre (D'ailleurs est-ce possible?)
EDITION: ajout fichier exemple: Ce lien n'existe plus
Avec ce code (dans une feuille)
Code:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim cbItems As Object: Dim j As Byte
Dim i As Byte: Dim x As Integer
tab_caption = Split("Champ1,Champ2,Champ3,Champ4,Champ5,Champ6", ",")
tab_nmacro = Split("macro1,macro2,macro3,macro4,macro5,macro6", ",")
For Each cbItems In Application.CommandBars("cell").Controls
cbItems.Delete
Next cbItems
With Application.CommandBars("Cell")
For i = 0 To 5
x = i + 1
With .Controls _
.Add(Type:=msoControlEdit, before:=x, Temporary:=True)
.Caption = tab_caption(i)
.OnAction = ThisWorkbook.Name & "!" & tab_nmacro(i)
.Width = 175
End With
Next i
With .Controls _
.Add(msoControlButton)
.BeginGroup = True
.Caption = " [VALIDER]"
.OnAction = ThisWorkbook.Name & "!cmbVALIDER"
.FaceId = 1025
.Style = msoButtonIconAndCaption
End With
End With
End Sub
Code:
Sub macro1()
MsgBox Application.CommandBars.ActionControl.Caption
End Sub
Sub macro2()
MsgBox Application.CommandBars.ActionControl.Caption
End Sub
Sub macro3()
MsgBox Application.CommandBars.ActionControl.Caption
End Sub
Sub macro4()
MsgBox Application.CommandBars.ActionControl.Caption
End Sub
Sub macro5()
MsgBox Application.CommandBars.ActionControl.Caption
End Sub
Sub macro6()
MsgBox Application.CommandBars.ActionControl.Caption
End Sub
Sub cmbVALIDER()
MsgBox Application.CommandBars.ActionControl.Caption
End Sub
Code:
Sub Pour_reinitialiseMENUCONTEXTUEL()
Application.CommandBars("Cell").Reset
End Sub
le menu contextuel est redefini et quand on clique la msgbox me renvoie bien la Caption
• Mais comment récupérer la saisie de l'utilisateur dans le TextBox
(msoControlEdit) pour l'inscrire dans ActiveCell ainsi que les autres TextBox ?
(avec ActiveCell.Offset(n,n) ect... ) quand on clique sur VALIDER ?
J'ai cherché sur le forum, sur le net, et je finis pas croire que c'est impossible
Et vous? Avez-vous une solution?
Merci à ceux qui s'intéresseront à la question.
Bonne journée à tous.
Dernière édition: