Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Modeste
Bonsour® lavoie avec ferveur ;o))) vous nous disiez :
Or si VIEW correspond à Affichage à quoi correspondent Insertion et Fenêtre ?
Sub zaza() On Error Resume Next Worksheets.Add With ActiveSheet ligne = 1 .Cells(ligne, 1) = "Nom VBA" .Cells(ligne, 2) = "Nom local" ligne = ligne + 1 For Each cbar In CommandBars .Cells(ligne, 1) = cbar.Name .Cells(ligne, 2) = cbar.NameLocal ligne = ligne + 1 Next End With End Sub
-- -- @+ ;o)))
Bonsour® lavoie avec ferveur ;o))) vous nous disiez :
Or si VIEW correspond à Affichage à quoi correspondent Insertion et
Fenêtre ?
Sub zaza()
On Error Resume Next
Worksheets.Add
With ActiveSheet
ligne = 1
.Cells(ligne, 1) = "Nom VBA"
.Cells(ligne, 2) = "Nom local"
ligne = ligne + 1
For Each cbar In CommandBars
.Cells(ligne, 1) = cbar.Name
.Cells(ligne, 2) = cbar.NameLocal
ligne = ligne + 1
Next
End With
End Sub
Bonsour® lavoie avec ferveur ;o))) vous nous disiez :
Or si VIEW correspond à Affichage à quoi correspondent Insertion et Fenêtre ?
Sub zaza() On Error Resume Next Worksheets.Add With ActiveSheet ligne = 1 .Cells(ligne, 1) = "Nom VBA" .Cells(ligne, 2) = "Nom local" ligne = ligne + 1 For Each cbar In CommandBars .Cells(ligne, 1) = cbar.Name .Cells(ligne, 2) = cbar.NameLocal ligne = ligne + 1 Next End With End Sub