VBA - Inserer une plage de cellule dans une zonetexte sur powerpoint

Bonjour à tous,

Je me rapproche de vous car je rencontre un soucis. J'essaye de réaliser un macro qui me permet de copier des plages de cellules d'un fichier excel dans un PPT déjà créé avec des zone de texte bien défini.

Avec le code ci-dessus j'arrive sans problème à intégrer une cellule.

With PptDoc
    .Slides(1).Shapes("liste_projet_engage").TextFrame.TextRange.Text = Sheets("camions").Range("C6").Value
End With

Mais lorsque je souhaite intégrer une plage de cellule j'ai automatiquement une erreur. (avec le code ci-dessous)

With PptDoc
    .Slides(1).Shapes("liste_projet_engage").TextFrame.TextRange.Text = Sheets("camions").Range("C6:C20").Value
End With

Auriez-vous une idée de la méthode à utiliser ?

Merci par avance pour votre aide.

Bonne journée ou vacances pour certains

Bonjour,

à tester,

tb = Sheets("camions").Range("C6:C20").Value
For i = LBound(tb) To UBound(tb)
 t = t & tb(i, 1) & vbCrLf
Next

With PptDoc
    .Slides(1).Shapes("liste_projet_engage").TextFrame.TextRange.Text = t
End With

Bonjour,

à tester,

tb = Sheets("camions").Range("C6:C20").Value
For i = LBound(tb) To UBound(tb)
 t = t & tb(i, 1) & vbCrLf
Next

With PptDoc
    .Slides(1).Shapes("liste_projet_engage").TextFrame.TextRange.Text = t
End With

Merci beaucoup cela fonctionne du tonnerre !!!!!!!

Rechercher des sujets similaires à "vba inserer plage zonetexte powerpoint"