Traduction de Windows à Mac

Danoun

XLDnaute Nouveau
Bonjour à tous,

j'aurais besoin d'un coup de main. Je dois traduire quelques ligne de code pour qu'un fichier créé sous excel windows puisse être utilisé sous mac. je joint un fichier très succinct car les données sont professionnelles. Merci d'avance.

Ci dessous les 3 macros à traduire :

Sub choix()
selection.Show
End Sub

Private Sub TextBox4_Change()
Me.ListBox1.Clear
For Each c In [client]
If UCase(c) Like "*" & UCase(Me.TextBox4) & "*" Then
Me.ListBox1.AddItem c
End If
Next c
End Sub


Private Sub ListBox1_Click()
Sheets("CA HT").Range("b1") = Me.ListBox1
Sheets("CA HT").Range("b20") = Me.ListBox1
Sheets("QTE").Range("b1") = Me.ListBox1
Sheets("QTE").Range("b17") = Me.ListBox1
Sheets("SYNTHESE").Range("A1") = Me.ListBox1
End Sub
 

Pièces jointes

  • Classeur1.xlsm
    24.3 KB · Affichages: 44
  • Classeur1.xlsm
    24.3 KB · Affichages: 43
  • Classeur1.xlsm
    24.3 KB · Affichages: 49

Discussions similaires

Statistiques des forums

Discussions
312 760
Messages
2 091 795
Membres
105 074
dernier inscrit
JPATOUNE