transposer code excel vba activex sous mac |
Bienvenue invité ( Connexion | Inscription )
transposer code excel vba activex sous mac |
26 Nov 2018, 10:39
Message
#1
|
|
Nouveau Membre Groupe : Membres Messages : 2 Inscrit : 26 Nov 2018 Membre no 206 490 |
Bonjour à tous,
je suis nouvelle sur ce forum, et franchement je ne suis pas particulièrement douée que ce soit avec un PC ou un MAC. On va dire que je me dépatouille... Bref, j'ai un fichier excel créé sous Windows 7 avec Excel 2010 qui contient des macros vba permettant à partir de mots clés tapés dans la cellule "intitulé" de réduire les choix apparaissant dans la liste déroulante de cette même cellule. Le problème comme vous vous en doutez c'est que ce fichier n'est pas compatible avec Excel 2016 sous MAC (je suis sous High Sierra) à cause des contrôles ActiveX. Est-ce que je dois réécrire tout le code? Est-ce que seules quelques lignes du code doivent être réécrite? Dans tous les cas, comment faire? Voici le code vba: Dim Choix1() Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect([C17:C100], Target) Is Nothing And Target.Count = 1 Then Set f = Sheets("Codes") Set Rng = f.Range("B2:B" & f.[B65000].End(xlUp).Row) Choix1 = Application.Transpose(Rng) Me.ComboBox1.List = Choix1 Me.ComboBox1.Height = Target.Height + 3 Me.ComboBox1.Width = Target.Width Me.ComboBox1.Top = Target.Top Me.ComboBox1.Left = Target.Left Me.ComboBox1 = Target Me.ComboBox1.Visible = True Me.ComboBox1.Activate Else Me.ComboBox1.Visible = False End If End Sub Private Sub ComboBox1_Change() If Me.ComboBox1 <> "" Then mots = Split(Trim(Me.ComboBox1), " ") Tbl = Choix1 For i = LBound(mots) To UBound(mots) Tbl = Filter(Tbl, mots(i), True, vbTextCompare) Next i Me.ComboBox1.List = Tbl Me.ComboBox1.DropDown End If End Sub Private Sub ComboBox1_click() ActiveCell.Value = Me.ComboBox1 End Sub Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then ActiveCell.Offset(1).Select End Sub Merci d'avance pour votre aide! MR13500 |
|
|
26 Nov 2018, 12:48
Message
#2
|
|
Macbidouilleur d'Or ! Groupe : Membres Messages : 4 198 Inscrit : 1 Jan 2008 Lieu : Toulouse.cong Membre no 103 942 |
Les contrôles ActiveX sont "Windows only", il n’est donc pas possible de les faire fonctionner dans une version pour Mac d’Excel. En conséquence, je crains fort qu’il soit impossible de reproduire le fonctionnement que tu décris. J’essayerai de voir ça ce soir si j’ai un peu de temps.
-------------------- |
|
|
26 Nov 2018, 13:00
Message
#3
|
|
Nouveau Membre Groupe : Membres Messages : 2 Inscrit : 26 Nov 2018 Membre no 206 490 |
Merci pour ta réponse! Ca marche, j'attends la suite et je vais réfléchir à une autre solution en attendant...
|
|
|
Nous sommes le : 26th April 2024 - 13:53 |