De Excel windows a Excel:mac URGENT

Re : De Excel windows a Excel:mac URGENT

JeanMarie à dit:

Bonsoir

La première des choses, est de placer un fichier sur le forum, pour que les différents utilisateurs mac de ce forum puissent le tester.

Attention, les fichiers doivent être sans mot de passe pour l'accès au VBA. Merci

@+Jean-Marie

Cliquez pour agrandir...

si j'arrive a le deverouiller correctemement je pourrais pte le mettre lool

Re : De Excel windows a Excel:mac URGENT

Bonjour,

Une chose que je vois là, peut être que cela n'a rien avoir mais dans ton code les instructions :

Sheets(Prop1) ... devraient être Sheets("Prop1")

Bon à part cela, comme Jean Marie, si l'on n'a pas ton fichier, ce n'est pas facile de t'aider.

Dis nous également qu'elle est la version d'excel sous windows.

Cordialement

Message pour JYLL : ok donne nous ton projet. on pourra regarder.

Re : De Excel windows a Excel:mac URGENT

Dan à dit:

Bonjour,

Une chose que je vois là, peut être que cela n'a rien avoir mais dans ton code les instructions :

Sheets(Prop1) ... devraient être Sheets("Prop1")

Bon à part cela, comme Jean Marie, si l'on n'a pas ton fichier, ce n'est pas facile de t'aider.

Dis nous également qu'elle est la version d'excel sous windows.

Cordialement

Message pour JYLL : ok donne nous ton projet. on pourra regarder.

Cliquez pour agrandir...

Je sais que sans le fichier vous pouvez pas beaucoup m'aider mais disons que j'ai pas le droit de le donner a d'autre.

Sur le PC j'ai excel 2003 fr
Sur la mac excel 2004 en

et je pense que le fichier a du etre fait avec excel 98 prc que la date de creation est en 99

Se qui pose probleme au depart avec mac c'est qu'il ne supporte pas le RowSource ....
Je voulais donc change ca (meme si je sais pas a quoi ca sert ni quoi mettre a la place mdr) c'est pour ca que j'essaie d'acceder au code

Si ce que je ne comprend pas non plus c'est pourquoi excel:mac ne propose pas de boite de dialogue pour la saisie du mot de passe

Et un autre detail que j'ai vu aussi c'est que si je fais clique droit sur une feuille ou module, j'ai un menu exporter ou importer or dqns mon excel:mac y a poas ca quand je clique droit bizzarre

un autre truc , mais cette fois ci du cote excel windows
Comme lorsque j'ouvre mon fichier en excel j'ai un interface macro qui s'ouvre et que lorsque je clique sur le bouton fin (integrer par l'auteur dans son application) la page excel entiere se referme je suis obliger de faire ouvrir mon fichier avec internet explorer pour qu'a la fermeture de mon interface j'ai encore le fichier ouvert . c'est normal ca?

Re : De Excel windows a Excel:mac URGENT

Re...

Pour la propriété RowSource, qui n'est pas supportée sur le mac.
Par exemple, pour remplacer
il faut,

Attention, si tu utilises l'événement Change de la listbox1, le fait d'ajouter ou de changer le contenu d'un item de la listebox par programmation, fait déclencher l'événement.

Je le répète, c'est plus simple avec un fichier.

@+Jean-Marie

Re : De Excel windows a Excel:mac URGENT

JeanMarie à dit:

Re...

Pour la propriété RowSource, qui n'est pas supportée sur le mac.
Par exemple, pour remplacer

Code:

ListBox1.RowSource = "A1:A10"

il faut,

Code:

Dim vCell As Range
Dim J As Byte
J = 1
   For Each vCell In Range("A1:A10")
      ListBox1.AddItem vCell
      J = J + 1
   Next vCell

Attention, si tu utilises l'événement Change de la listbox1, le fait d'ajouter ou de changer le contenu d'un item de la listebox par programmation, fait déclencher l'événement.

Je le répète, c'est plus simple avec un fichier.

@+Jean-Marie

Cliquez pour agrandir...

merci

je vais voir ce que je peut faire pour ca lol

mais la je vais dormir
je travail demain donc debout tot

bizz

Re : De Excel windows a Excel:mac URGENT

Voici une de mes procedures , il faudrait que je puisse changer la propriété rowSource
Si quelqu'un sait m'aider ..;

Private Sub ComboBox6_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Select Case ComboBox6.ListIndex
Case -1
MsgBox texte3
ComboBox6.SelStart = 0
ComboBox6.SelLength = Len(ComboBox6)
ComboBox6.SetFocus
Cancel = True
Case 0
ComboBox7 = ""
ComboBox7.Visible = False
Case Else
ComboBox7.Visible = True
agce = ComboBox6.Text * 1
Workbooks("CO.xls").Activate
Worksheets("PVD").Activate
z = Cells(2, 2)
ldeb = 2
While (z <> agce And ldeb < 1000)
ldeb = ldeb + 1
z = Cells(ldeb, 2)
Wend
If ldeb = 1000 Then
ComboBox7.Visible = False
ComboBox7 = ""
ThisWorkbook.Activate
Exit Sub
End If
lfin = ldeb
While z = agce
lfin = lfin + 1
z = Cells(lfin, 2)
Wend
rr$ = "PVD!$d$" + CStr(ldeb) + ":$d$" + CStr(lfin - 1)
ComboBox7.RowSource = rr$
If ComboBox7.Text = "" Then ComboBox7.ListIndex = 0
ComboBox7.SelStart = 0
ComboBox7.SelLength = Len(ComboBox7)
ThisWorkbook.Activate
End Select
End Sub

Cliquez pour agrandir...