Compatibilite PC<->Mac... panique à bord !!!

[i0r@eK]

Salut tout le monde,

voila je viens de finir mon programme vba sur excel 2000 PC qui est en fait destiné à excel Mac vX.

ce matin, tout content je mets mon petit programme sur le Mac et la grsse panique rien ne marche !!! que ce soit mes boutons de lancement de userforms sur les feuilles aux userforms elles-mêmes !!!

est ce que quelqu'un connait la source de mon problème ???

En espérant que quelqu'un pourra m'aider...

merci d'avance pour toutes vos réponses !!!

 

[i0r@eK]

en fait j'ai une userform qui envoie dans données sur plusieurs feuilles.
Donc j'envoie toute mes données vers la feuille 1, une fois terminé, je change de feuille envoie les données sur la feuille 2 etc....

c'est pour effectuer c'est changement que j'utilise la commande .Activate ou .Select


en espérant que ca va t'éclairer !!!!

merci pour ton aide

Guillaume.

 

[PascalXLD]

RE

Dans ce cas là tu n'es pas obligé de selectionner

sheets('Feuil1').range('A1')=me.textbox1.value

par exemple

 

[Dan]

Re,

J'ai essayé ce quee je t'ai proposé avant et cela fonctionne parfaitement chez moi et sous MAC de plus.

Tu dois surement avoir un autre pb.

essaie:

1. d'enclencher ta macro par menu/outils/macro plutôt que par VBA.
ou
2. Supprime la et réécris la. Cela arrive parfois que cela bug aussi bizarre que cela puisse paraitre.

Rem : Avoir le code complet serait peut-être intéressant aussi.

 

[i0r@eK]

Ok pour les valeurs des userform ca marche par contre... hélas il y a un piti Hic : lorsque je remplis mes combo box par la méthode des add item ca ne fonctionne pas...

voici le code que j'utilise :

Private Cel As Range
Private L1 As Integer, L2 As Integer, L3 As Integer, L4 As Integer
Private P1 As Range, P2 As Range, P3 As Range, P4 As Range
Private L11 As Integer, L22 As Integer, L33 As Integer, L44 As Integer
Private P11 As Range, P22 As Range, P33 As Range, P44 As Range
Private L111 As Integer, L222 As Integer, L333 As Integer, L444 As Integer, L555 As Integer
Private P111 As Range, P222 As Range, P333 As Range, P444 As Range, P555 As Range
Private x As Integer


Private Sub UserForm_Initialize()

''PARTIE BUREAU DE CONTROLE

    L1 = shtDonnees.Range('B500').End(xlUp).Row
    L2 = shtDonnees.Range('C500').End(xlUp).Row
    L3 = shtDonnees.Range('D500').End(xlUp).Row
    L4 = shtDonnees.Range('E500').End(xlUp).Row
    
    Set P1 = shtDonnees.Range('B7:B' & L1)
    Set P2 = shtDonnees.Range('C7:C' & L2)
    Set P3 = shtDonnees.Range('D7:D' & L3)
    Set P4 = shtDonnees.Range('E7:E' & L4)
    
    
    frmBuroExt.regNomCont.Clear
    frmBuroExt.regAdresseCont.Clear
    frmBuroExt.regCPCont.Clear
    frmBuroExt.regTelCont.Clear

lorsque je lance la userform il bug sur cette ligne

L1 = shtDonnees.Range('B500').End(xlUp).Row

vous avez une idée ???

 

[i0r@eK]

je viens de transformer le code en tapant

sheets('Feuil1').Active
Range('A1').Select

et ca marche partout sauf dans la procedure

UserForm_Initialize()

ou il continu à buger !

ps : Excuse moi Dan comme cette partie est en tete du programme il s'arretait dessus sans aller a la suite... pardon !

si vous pensez a un truc dite, je suis open !!!

Merci BEAUCOUP !!!!

Guillaume

ps : je ve bien vous passer le programme mais il fe 1 Mo...

 

[PascalXLD]

re

comment il connait la valeur de shtDonnees ???

 

[i0r@eK]

est ce que ca t'aiderais si je t'envoyais le code complet ???

Guillaume

 

[PascalXLD]

tu sais moi je suis sur pC et je n'ai jamais bossé sur MAC

alors note le si tu veux mais ...

 

[i0r@eK]

en fait pour éviter les problèmes lorsque l'on renomme les feuilles j'ai changer le 'name' de la feuille donc shtDonnees c'est le nom de ma feuille contenant ma base de données

voilà


Guillaume

 

[i0r@eK]

ce qui m'énerve plus que tout c'est qu'il tourne comme un horloge sur mon pc mais sur le Mac c'est la cata :'( c'est vraimment....... !!!

merci pour vore aide c'est vraimment sympa de votre part !!!

 

[Hervé]

re


Tu devrais répondre aux questions que l'on te pose.

Pascal ta demandé :

comment il connaît la valeur de shtDonnees ???

Dans ton code tu fais référence à : L1 = shtDonnees.Range('B500').End(xlUp).Row

Mais on ne retrouve pas l’initialisation de cette variable, tu devrais avoir dans ton code :

Dim shtdonnees as worksheet
Set shtDonnees = sheets('shtDonnees')
L1 = shtDonnees.Range('B500').End(xlUp).Row
....

A moins que tu initialises cette variable ailleurs en la déclarant public ???

Ce qui me surprend la dedans c’est que ca devrait aussi buggé sur PC.

salut

Message édité par: herve, à: 29/07/2005 15:20

 

[i0r@eK]

désolé je croyais avoir répondu...

je ne la déclare nulle part... mais je vous promet que ça ne plante pas sur pc

désolé pour la 'mauvaise' réponse

Guillaume

 

[PascalXLD]

Re

Excuse moi mais là je ne comprends pas comment la mcro peut savoir ce que c'est que ce shtDonnees si tu ne le déclares nul part

:silly:

 

[i0r@eK]

Est ce que je peux t'envoyer le code pc pour que tu voyes ce sera peut etre plus simple ?

Guillaume

 

[PascalXLD]

Vas-y copies le ici