Supprimer ligne ajoutée dans contextuel lors de Ouverture d'un fichier téléchargé

job75

XLDnaute Barbatruc

• 17 Octobre 2009

• #2

Re : Supprimer ligne ajoutée dans contextuel lors de Ouverture d'un fichier télécharg

Bonjour vaucluse immo,

Cette macro peut-être :

Code:

Sub SupCommande()
Dim i As Integer
For i = Application.CommandBars("cell").Controls.Count To 1 Step -1
  With Application.CommandBars("cell").Controls(i)
    If .Caption = "[COLOR="Red"]Toto[/COLOR]" Then .Delete
    If .Caption = "[COLOR="red"]Tata[/COLOR]" Then .Delete
  End With
Next
End Sub

Edit : attention Toto et Tata sont les noms des commandes incluant le soulignement (raccourci clavier) qui se traduit par & : le nom de Toto est T&oto

A+

 

Dernière édition: 17 Octobre 2009

Vote positif 0 Vote négatif

MuscatMimi

XLDnaute Accro

• 17 Octobre 2009

• #3

Re : Supprimer ligne ajoutée dans contextuel lors de Ouverture d'un fichier télécharg

Bonjour Job75

Tout d'abord merci de ton aide
Pas bien compris ton explication
Je précise a nouveau que c'est le Menu contextuel standart de Excel, pas un Contextuel que j'ai crée

Ce que j'ai compris, c'est qu'a la place de Toto et Tata
je mette le nom des lignes que je désire supprimer c'est bien cela???,

Les Noms sont,pour chaque ligne présente dans le contextuel

un Icone puis My Big Macro

Un Icone puis Plein Ecran

Avez-vous un Chat

En piéces jointe la copy écran du message Erreur aprés avoir cliquez sur une des lignes que je veut supprimer

@++++++++
Cordialement

 

Pièces jointes

• Nouveau Dossier compressé.zip

  8.5 KB · Affichages: 32
• Nouveau Dossier compressé.zip

  8.5 KB · Affichages: 30
• Nouveau Dossier compressé.zip

  8.5 KB · Affichages: 31

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Octobre 2009

• #4

Re : Supprimer ligne ajoutée dans contextuel lors de Ouverture d'un fichier télécharg

Re,

Ecoutez vaucluse, exécutez d'abord cette macro :

Code:

Sub Test()
Dim i As Integer
For i = 1 To Application.CommandBars("cell").Controls.Count
MsgBox Application.CommandBars("cell").Controls(i).Caption
Next
End Sub

Notez soigneusement les noms des commandes personnalisées que vous voulez supprimer, puis introduisez-les dans la 1ère macro que je vous ai donnée.

A+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Octobre 2009

• #5

Re : Supprimer ligne ajoutée dans contextuel lors de Ouverture d'un fichier télécharg

Bonjour à tous



Pour une reinitialisation du menu contextuel

Code:

Application.CommandBars("cell").Reset

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Octobre 2009

• #6

Re : Supprimer ligne ajoutée dans contextuel lors de Ouverture d'un fichier télécharg

Salut Staple 🙂

Ah ben oui, nettement plus simple...

A+

 

Vote positif 0 Vote négatif

MuscatMimi

XLDnaute Accro

• 17 Octobre 2009

• #7

Re : Supprimer ligne ajoutée dans contextuel lors de Ouverture d'un fichier télécharg

Re Job75 et Bonjour Staple

Merci de votre aide

Je viens d'essayer le code de Staple
ça fonctionne Nickel
Pour ce qui est du code de Job75 je vais essayez sur un PC qui me sert de test
en tout genre
Je te tiendrai au courant Job75

merci encore

Bon week-end a tout les deux

 

Vote positif 0 Vote négatif