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
|