Forums XLPages

Tous les messages (Jacky)

1 2 3 »
Re: Nouveau Site XLPages - Annonce et Test !
#1
Aspirant XLPages

Inscription: 23/03/2012

Messages: 22

Système d'exploitation:
PC
Version Excel utilisée:
2010 - 32bits
Posté le : 09-06-2013 01h30

Bonjour Didier, le Forum.

 

Toutes mes félicitations pour la nouvelle mouture de My Dear Friend. Très beau travail.  yes  wink

 

Amicalement Jacky  cool

 


Jacky - coupdepouce.mabulle.com
Hors Ligne
Rapport   Haut 

Re: Appels Macros avec MsgBoxPerso
#2
Aspirant XLPages

Inscription: 23/03/2012

Messages: 22

Système d'exploitation:
PC
Version Excel utilisée:
2010 - 32bits
Posté le : 04-05-2013 20h32
Re Didier,

bien sûr que tu as raison. Mais moi aussi je trouvais trop simpliste et sans vie, le faite de cliquer sur le mot et le faire apparaître dans une cellule ou mettre une MsgBox standard.

Et si VBA existe c'est bien le faite aussi de créer quelque chose de différent. Par exemple, j'ai vu un jour que tu avais créé une fonction pour inserer '  : ' dans une textbox pour avoir le format heure. Pourquoi compliquer les choses quand on peux faire simple.

TextBox1.Value = Replace(TextBox1.Value, ".", ":") . Je ne sais pas si tu vois ce que je veux dire


dans tous les cas, super travail sur le fichier. Merci mille fois.


Amicalement Jacky - loup solitaire.




Jacky - coupdepouce.mabulle.com
Hors Ligne
Rapport   Haut 

Re: Appels Macros avec MsgBoxPerso
#3
Aspirant XLPages

Inscription: 23/03/2012

Messages: 22

Système d'exploitation:
PC
Version Excel utilisée:
2010 - 32bits
Posté le : 04-05-2013 15h29
Re Didier,

désolé du retard, j'ai dû m'absenter.


J'utilise Office 2010 32bits. En ce qui concerne l'erreur, c'est en insérant ces lignes:

