Version imprimable
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
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
Ou plus simplement car c'est 1 celluleCode:ActiveSheet.Range("A1").Copy Destination:=WKST_Feuil1.Cells(25, 5)
A+Code:WKST_Feuil1.Cells(25, 5).Value = ActiveSheet.Range("A1").Value
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.
Hello,
Il faudrait voir tout ton code pour essayer de t'en dire plus.Citation:
Envoyé par MULTON
Ami calmant, J.P
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.
Pièce jointe 626653
Pièce jointe 626654
Tu peux essayer de mettre un :
ou de sélectionner la cellule de destination :Code:DoEvents
entre le copy et le pasteCode:WKST_Feuil1.Cells(10, 5).Select
