none
VBA - Récupérer le text sélectionné dans un tableau PowerPoint RRS feed

  • Question

  • Bonjour,

     

    Lorsque je crée un tableau dans Ppt, et que je sélectionne du texte dans une cellule, je ne parviens pas via VBA à retrouver ce texte... On ne me renvoie que la chaine entière de la cellule du tableau...

     

    Merci pour votre aide.

    Alexandre

    jeudi 30 décembre 2010 08:51

Réponses

  • Bon, c'est visiblement inhérent à 2007, j'ai testé sur d'autres postes.

    Effectivement ca fonctionne sur 2010 et 2003...

     

    Encore merci pour votre aide.

     

    Cdt,

    Alexandre

    • Marqué comme réponse avaesken lundi 3 janvier 2011 13:08
    lundi 3 janvier 2011 12:49

Toutes les réponses

  • bonjour Alexandre,

    regarde ici :  http://support.microsoft.com/kb/290379/

    isabelle

    Le 2010-12-30 03:51, avaesken a écrit :

    Bonjour,



    Lorsque je crée un tableau dans Ppt, et que je sélectionne du texte dans une cellule, je ne parviens pas via VBA à retrouver ce texte... On ne me renvoie que la chaine entière de la cellule du tableau...



    Merci pour votre aide.

    Alexandre

    jeudi 30 décembre 2010 10:16
  • Bonjour Isabelle,

     

    ... ton lien pointe vers une notice concernant les raccourcis Office...

    Tu as du faire une mauvaise manip.

     

    Cdt,

    Alexandre

    jeudi 30 décembre 2010 10:38
  • oui, mais cela est valable pour tout les raccourcis,
    as-tu lu la Méthode 2

    Méthode 2: Personnalisation des raccourcis avec l'Assistant Installation personnalisée
    L'Assistant d'installation personnalisé (CIW) est un outil disponible dans le Kit de ressources de Microsoft Office (ORK).
    (Pour obtenir, consultez la section « Plus d'informations » de cet article.)
    L'avantage de l'utilisation de l'Assistant Installation personnalisée est que les raccourcis personnalisés,
    que vous créez cette façon sont des raccourcis Windows Installer qui tirent parti des fonctionnalités offertes
    par le programme d'installation de Windows.

    isabelle

    Le 2010-12-30 05:38, avaesken a écrit :

    Bonjour Isabelle,



    ... ton lien pointe vers une notice concernant les raccourcis Office...

    Tu as du faire une mauvaise manip.



    Cdt,

    Alexandre

    jeudi 30 décembre 2010 10:55
  • sur cet article
    http://support.microsoft.com/kb/291288/fr
    Description des commutateurs de démarrage d'Excel

    il est dit :

    Remarque Si les options contenues sous l'onglet Raccourci de la boîte de dialogue Propriétés ne sont pas disponibles,
    vos raccourcis sont ceux de Windows Installer. Pour plus d'informations sur la modification de ces raccourcis,
    cliquez sur le numéro ci-dessous pour afficher l'article correspondant dans la Base de connaissances Microsoft.
    290379  (http://support.microsoft.com/kb/290379/ ) L'onglet de raccourci d'Office n'est pas disponible

    est ce que tu t'en sort ?

    isabelle
      Le 2010-12-30 05:55, isabelleV a écrit :

    oui, mais cela est valable pour tout les raccourcis,
    as-tu lu la Méthode 2

    Méthode 2: Personnalisation des raccourcis avec l'Assistant Installation personnalisée
    L'Assistant d'installation personnalisé (CIW) est un outil disponible dans le Kit de ressources de Microsoft Office (ORK).
    (Pour obtenir, consultez la section « Plus d'informations » de cet article.)
    L'avantage de l'utilisation de l'Assistant Installation personnalisée est que les raccourcis personnalisés,
    que vous créez cette façon sont des raccourcis Windows Installer qui tirent parti des fonctionnalités offertes
    par le programme d'installation de Windows.

    isabelle

    Le 2010-12-30 05:38, avaesken a écrit :

    Bonjour Isabelle,



    ... ton lien pointe vers une notice concernant les raccourcis Office...

    Tu as du faire une mauvaise manip.



    Cdt,

    Alexandre

    jeudi 30 décembre 2010 11:24
  • une autre possibilité ici :

    http://office.microsoft.com/fr-fr/excel-help/personnaliser-le-demarrage-d-excel-HP005199391.aspx

    Votre raccourci personnalisé peut être remplacé par un raccourci Windows Installer
    si vous nommez le raccourci Microsoft Excel et que l'une des conditions suivantes est vraie :

    Vous utilisez la commande Détecter et réparer dans Microsoft Office
    et vous avez activé la case à cocher Restaurer les raccourcis pendant la réparation.

    Vous sélectionnez l'option Réparer Office lors de l'installation en mode de maintenance,
    cliquez sur l'option Détecter et réparer les erreurs contenues dans l'installation de Office,
    puis activez la case à cocher Restaurer les raccourcis.

    isabelle

    Le 2010-12-30 06:24, isabelleV a écrit :

    sur cet article
    http://support.microsoft.com/kb/291288/fr
    Description des commutateurs de démarrage d'Excel

    il est dit :

    Remarque Si les options contenues sous l'onglet Raccourci de la boîte de dialogue Propriétés ne sont pas disponibles,
    vos raccourcis sont ceux de Windows Installer. Pour plus d'informations sur la modification de ces raccourcis,
    cliquez sur le numéro ci-dessous pour afficher l'article correspondant dans la Base de connaissances Microsoft.
    290379  (http://support.microsoft.com/kb/290379/ ) L'onglet de raccourci d'Office n'est pas disponible

    est ce que tu t'en sort ?

    isabelle
       Le 2010-12-30 05:55, isabelleV a écrit :

    oui, mais cela est valable pour tout les raccourcis,
    as-tu lu la Méthode 2

    Méthode 2: Personnalisation des raccourcis avec l'Assistant Installation personnalisée
    L'Assistant d'installation personnalisé (CIW) est un outil disponible dans le Kit de ressources de Microsoft Office (ORK).
    (Pour obtenir, consultez la section « Plus d'informations » de cet article.)
    L'avantage de l'utilisation de l'Assistant Installation personnalisée est que les raccourcis personnalisés,
    que vous créez cette façon sont des raccourcis Windows Installer qui tirent parti des fonctionnalités offertes
    par le programme d'installation de Windows.

    isabelle

    Le 2010-12-30 05:38, avaesken a écrit :

    Bonjour Isabelle,



    ... ton lien pointe vers une notice concernant les raccourcis Office...

    Tu as du faire une mauvaise manip.



    Cdt,

    Alexandre

    jeudi 30 décembre 2010 11:59
  • Il doit y avoir un malentendu, tes réponses n'ont strictement aucun rapport avec mon post.

     

    Cordialment,

    Alexandre

    jeudi 30 décembre 2010 13:49
  • désolé Alexandre, il y a un erreur d'aiguillage,

    isabelle
    ps/ si le webmaster passe par ici, ce serait aimable de supprimer mes interventions dans ce fil.
     Le 2010-12-30 08:49, avaesken a écrit :

    Il doit y avoir un malentendu, tes réponses n'ont strictement aucun rapport avec mon post.



    Cordialment,

    Alexandre

    jeudi 30 décembre 2010 14:20
  • Bonjour Alexandre

    Lorsque je crée un tableau dans Ppt, et que je sélectionne du texte dans une cellule, je ne parviens pas via VBA à retrouver ce texte... On ne me renvoie que la chaine entière de la cellule du tableau...

    Pourriez-vous mettre le bout de code que vous utilisez ?
    Vous utilisez quelle version de PowerPoint ?


    A+

    jeudi 30 décembre 2010 15:03
  • Bonjour,

    Je suis sur 2007.

    Pour tous les objets pouvant contenir du texte (à l'exception des tableaux et des objets groupés), si une chaine est sélectionnée, la "Selection" a une propriété TextRange dont on peut récupérer le Start et le Length.

     

    En revanche pour les tableaux c'est impossible :

     

    A = ActiveWindow.Selection.TextRange.Start<br/>
    
    

     

    Génère une erreur.

     

    Sub GestSelectedText()
    
    If ActiveWindow.Selection.Type = PpSelectionType.ppSelectionText Then
    
      Dim A As Integer, B As Integer, Line as Integer, Col as Integer
      ' Cas Tableau
      If ActiveWindow.Selection.ShapeRange.Type = msoTable Then
        For Col = 1 To ActiveWindow.Selection.ShapeRange.Table.Columns.Count
          For Line = 1 To ActiveWindow.Selection.ShapeRange.Table.Rows.Count
            If ActiveWindow.Selection.ShapeRange.Table.Cell(Line, Col).Selected Then
              '...
    
              '...
            End If
          Next
        Next
      Else
        A = ActiveWindow.Selection.TextRange.Start
        B = ActiveWindow.Selection.TextRange.Length
      End If
    End If
    
    End Sub
    
    

     

    Merci beaucoup pour votre aide.

    Cdt,

    Alexandre

    jeudi 30 décembre 2010 15:38
  • Re

    Si j'ai fait un peu de vba pour PowerPoint, je n'ai pas abordé cet aspect "interactif", mais je viens de faire un essai :

    A = ActiveWindow.Selection.TextRange.Start

    Ça marche bien chez moi, que l'on sélectionne une cellule entière ou une partie de texte dans une cellule.
    Si on sélectionne plus d'une cellule, le type de sélection n'est plus texte, on sort donc directement de votre code.

    Vous êtres certainement expérimenté en vba, mais j'ai fait ceci :
    Dim F As DocumentWindow
    Set F = ActiveWindow
    If F.Selection.Type = ...
    Ce qui permet de développer F dans la fenêtre des variables locales, et on y voit bien la propriété :
    F.Selection.TextRange.Start


    A+

    jeudi 30 décembre 2010 17:50
  • Bonjour et merci pour votre réponse.

    J'ai effectivement tenté cela, mais le code me renvoie invariablement une erreur : "La valeur tapée est en dehors des limites."

    La fenêtre des variables locales me dit la même chose pour textrange de selection : <La valeur tapée est en dehors des limites.>

     

    Encore merci...

    Alexandre

    lundi 3 janvier 2011 09:10
  • Bonjour Alexandre

    J'ai effectivement tenté cela, mais le code me renvoie invariablement une erreur : "La valeur tapée est en dehors des limites."

    Vous pouvez mettre une diapo sur www.cjoint.com par exemple ?
    en modifiant le texte éventuellement.
    Si vous pouviez en plus matérialiser sur une copie d'écran ce que vous sélectionnez, ce serait super.

    La fenêtre des variables locales me dit la même chose pour textrange de selection : <La valeur tapée est en dehors des limites.>

    Là c'est cohérent avec le résultat obtenu dans le code.


    A+

    lundi 3 janvier 2011 09:56
  • Voici le lien :

     

    http://cjoint.com/?0bdlBFXuAu4

     

    Il suffit de sélectionner un out de texte dans une cellule et de lancer la procédure GetSelectedText().

     

    Cdt,

    Alexandre

    lundi 3 janvier 2011 10:29
  • Re

    Cela fonctionne bien avec la version 2010, la sélection :
    http://cjoint.com/?0bdnuje8RyK

    et le résultat, conforme à ce que vous souhaitez :
    http://cjoint.com/?0bdnwvE4hZS

    Je n'ai pas de version 2007 sous la main pour vérifier.
    Peut-être qu'en mettant votre exemple sur le forum Outlook (answers) vous trouveriez quelqu'un pour faire l'essai.

    A tout hasard, tentez une réparation de Office.


    A+

    lundi 3 janvier 2011 12:25
  • Bon, c'est visiblement inhérent à 2007, j'ai testé sur d'autres postes.

    Effectivement ca fonctionne sur 2010 et 2003...

     

    Encore merci pour votre aide.

     

    Cdt,

    Alexandre

    • Marqué comme réponse avaesken lundi 3 janvier 2011 13:08
    lundi 3 janvier 2011 12:49
  • Bonsoir

    Bon, c'est visiblement inhérent à 2007, j'ai testé sur d'autres postes.

    Effectivement ca fonctionne sur 2010 et 2003...

    Merci pour le retour et ces informations.


    A+

    lundi 3 janvier 2011 17:58