Discussion :

[EmmanuelleC]

J'ai un fichier excel avec des articles et a coté de certains articles, une image

ces images sont soit des "Object x", soit des "Picture y" (j'ignore pour les personnes qui ont fait le fichier on mélangé les deux)

je vais avoir besoin de faire des fiches articles dans word ou je dois mettre le nom de l'article, sa description et son image s'il y a un

Mais j'ai l'impression que pour ca, ca m'aiderait d'avoir la liste des images utilsées (pour regarder pour chaque objet ses coordonnées afin de pouvoir trouver en vis a vis de quel article il se trouve)

Et je ne peux pas juste incrémenter le n° de 1, il y a plein de trou dans les numérotation

[aalex_38]

Bonjour,


tu peux parcourir les shapes.

Un exemple à adapter :

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
    Dim FL1 As Worksheet 
    Dim FL2 As Worksheet 
    Set FL1 = Worksheets("LOGOS") 
    Set FL2 = Worksheets("COMMANDE") 
 
 
    On Error Resume Next 
 
    Dim sh As Shape 
    For Each sh In FL2.Shapes 
        With sh 
        If .Type = 13 And LCase(Left(.Name, 7)) = "picture" Then 
            ' ... 
                    Else 
            ' ...
        End If 
        End With 
    Next sh

[EmmanuelleC]

mmm, me voici avec une premiere moitié de solution, merci

Si je fais ca, je récupere toute les picture x

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Image()
 
    Dim sh As Shape
    For Each sh In ActiveSheet.Shapes
        With sh
            If .Type = 13 And (LCase(Left(.Name, 4)) = "pict" Or LCase(Left(.Name, 4)) = "Obje") Then
                sh.Copy
                Range("A1").Select
                ActiveSheet.Paste
            End If
        End With
    Next sh
End Sub

Mais ca ne me ramene aucun objet
Ca n'indique aucune erreur, mais aparement, il ne parcourt que les pictures

alors que quand je fais

Code :

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

1
2
3
4
5
Sub test()
    ActiveSheet.Shapes("Object 1").Copy
    Range("A1").Select
    ActiveSheet.Paste
End Sub

La ca marche mais je n'en ai qu'un évidement

est-ce que c'est .type=13 qui bloque? je n'arrive pas a trouver ce que ca veut dire

[Didier Gonard]

Bonjour

voir si c'est bon pour repérer tes objets, facile à adapter pour lister au lieu de msgbox...

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Parcourir()
Dim objShape As Shape
 
With Worksheets(1)
        For Each objShape In .Shapes
            objShape.TopLeftCell.Select
            MsgBox objShape.Name & "  " & objShape.TopLeftCell.Address & "  " & objShape.Type
        Next objShape
End With
End Sub

sinon pour info : (voir l'aide vba - nom index - description)

Spécifie le type d'une forme ou d'un ensemble de formes.
Nom Valeur Description
msoAutoShape 1 Forme automatique
msoCallout 2 Légende
msoCanvas 20 Zone de dessin
msoChart 3 Graphique
msoComment 4 Commentaire
msoDiagram 21 Diagramme
msoEmbeddedOLEObject 7 Objet OLE incorporé
msoFormControl 8 Contrôle de formulaire
msoFreeform 5 Forme libre
msoGroup 6 Groupe
msoIgxGraphic 24 Graphique SmartArt
msoInk 22 Encre
msoInkComment 23 Commentaire manuscrit
msoLine 9 Trait
msoLinkedOLEObject 10 Objet OLE lié
msoLinkedPicture 11 Image liée
msoMedia 16 Support
msoOLEControlObject 12 Objet de contrôle OLE
msoPicture 13 Image
msoPlaceholder 14 Espace réservé
msoScriptAnchor 18 Ancre de script
msoShapeTypeMixed -2 Type de forme mixte
msoTable 19 Tableau
msoTextBox 17 Zone de texte
msoTextEffect 15 Effet de texte

cordialement,

Didier

[EmmanuelleC]

Super, ca repere bien les objets aussi

(ca m'a meme repéré une autre catégorie de shape, un comment, meme si je ne vois rien de spécial dans la cellule en question)

Avec ca, je pense que je vais pouvoir avancer

Et merci aussi pour la liste de type j'avais bien essayé de chercher dans l'aide, mais j'avais pas réussit a trouver ca