Discussion :

[MULTON]

Bonjour à tous,
comme expliqué dans le titre j'ai un programme qui détecte un bug sur cette instruction : ActiveSheet.Paste Destination:=WKST_Feuil1.Cells(25, 5)

La méthode paste ne passe pas. La copie est celle d'un shape.

En passant ensuite par F8 ou F5 le programme continue comme s'il n'y avait plus de bug.

Ce phénomène ne se reproduit pas systématiquement et comme je ne suis pas le seul à l'utiliser, c'est pénalisant pour l'équipe.

Peut-être aurez -vous une solution à ce problème

[Invité]

Bonjour Multon,

D'après ce que je vois, vous voulez coller 1 cellule dans une autre feuille, alors

1) Pour 1 cellule, pourquoi faire du copier/coller

2) Votre instruction n'est pas correcte, normalement c'est

Code :

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

ActiveSheet.Range("A1").Copy Destination:=WKST_Feuil1.Cells(25, 5)

Ou plus simplement car c'est 1 cellule

Code :

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

WKST_Feuil1.Cells(25, 5).Value = ActiveSheet.Range("A1").Value

A+

[MULTON]

Bonjour et merci pour votre réponse.
Ce sont des objets (shapes) que je déplace.
Je vais essayer votre première syntaxe.

Ce que je ne comprends pas c'est que le programme s'arrête avec boite de dialogue "bug". En cliquant sur débogage on rentre bien dans VBA sur la ligne de code qui pose problème, mais en cliquant sur F5 le programme continue normalement.
De plus ce problème ne se reproduit qu'aléatoirement.

[jurassic pork]

Hello,

Ce que je ne comprends pas c'est que le programme s'arrête avec boite de dialogue "bug". En cliquant sur débogage on rentre bien dans VBA sur la ligne de code qui pose problème, mais en cliquant sur F5 le programme continue normalement.

Il faudrait voir tout ton code pour essayer de t'en dire plus.
Ami calmant, J.P

[MULTON]

Le but du programme est de créer une image d'un avion avec ses équipements optionnels.

Cet avion et ces équipements optionnels sont chacun matérialisés par des images (shapes) indépendantes sur "Feuil1"

Les optionnels sont tirés d'une liste informatisée extraite (.xls) d'un programme de suivi professionnel.

Le but est donc de matérialiser cette liste en image et ceci pour une vingtaine d'avions.

Si sur la ligne correspondant à l'avion "X" la colonne 5 contient "ATLIS"
If WKST_extrac.Cells(X, 5) Like "*ATLIS*" Then
Je défini oSHp comme correspondant à l'image "CLBD"
Set oSHp = WKST_Feuil1.Shapes("CLBD")
Je la copie
oSHp.Copy
je la colle
ActiveSheet.Paste Destination:=WKST_Feuil1.Cells(10, 5)
et je change sa position et son nom
oSHp.Left = 45.4
oSHp.Top = 42
oSHp.Name = "CLBD_G"
End If

Quand tous les optionnels sont placés, je groupe les formes, je renomme le groupe et le colle sur une autre feuille.

Le programme fonctionne très bien, mis à part de temps en temps cet arrêt sur la méthode past ou copy. En cliquant sur débogage puis sur F5 ou F8 le programme continue sans problème.
J'ai essayé la syntaxe de Bruno mais cela ne résout pas le problème.
Ci-dessous les silhouettes avec ou sans optionnel.

[jurassic pork]

Tu peux essayer de mettre un :

Code :

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

DoEvents

ou de sélectionner la cellule de destination :

Code :

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

WKST_Feuil1.Cells(10, 5).Select

entre le copy et le paste