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
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