Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel aide pour une macro qui marche sous Windows mais pas sur Mac

aide pour une macro qui marche sous Windows mais pas sur Mac

6 réponses
Avatar
sami
voici ma macro comment la modifier pour qu'elle fonctionne sous Mac:

Private Sub ComboBox1_Change()

End Sub

Private Sub CommandButton1_Click()
Sheets("saisie tps").Range("B2").Value = ComboBox1.Value


Sheets("saisie tps").Select
Range("A16:A49").Select
Selection.ClearContents
Range("C16:C49").Select
Selection.ClearContents

Sheets("presentation").Select

UserForm1.Hide
UserForm2.Show


End Sub

Private Sub Label1_Click()

End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub UserForm_Click()

End Sub
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Starwing
En nous présentant un Bonjour à tous et un merci pour tout...

Starwing
Avatar
jps
dis-moi, sami, c'est l'honorable perf qui t'a inoculé le virus malpolitus?
jps

"sami" a écrit dans le message de
news:
voici ma macro comment la modifier pour qu'elle fonctionne sous Mac:

Private Sub ComboBox1_Change()

End Sub

Private Sub CommandButton1_Click()
Sheets("saisie tps").Range("B2").Value = ComboBox1.Value


Sheets("saisie tps").Select
Range("A16:A49").Select
Selection.ClearContents
Range("C16:C49").Select
Selection.ClearContents

Sheets("presentation").Select

UserForm1.Hide
UserForm2.Show


End Sub

Private Sub Label1_Click()

End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub UserForm_Click()

End Sub



Avatar
twinley
un peu de Motul , pour que ça glisse mieux ?

--
à+twinley
"jps" a écrit dans le message de
news:
dis-moi, sami, c'est l'honorable perf qui t'a inoculé le virus malpolitus?
jps

"sami" a écrit dans le message de
news:
voici ma macro comment la modifier pour qu'elle fonctionne sous Mac:

Private Sub ComboBox1_Change()

End Sub

Private Sub CommandButton1_Click()
Sheets("saisie tps").Range("B2").Value = ComboBox1.Value


Sheets("saisie tps").Select
Range("A16:A49").Select
Selection.ClearContents
Range("C16:C49").Select
Selection.ClearContents

Sheets("presentation").Select

UserForm1.Hide
UserForm2.Show


End Sub

Private Sub Label1_Click()

End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub UserForm_Click()

End Sub







Avatar
Jacky
"avec Veedol, on s'envole"
Alors méfies-toi du Motul..........
;-)
JJ

"twinley" <twinleym(at)hotmail.com> a écrit dans le message de
news:ufIkX%
un peu de Motul , pour que ça glisse mieux ?

--
à+twinley
"jps" a écrit dans le message de
news:
dis-moi, sami, c'est l'honorable perf qui t'a inoculé le virus
malpolitus?


jps

"sami" a écrit dans le message de
news:
voici ma macro comment la modifier pour qu'elle fonctionne sous Mac:

Private Sub ComboBox1_Change()

End Sub

Private Sub CommandButton1_Click()
Sheets("saisie tps").Range("B2").Value = ComboBox1.Value


Sheets("saisie tps").Select
Range("A16:A49").Select
Selection.ClearContents
Range("C16:C49").Select
Selection.ClearContents

Sheets("presentation").Select

UserForm1.Hide
UserForm2.Show


End Sub

Private Sub Label1_Click()

End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub UserForm_Click()

End Sub











Avatar
twinley
Je serre les fesses...

--
à+twinley
"Jacky" a écrit dans le message
de news:
"avec Veedol, on s'envole"
Alors méfies-toi du Motul..........
;-)
JJ

"twinley" <twinleym(at)hotmail.com> a écrit dans le message de
news:ufIkX%
un peu de Motul , pour que ça glisse mieux ?

--
à+twinley
"jps" a écrit dans le message de
news:
dis-moi, sami, c'est l'honorable perf qui t'a inoculé le virus
malpolitus?


jps

"sami" a écrit dans le message de
news:
voici ma macro comment la modifier pour qu'elle fonctionne sous Mac:

Private Sub ComboBox1_Change()

End Sub

Private Sub CommandButton1_Click()
Sheets("saisie tps").Range("B2").Value = ComboBox1.Value


Sheets("saisie tps").Select
Range("A16:A49").Select
Selection.ClearContents
Range("C16:C49").Select
Selection.ClearContents

Sheets("presentation").Select

UserForm1.Hide
UserForm2.Show


End Sub

Private Sub Label1_Click()

End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub UserForm_Click()

End Sub















Avatar
sabatier
:-))))
jps

"twinley" <twinleym(at)hotmail.com> a écrit dans le message de
news:ufIkX%
un peu de Motul , pour que ça glisse mieux ?