Bonjour
je suis confronté à une curiosité : le code VBA ci dessous ne fonctionne pas toujours
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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