Autres Ouvrir "Icône Formulaire"

chris

XLDnaute Barbatruc

• Hier à 13:17

• #2

Bonjour
Dérouler le bouton tout à droite de la barre de lancement puis Autres Commandes

Sélectionner "toutes les commandes "et descendre jusqu'à trouver Formulaire pour l'ajouter

Pas besoin de coder

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• Hier à 18:47

• #3

Bonjour
sinon
Sub Macro1()

ActiveSheet.ShowDataForm
End Sub

 

Vote positif 1 Vote négatif

chris

XLDnaute Barbatruc

• Hier à 19:56

• #4

RE

Macro inutile qui marchera où pas pas selon où est elle enregistrée alors que le bouton natif fonctionnera...

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• Hier à 20:40

• #5

bonjour
le formulaire ne s'affichera pas si au moins une cellule n'est pas sélectionnée dans un TS ou TCD
et pour être sur , taper directe sur le bouton avec la simulation par commandbars.executemso

VB:

Sub test()
    Dim N As String
    On Error Resume Next
    N = ActiveCell.ListObject.Name
    On Error GoTo 0
    If N <> "" Then
        CommandBars.ExecuteMso ("DataFormExcel")
    Else: MsgBox "selectionez au moins une cellule dans un tableau structuré ou TCD"
    End If
End Sub

le petit msgbox qui va bien et qui te dis que tu es dans les choux
patrick

 

Vote positif 0 Vote négatif