Puzzle

Efgé

XLDnaute Barbatruc

• 4 Juin 2013

• #2

Re : Puzzle

Bonjour guy72
Regarde cet exemple. Le code est dans le code de la feuille.
Cordialement

 

Pièces jointes

• Ilmg.xls

  25.5 KB · Affichages: 112

Vote positif 0 Vote négatif

guy72

XLDnaute Impliqué

• 4 Juin 2013

• #3

Re : Puzzle

Efgé à dit:

Bonjour guy72
Regarde cet exemple. Le code est dans le code de la feuille.
Cordialement

Cliquez pour agrandir...

.

Bonjour,
Ok j'ai compris le principe, j'ai fais des essais avec 10 images, ça fonctionne parce qu'elles sont à la taille de la cellule.
Par contre si mes images sont de taille différente, comment, je peux les positionner.
Cordialement

 

Pièces jointes

• Essai puzzle.xlsx

  154.2 KB · Affichages: 62

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 4 Juin 2013

• #4

Re : Puzzle

Re
Evidemmnent, dans ces conditions.... 😀
Une autre idée en deux temps
Je pars du principe que pour le premier temps, il n'y a rien d'autre que des images sur l'onglet.
Tu range de façon parfaite tes morceaux, à l'emplacement que tu désire sur ton onglet (de façon parfaite)
Ensuite tu lances la macro Nomme_Images :

VB:

Private Sub Nomme_Images()
Dim Shp As Shape
    For Each Shp In ActiveSheet.Shapes
        Shp.Name = "I_" & Shp.Top & "_" & Shp.Left
    Next Shp
End Sub

Celle ci va nommer les images avec leurs coordonnées Top et Left.

Il ne faudra plus relancer cette macro par la suite, sous peine de voir les images se ranger ailleurs

Second temps
Pour re-ranger les images, après les avoirs mélangées: tu lance la macro Ranger :

VB:

Sub Ranger()
Dim Sh As Shape, Tmp As Variant
For Each Sh In ActiveSheet.Shapes
    If Sh.Name Like "I_*" Then
        Tmp = Split(Sh.Name, "_")
        Sh.Top = Tmp(1)
        Sh.Left = Tmp(2)
    End If
Next Shp
End Sub

Les images retrouveront les places qu'elles occupaient au moment de la macro Nomme_Images.

Pour faire un test, Alt+F8 et lance Ranger.
La macro Nomme_Images est en Private Sub pour éviter de la lancer par Alt+F8 ;-)

Cordialement

 

Pièces jointes

• Essai_puzzle(2).xls

  175 KB · Affichages: 78

Dernière édition: 4 Juin 2013

Vote positif 0 Vote négatif

guy72

XLDnaute Impliqué

• 4 Juin 2013

• #5

Re : Puzzle

J'ai mis le puzzle presque complet (sinon trop gros), mais je ne vois pas comment lancer la macro " Nomme_Images "

 

Pièces jointes

• Puzzle complet.xlsm

  923.6 KB · Affichages: 119

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 4 Juin 2013

• #6

Re : Puzzle

Re
Dans le classeur que tu viens de joindre il suffit de faire Alt+F8 (tu appuis sur Alt et en même temps sur la touche F8), cela va ouvrir la boite de dialogue "Macro".
Dans la liste tu double clic sur "Feuil2.Nomme_Images"
Cordialement

 

Vote positif 0 Vote négatif

guy72

XLDnaute Impliqué

• 4 Juin 2013

• #7

Re : Puzzle

Efgé à dit:

Re
Dans la liste tu double clic sur "Feuil2.Nomme_Images"
Cordialement

Cliquez pour agrandir...

C'est ce que j'avais fais, mais je ne vois que "Feuil2.Ranger"

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 4 Juin 2013

• #8

Re : Puzzle

Re
Attention
Dans ton dernier fichier il faut utiliser dans la macro Nomme_Images la ligne

VB:

Next Shp

au lieu de

VB:

Next Sh

Cordialement

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 4 Juin 2013

• #9

Re : Puzzle

Re
La ligne est surlignée (c'est la première de la liste au dessus de Feuil2.Ranger

Regarde mon message précédent, il faut modifier une ligne

VB:

Next Shp

au lieu de

VB:

Next Sh

Ou alors, tu fait Alt+F11 tu clic dans nomme_Images et menu Execution / executersub/UserForm

Cordialement

 

Dernière édition: 4 Juin 2013

Vote positif 0 Vote négatif

guy72

XLDnaute Impliqué

• 4 Juin 2013

• #10

Re : Puzzle

Ok, ça fonctionne.
Effectivement, j'avais un message à cause de sh.
Maintenant, c'est bon
Merci de ton aide
Cordialement

 

Vote positif 0 Vote négatif