Mapping 2000 -> 2007

Index

-Donne dans un formulaire non modal la correspondance entre les commandes 2000 et 2007.(Fichier Microsoft modifié)
-Sous Excel 2007, il crée un bouton Map2000_2007 dans l'onglet Compléments
-Pour supprimer le bouton, Clic-droit/Supprimer Barre outils
-Le mot de passe du code VBA est jacques

Il suffit d'ouvrir le fichier une seule fois. Le bouton Map2000_2007 dans l'onglet Compléments active le formulaire.

Télecharger Map2000-2007

Sub auto_open()
  Dim barre As CommandBar
  Dim bouton As CommandBarControl
  On Error Resume Next
  CommandBars("MapXL2000_2007").Delete
  Set barre = CommandBars.Add(Name:="MapXL2000_2007")
  barre.Visible = True

  Set bouton = CommandBars("MapXL2000_2007").Controls.Add(Type:=msoControlButton)
  bouton.Style = msoButtonCaption
  bouton.OnAction = "Equiv2000_2007"
  bouton.Caption = "Map2000->2007"
End Sub

Sub Equiv2000_2007()
   XL2007.Show
End Sub

Private Sub UserForm_Initialize()
  nomClasseur = ThisWorkbook.Name
  For s = 2 To Workbooks(nomClasseur).Sheets.Count
    Me.ListBox1.AddItem Workbooks(nomClasseur).Sheets(s).Name
  Next s
  Me.ListBox1.ListIndex = 0
  SendKeys "{down}"
  SendKeys "{up}"
End Sub

Private Sub ListBox1_Click()
  nomClasseur = ThisWorkbook.Name
  f = Me.ListBox1
  Me.ListBox2.Clear
  If f <> "" Then
    For i = 5 To Workbooks(nomClasseur).Sheets(f).[b65000].End(xlUp).Row
       Me.ListBox2.AddItem
       Me.ListBox2.List(i - 5, 0) = Workbooks(nomClasseur).Sheets(f).Cells(i, 1) & String(50, ".")
       Me.ListBox2.List(i - 5, 1) = Workbooks(nomClasseur).Sheets(f).Cells(i, 3)
    Next i
  End If
End Sub