Mon Code VBA ne fonctionne pas toujours

Bonjour
je suis confronté à une curiosité : le code VBA ci dessous ne fonctionne pas toujours

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim Loop3 As Integer   Sheets("FEUILLE CANTINE VIERGE").Select ActiveSheet.Shapes.Range(Array("RECT_PERIODE", "RECT_FOND")).Select Selection.Copy Sheets("FEUILLES GENEREES").Select   For Loop3 = 1 To Nb_Familles Dim Ligne8 As String Ligne8 = Loop3 * 21 - 14   Range("B" & Ligne8).Select ActiveSheet.Paste Next Loop3

---

Cela marche de temps en temps en le lançant depuis le bouton ; cela fonctionne systématiquement si je suis en mode pas à pas (F8)
Quand cela foire, c'est au niveau de la ligne ActiveSheet.Paste

Pour expliquer le processus, je vais sur une feuille "modèle" copier 2 images pour pouvoir les coller x fois sur une autre feuille
J'ai le sentiment que le problème vient + de là : ActiveSheet.Shapes.Range(Array("RECT_PERIODE", "RECT_FOND")).Select
(j'ai déjà essayé de grouper les 2 images, mais cela revient à la même chose...)

Quelqu'un aurait une piste à me proposer pour résoudre ce problème ?
Merci par avance

Bonjour

Reprise de ton code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Dim Loop3 As Integer   Sheets("FEUILLE CANTINE VIERGE").Select ActiveSheet.Shapes.Range(Array("RECT_PERIODE", "RECT_FOND")).Select Selection.Copy Sheets("FEUILLES GENEREES").Select   For Loop3 = 1 To Nb_Familles Dim Ligne8 As String Ligne8 = Loop3 * 21 - 14   Range("B" & Ligne8).Select ActiveSheet.Paste Next Loop3

---

Je n'ai pas mon PC pour tester mais juste mon smartphone pour répondre.

Tu as à lecture du code plusieurs points:
_ nb_familles n'est jamais ni déclaré ni initialisé
_ ligne8 est déclaré dans une boucle et en string alors qu'apparament tu fais une addition avec et en plus tu t'en sers comme référence de ligne

Je ne dis pas que c'est la source de ton erreur mais c'est pour le moins incorrect.

Bonjour
merci pour le retour.
Le bout de code publié pour ma question n'est effectivement qu'un extrait. Les éléments sont bien déclarés au préalable.

Pour le "ligne_8", j'ai cette très mauvaise habitude de déclarer en string tu as raison. Sinon, je me sers bien de cette info pour trouver une ligne où copier mes 2 cadres.
(il faut imaginer un formulaire vierge que je duplique autant de fois que j'ai de familles, les uns sous les autres)

Depuis ma demande initiale, pour l'utilisation du programme, j'ai remplacé mes 2 formes par des cellules fusionnées et ca fonctionne.
Je reste néanmoins curieux de savoir pourquoi avec les formes des fois ca passe, et des fois non.

Bonjour,
Maintes fois répétés sur ce site, les méthodes Select et objet Selection sont à proscrire.

Voici un exemple de la copie d'une forme nommée sh_Triangle de la feuille dont le CodeName est shtTemplate vers les cellules de la la ligne 4 et toutes le deux colonnes à partir de la deuxième de la feuille dont le CodeName est shtTarget

Code:

---

1 2 3 4 5 6 7 8 9

Sub t() Dim c As Integer shtTemplate.Shapes("sh_Triangle").Copy For c = 2 To 20 Step 2 With shtTarget .Paste Destination:=.Cells(4, c) End With Next End Sub

---

Pour savoir ce qu'est le CodeName d'une feuille, voir le billet VBA – CodeName d’une feuille Excel

[EDIT]
Ce n'était pas la ligne 10 mais la 4. J'ai corrigé dans le libellé

Merci Philippe pour cette correction
Et désolé si j'ai fait répéter une fois de plus
Je vais mettre cela en pratique et [peut être] réussir à progresser encore un peu !