If vRet = 1 Then
    n = n + 1
    vRet = MsgBoxPerso("Voulez-vous traduire ce mot ?
C'est à partir d'ici, que je souhaite pouvoir sélectionner un mot et que la macro excécute la traduction.

If vbOK = True then Call Trad_F_A   oubien   If Vret <> "" Then Call Trad_F_A

If vRet = 2 Then
    n = n + 1

Reste du code...


En souhaitant que ce soit plus compréhensible.



A+



Jacky - coupdepouce.mabulle.com
Hors Ligne
Rapport   Haut 

Appels Macros avec MsgBoxPerso
#4
Aspirant XLPages

Inscription: 23/03/2012

Messages: 22

Système d'exploitation:
PC
Version Excel utilisée:
2010 - 32bits
Posté le : 04-05-2013 11h12
Bonjour Didier, le Forum


Suite au tuto sur la MsgBoxPerso, je suis entrain de réalisé un fichier de traduction de mots de Français en Anglais et vice-versa. J'essaie d'appeler les deux macros (Trad_F_A - Trad_A_F) et j'ai un message d'erreur Objet Requis. Tu voudrais bien jeter un coup d'oeil et les adapter s'il te plaît?

Merci infiniment


A bientôt
Pièce jointe:
zip Classeur1.zip   [ Taille: 41.65 Ko - Téléchargements: 520 ]

Jacky - coupdepouce.mabulle.com
Hors Ligne
Rapport   Haut 

Re: Contrôles supplémentaires ne s'affiche pas
#5
Aspirant XLPages

Inscription: 23/03/2012

Messages: 22

Système d'exploitation:
PC
Version Excel utilisée:
2010 - 32bits
Posté le : 28-03-2013 03h50
Bonjour chindou,

regardez le lien suivant qui donne une solution au problème.

Contrôles supplémentaires


A bientôt.

Jacky - coupdepouce.mabulle.com
Hors Ligne
Rapport   Haut 

Tous mes Voeux 2013
#6
Aspirant XLPages

Inscription: 23/03/2012

Messages: 22

Système d'exploitation:
PC
Version Excel utilisée:
2010 - 32bits
Posté le : 03-01-2013 20h38
Bonjour à toutes et à tous,

juste un petit coucou de passage pour vous souhaiter une très bonne année (avec un petit retard), pleines de bonnes surprises, de l'amour en famille(et pas la guerre) et que du bonheur en cette année 2013.

Jacky - coupdepouce.mabulle.com
Hors Ligne
Rapport   Haut 

Re: Activer la vue aérienne sur Virtual Earth
#7
Aspirant XLPages

Inscription: 23/03/2012

Messages: 22

Système d'exploitation:
PC
Version Excel utilisée:
2010 - 32bits
Posté le : 05-08-2012 20h08
Bonsoir Didier,

hier j'ai répondu à ton message, mais j'ai du faire une fausse manip vu qu'il n'est pas passé.

Je te remercie d'avoir répondu et j'aurais juste une dernière question concernant ceci:

dans & "shape.SetDescription('" & nom & "');", comment inserer une nouvelle ligne? .

J'ai chercher dans les liens que tu as mis, mais j'ai rien trouvé, vu qu'en plus, l'anglais n'est pas vraiment mon fort.


A bientôt.
    
  

Jacky - coupdepouce.mabulle.com
Hors Ligne
Rapport   Haut 

Re: Activer la vue aérienne sur Virtual Earth
#8
Aspirant XLPages

Inscription: 23/03/2012

Messages: 22

Système d'exploitation:
PC
Version Excel utilisée:
2010 - 32bits
Posté le : 03-08-2012 21h00
Bonsoir Didier, Le Forum.

Tout d'abord, toutes mes excuses pour les précendents messages. Je ne sais pas pourquoi j'ai écrit Michel et je ne t'ais pas remercié pour l'excellent tuto que tu as fais sur Virtual Earth.

Voici une adaptation sur une feuille Excel pour les Versions 2007 et 2010.

Mode d'emploi:

Ne pas modifier les boutons d'options, laissez-les tel-quels.

Faites la recherche, ensuite vous pouvez cliquez sur le bouton Page d'impression, pour pouvoir imprimer l'itinéraire. Pour revenir sur la page par défaut de Virtual Earth, cliquez sur  le bouton << Page.

Petit incovénient: il se peut que, suivant les résolutions d'écran, les lignes soient décalées. Il faudra alors modifier dans le Module Md_GH, celles-ci en gras:

If cel = "" Then cel.Delete
 End If
 Feuil2.[A51:A60].Copy Feuil1.[F8]
 Feuil1.optKms = True
 Feuil1.chkNav = True
 Next cel

lien: ICI

A bientôt.



Jacky - coupdepouce.mabulle.com
Hors Ligne
Rapport   Haut 

Re: Activer la vue aérienne sur Virtual Earth
#9
Aspirant XLPages

Inscription: 23/03/2012

Messages: 22

Système d'exploitation:
PC
Version Excel utilisée:
2010 - 32bits
Posté le : 02-08-2012 13h26
Re Michel,

j'ai trouvé ceci sur Msdn.

  1. // Scroll method for the Zoom trackbar control.
    private void zoomTrackBar_Scroll(object sender, EventArgs e)
    {
        webBrowserMap.Document.InvokeScript("SetMapZoomLevel", new object[] { zoomTrackBar.Value });
    }
    
    // Adding the CheckedChanged Event method.
    private void rdRoad_CheckedChanged(object sender, EventArgs e)
    {
        webBrowserMap.Document.InvokeScript("SetMapStyle", new object[] { "r" });
    }
    
    // Adding the CheckedChanged Event method.
    private void rdAerial_CheckedChanged(object sender, EventArgs e)
    {
        webBrowserMap.Document.InvokeScript("SetMapStyle", new object[] { "a" });
    }
    
    // Adding the CheckedChanged Event method.
    private void rdHybrid_CheckedChanged(object sender, EventArgs e)
    {
        webBrowserMap.Document.InvokeScript("SetMapStyle", new object[] { "h" });
    }
    
    
  2. function SetMapZoomLevel(zoomLevel)
    {
        map.SetZoomLevel(zoomLevel);
    }
    
    function SetMapStyle(mapStyle)
    {
        map.SetMapStyle(mapStyle);
    }
    
mais je ne sais pas comment modifier le code (Vue aérienne). Et j'aimerais l'avoir directement sur un bouton, au lieu d'une checkbox.


A+ 

Jacky - coupdepouce.mabulle.com
Hors Ligne
Rapport   Haut 

Activer la vue aérienne sur Virtual Earth
#10
Aspirant XLPages

Inscription: 23/03/2012

Messages: 22

Système d'exploitation:
PC
Version Excel utilisée:
2010 - 32bits
Posté le : 02-08-2012 11h22
Bonjour Michel, le Forum

Est-ce que il y a la possibilité d'activer la vue aérienne, comme les Zoom?
Qu'elle est la  ligne de code?

A+


Jacky - coupdepouce.mabulle.com
Hors Ligne
Rapport   Haut 

1 2 3 »