Discussion :

[marinef]

Bonjour,
J'ai une macro qui transfert les informations d'un onglet dans un autre onglet (T155-3 à Temporaire) si on les a sélectionné:

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
ub Copy()
 
Filename = ThisWorkbook.Name
 
'Initialisation compteur
l = 1
m = 1
n = 1
o = 1
p = 1
 
'Repérage des colonnes contenant les informations "Désignation & détails", "Référence", "Qté" et "Coût total"
 
While Workbooks(Filename).ActiveSheet.Cells(2, l) <> "Qté vendue par Devis"
    l = l + 1
Wend
 
While Workbooks(Filename).ActiveSheet.Cells(2, m) <> "Référence (unitaire)"
    m = m + 1
Wend
 
While Workbooks(Filename).ActiveSheet.Cells(2, n) <> "Désignation"
    n = n + 1
Wend
 
While Workbooks(Filename).ActiveSheet.Cells(2, o) <> "Coût total"
    o = o + 1
Wend
 
 
k = 11
 
 
'Effacement des données déversées dans l'onglet "Temporaire" précédemment
 
Workbooks(Filename).Worksheets("Temporaire").Range("B11:J90").ClearContents
 
 
'Recopie des données dans l'onglet "Temporaire"
 
For i = 3 To 100
 
    If Workbooks(Filename).ActiveSheet.Cells(i, 3) <> Empty Then
 
        Workbooks(Filename).Worksheets("Temporaire").Cells(k, 6) = Worksheets("T155-3").Cells(i, l)
        Workbooks(Filename).Worksheets("Temporaire").Cells(k, 7) = Worksheets("T155-3").Cells(i, m)
        Workbooks(Filename).Worksheets("Temporaire").Cells(k, 5) = Worksheets("T155-3").Cells(i, n)
        Workbooks(Filename).Worksheets("Temporaire").Cells(k, 12) = Worksheets("T155-3").Cells(i, o)
 
        k = k + 1
    End If
 
Next i
 
 
'Demander le numéro d'affaire pour l'inscrire en bas de l'onglet temporaire
 
UserForm1.Show
 
End Sub

Or dans l'onglet T155-3 nous avons également des images petites images associé à chaque ligne et je voudrais les transférer dans l'onglet Temporaire également... Est ce que c'est possible? Car je crois qu' on ne peut pas associer d'image à des cellules? Comment puis je faire?

[sabzzz]

bonjour marinef,

si tu connait l'adresse de l'image et l'adresse de destination et que l'image est à l'intérieur de la cellule tu peut copier seulement la cellule l'image va suivre.

Code :

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

1
2
3
4
Set f1 = Sheets("Feuil1")
Set f2 = Sheets("Feuil2")
f1.Cells(lign1, col1).Copy f2.Cells(lign2, col2)
Application.CutCopyMode = False

[marinef]

Ca veut dire que les images ne doivent pas changer d'emplacement?
On a énormément d'images, peut être 50 par onglets et il y a des évolutions possibles...

[aalex_38]

Une piste :

Code :

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

1
2
3
4
5
6
7
8
9
Sub test_shape()
Dim Shp As Shape
For Each Shp In ActiveSheet.Shapes
If Shp.Type = msoPicture Then
    MsgBox "Nom de l'image :" & Shp.Name & vbCr _
    & "Cellule en haut à gauche :" & Shp.TopLeftCell.Address
End If
Next
End Sub