XL 2019 ActiveSheet.Paste ne fonctionne pas

[eduraiss]

Bonjour le forum

Activeseeht.paste ne fonctionne pas voici le code
J'ai changé de version excel, le fichier était en 97 2003 il est maintenant en xlsm, avant pas de soucis

voici le code
Sub autoshape()

For n = ActiveSheet.Shapes.Count To 1 Step -1
If InStr(ActiveSheet.Shapes(n).Name, "Oval") <> 0 Or InStr(ActiveSheet.Shapes(n).Name, "AutoShape") <> 0 Then
ActiveSheet.Shapes(n).Delete
End If
Next n

colonnes = Array("B", "C", "E", "G", "I", "J")

For n = LBound(colonnes) To UBound(colonnes)
For m = 1 To 149
If Range(colonnes(n) & m) <> "" Then
If InStr(Range(colonnes(n) & m), "?") = 0 Then

Set c = Sheets("CODEDATE").Range("N3:W1000").Find(Range(colonnes(n) & m), LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
firstAddress = c.Address
Do

Select Case c.Column
Case 14
Sheets("CODEDATE").Shapes("Oval 10").Copy
Case 15
Sheets("CODEDATE").Shapes("Oval 94").Copy
Case 16
Sheets("CODEDATE").Shapes("Oval 95").Copy
Case 17
Sheets("CODEDATE").Shapes("Oval 96").Copy
Case 18
Sheets("CODEDATE").Shapes("Oval 97").Copy
Case 19
Sheets("CODEDATE").Shapes("Oval 98").Copy
Case 20
Sheets("CODEDATE").Shapes("Oval 99").Copy
Case 21
Sheets("CODEDATE").Shapes("Oval 100").Copy

End Select

ActiveSheet.Paste
If c.Column < 22 Then
Selection.Top = Range(colonnes(n) & m).Top + 2
Selection.Left = Range(colonnes(n) & m).Left + (c.Column - 14) * 8 + 2
Else

End If
Set c = Sheets("CODEDATE").Cells.FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End If
End If
Next m
Next n
Range("A1").Select

End Sub

Merci de votre aide

 

[eduraiss]

Hop pardon

 

[job75]

Vous ne répondez même pas à mon dernier message, allez vous faire voir ailleurs.

 

[eduraiss]

Ben il me semblait avoir répondu désolé oui le #43 fonctionne correctement sans bug
Mille excuses

 

[job75]

oui le #43 fonctionne correctement sans bug

Alors ce fil est terminé puisque le problème initial était l'erreur sur Paste.

Il a fallu 64 posts pour en arriver là !!!

 

[patricktoulon]

re
bonjour job75
on a pas régler son problème directement on lui a donné des alternatives
peut être airait il aimer comprendre pourquoi son paste ne fonctionne pas

 

[eduraiss]

Bonjour patricktoulon

En effet c'est a rien y comprendre sur certains ordi cela fonctionne et pas sur le mien et depuis que j'ai changé de version excel
Merci