Copier une cellule sur plusieurs diapos

Question

Bonjour, 
Je voudrais savoir comment faire pour pouvoir copier une même cellule (provenant d'excel) sur plusieurs diapos en évitant d'avoir à retaper tout le code à chaque fois. Voilà mon code:
Sheets("TEST").Select
Range("CATOTAL").Select
Selection.CopyPicture
Pres.Slides(17).Shapes.Paste
NbShpe = Pres.Slides(17).Shapes.Count
With Pres.Slides(17).Shapes(NbShpe)
.Name = "CATOTAL"
.Left = 581
.Top = 55
.Height = 50
.Width = 140
.ZOrder msoSendToBack
End With

Avec ce code, mon "CATOTAL" se colle donc sur la diapo 17 mais j'aimerai également qu'il se colle sur la diapo 18 - 19 - 20 etc sans avoir à tout retaper à chaque fois. 
Merci

ucfoutu · Answer

Bonjour,
Il va falloir que tu apprennes à être précis et clair.
Il nous faut  deviner ce qu'est Pres ? (je le devine bien, mais refuse de me prêter à ce genre de jeu de devinettes !). 
Alors ?

camille0303 · Answer

Bonjour, 
Pour tout avouer je ne m'y connais pas énormément et je ne suis pas capable de te dire ce que signifie ce "pres" (ce n'est pas moi qui ai fait ce bout de code, il marche et je n'ai pas cherché à l'observer en détail). 
Désolé pour le peu de détails. Je cherche à passer d'un excel à un ppt. 
Sheets("TEST").Select --> Le nom de ma feuille dans excel
Range("CATOTAL").Select --> Mon tableau que j'ai nommé dans excel.
J'espère que ces précisions pourront vous éclairer un peu plus.
Merci

cs_MPi · Answer

Il te faudrait faire une boucle et éventuellement mettre les noms de tes plages et slides dans des tableaux.

ex:
Dim MesRanges, MesSlidesMesRanges = Array("CATOTAL", "AUTRENOM", "AUTRENCORE")MesSlides = Array(17, 18, 19)for i = 0 to ubound(MesRanges)Sheets("TEST").Range(MesRanges(I)).CopyPicture Pres.Slides(MesSlides(I)).Shapes.Paste    '....Next

Copier une cellule sur plusieurs diapos

3 réponses

Votre réponse

Discussions similaires