Discussion :

[benjamin7983]

Bonjour à tous,

Je cherche un p'tit surdoué pour créer une macro en boucle pour copier coller des images suivant certaines conditions. J ai fait la méthode développeur avec (gestionnaire de noms) =image et image (=INDIRECT('image'!$A$1)) + (gestionnaire de noms) =image1 et image1 (=INDIRECT('image'!$B$1)) etc etc mais étant donné qu'il y a plus de 50 images ça me fait ralentir mon fichier même en 64bit...
Du coup je cherche la méthode simple en copiant collant simplement l'image par macro

Ci joint le fichier en question.

Merci à vous pour votre aide je bloque sur les boucles ....

[Menhir]

Merci à vous pour votre aide je bloque sur les boucles ....

Pour tout savoir sur les boucles : http://silkyroad.developpez.com/vba/boucles/

[benjamin7983]

Si cela est trop compliqué je pourrai éventuellement créer les 100 er lignes pour les images 01,02,03,04,05 etc etc en bibliothèque mais est ce que quelqu un pourrait voir pour faire une boucle de G4 à G15.

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
if G4 = 01  then 
    'Sheets("image").Select
    'ActiveSheet.Shapes("01").Copy ou un truc de genre activesheet.shapes.range ("G4").value ???
    'Sheets("page").Select
   ' Range("A4").Select
    'ActiveSheet.Paste     (special .jpg)     

if G4 = 02  then 
    'Sheets("image").Select
    'ActiveSheet.Shapes("02").Copy
    'Sheets("page").Select
   ' Range("A4").Select
    'ActiveSheet.Paste     (special .jpg)          

if G4 = 03  then 
    'Sheets("image").Select
    'ActiveSheet.Shapes("03").Copy
    'Sheets("page").Select
   ' Range("A4").Select
    'ActiveSheet.Paste     (special .jpg)    


Création de boucle pour G4 à G15

if G5 = 01  then 
    'Sheets("image").Select
    'ActiveSheet.Shapes("01").Copy
    'Sheets("page").Select
   ' Range("A5").Select
    'ActiveSheet.Paste     (special .jpg)  


if G5 = 02  then 
    'Sheets("image").Select
    'ActiveSheet.Shapes("02").Copy
    'Sheets("page").Select
   ' Range("A5").Select
    'ActiveSheet.Paste     (special .jpg)

etc etc jusqu'a G15...


MERCI BEAUCOUP

[MarcelG]

Ouh! Là! Là!

est ce que quelqu un pourrait voir

Désolé mais l'objectif est d'aider tout développeur à résoudre une difficulté en partant de son développement.
Sauf, peut-être, si un blocage persiste à la 1ère méthode.

Menhir t'a indiqué une direction. Tu n'y as pas répondu.

Je remarque que le nom des images à coller est lié au contenu des cellules.
Une boucle, voire 2, accompagné(e) d'une concaténation suffirait à mon sens.

S'il te plaît, essaie de baliser le code afin de le rendre plus lisible.
Et supprime ces f... "Select" qui, sauf en de cas rarissimes, ne servent à rien.

Développe dans ce sens et reviens en cas de difficulté.

[benjamin7983]

Bonjour et merci pour vos réponses. N'étant pas vraiment développeur mais avec vos conseils et pas mal de recherche j ai pu commencer un bout de code mais avec pas mal d’erreurs d'écriture. Le code VBA n'est pas mon fort...
Je pense que le déroulement de cette macro est bon dans la forme mais bloque malheureusement à l’exécution..

Merci beaucoup pour votre aide..

[MarcelG]

Bonjour, Bonjour au Forum,

Voici ton code

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
20
21
22
23
24
25
Sub Insererimage()
Dim snom As String
Dim i As Long
' Boucle pour balayer les lignes 4 à 15
  For i = 1 To 11
 
' Définir le nom de l'image à insérer
    snom = Sheets("page").Range("G4" & i).Value
 
'condition
  If snom <> "x" Then
  Sheets("Images").Select
    Application.CutCopyMode = False
    ActiveSheet.Pictures(snom & ".JPG").Copy
 
' Se placer dans la cellule
    Sheets("page").Select
    Range("a4" & i).Select
 
' Insérer l'image
 
    ActiveSheet.Pictures.Insert(snom & ".JPG").Select
 
  Next i
End Sub

Pas de structure conditionnelle, des Select à tout va, des images sans nom dans le fichier.

Je pense que le déroulement de cette macro est bon dans la forme

Sûrement pas

mais bloque malheureusement à l’exécution.

As-tu seulement cherché où?

Que peut-on répondre?