Discussion :

[ESVBA]

Bonsoir,

tout est dans le titre. Voici mon code allégé :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
 
    Dim ac As Range
    ac = ActiveCell
 
    Sheets("Dessin").Shapes("Cad").Copy
    Range("A1").Select
    ActiveSheet.Paste
 
    '---
    DoEvents
    ac.Select
End Sub

Pourquoi mon image reste-elle sélectionnée ?

ESVBA

[joe.levrai]

Bonjour,

tu instancies une variable objet sans l'instruction Set, ça ne vient pas de là ?

[ESVBA]

je fais n'importe en posant mes questions sur le forum.

J'ai simplement oublier de mettre dans le code mon "ac.select".
Par contre le "set" y était.

Désolé.

Merci de ta réponse.

ESVBA.