Discussion :

[Fab_de_chez_PERFORM]

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

[Alex020181]

Bonjour

Reprise de ton code

Code vba :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Fab_de_chez_PERFORM]

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.

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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é

[Fab_de_chez_PERFORM]

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 !