Macro Boucle (Problèmes pour comprendre source du problème)

Bonjour à tous,

sachant que je manque d'expérience dans l'utilisation de macros, je viens de tomber sur un macro dont le fonctionnement je n'arrive pas à bien comprendre. Il s'agit d'un macro de boucle ("loop") pour copier les données d'un fichier excel sur une base de Powerpoint.

Du coup j'ai du modifier le contenu d'un onglet du fichier excel, en rajoutant une ligne juste en dessus de la cellule contenant le "stop" qui devrait faire arrêter la boucle. Malheureusement, le fait d'ajouter cette ligne fait que le macro n'arrive pas au bout. Ci-dessous la partie du macro (entre xxxx ) qui devrait être à la base du problème, au cas où quelqu'un aurait une idée de pourquoi exactement l'erreur se produit

Dim j As Integer

j = 1

Do Until Range("A" & j) = "stop"

xxxxxx Set oPPTShape = oPPTFile.Slides(SlideNum).Shapes(Range("A" & j)) xxxxxxxxx

With oPPTShape.TextFrame.TextRange

.Text = Range("B" & j)

End With

j = j + 1

Loop

Pour votre attention merci d'avance.

Cordialement

Bonjour toutes et tous

pour la boucle ici sur le forum un tutoriel qui est très intéressant pour boucler une boucle

voir les boucles

crdlt,

André

Merci pour le lien André, ça c'est très utile