Discussion :

[Zebulon777]

Bonjour tout le monde,

je dois automatiser la sélection de tous les dessins fait sur une feuille pour les copier sur une autre.
Je voudrai savoir s'il existe un moyen de tout sélectionner d'un coup ?

Pour le moment, mon code donne ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
                                Range("I32").Select
                                ActiveWindow.SmallScroll Down:=24
                                  ActiveSheet.Shapes.Range(Array("Picture 1", "TextBox1", "TextBox1", "TextBox1" _
 _
                                  , "TextBox1", "TextBox1", "TextBox1", "TextBox1" _
                                  , "TextBox1", "TextBox1", "TextBox1", "TextBox1" _
                                  , "TextBox1", "TextBox1", "TextBox1", "TextBox1")).Select
                                ActiveSheet.Shapes.Range(Array("TextBox1", "TextBox1")).Select False
                                Selection.Copy
                                Windows(WClasseurCible).Activate
                                If Not FeuilleExiste(WClasseurCible, WNomFeuille) Then
                                    Sheets.Add
                                    Workbooks(WClasseurCible).ActiveSheet.Name = "UTILCONF"
                                Else
                                    Sheets("UTILCONF").Select
                                End If
                                ActiveSheet.Paste
                                Range("A1").Select

mais, bien sur, ça ne fonctionne pas.

merci d'avance pour votre aide.

[QuestVba]

Bonjour

pour tout sélectionner

Code :

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

ActiveSheet.Shapes.SelectAll

[Zebulon777]

Super.
Merci beaucoup.

Je relance, désolé, je viens de me rendre compte que dans le dessin, ils ont caché des formules.
Il faut donc que je récupère tout cela EN VALEUR.

Comment puis-je faire ?

[Zebulon777]

J'ai trouvé tout seul, voici la solution pour aider la communauté :

Code :

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

1
2
3
 
ActiveSheet.PasteSpecial Format:="Image (métafichier amélioré)", Link:= _
                                    False, DisplayAsIcon:=False

Merci encore.