Discussion :

[tigrou42]

Bonjour,
je viens de passer à la version Excel 2007, et une macro que j'utilisais depuis des années, ne fonctionne pas avec cette version.
Ma macro permettait de mettre des drapeaux sur des cellules.
Par exemple, la macro mettait un drapeau français sur une cellule .fr.
Sur Excel 2007, l'image ne s'insère plus dans la cellule sélectionnée mais toujours au même endroit (sur une cellule non sélectionnée).

Voilà le principe de ma macro, ca efface toutes les images puis ca remet les drapeaux sur les cellules où il y a besoin.

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
 
Dim Obj As Shape 
Dim n, nbcolonne, m As Integer 
nbcolonne = 1400 
n = 2 
m = 183 
 
 
For Each Obj In Worksheets("Fournisseur").Shapes 
If Obj.Type = msoPicture Then Obj.Delete 
Next Obj 
 
'Argentine 
For n = 2 To nbcolonne 
If Cells(n, 4) = ".arg" Then 
Cells(n, 4).Select 
ActiveSheet.Pictures.Insert("C:\Travail\Drapeau\Argentine.gif").Select 
Selection.Name = n 
End If 
Next n 
End Sub

Si quelqu'un peut m'aider, ca serait sympa.
Merci d'avance

[Mytå_Qc]

Salut Tigrou et le forum

N'ayant pas encore Excel 2007, je tente une solution

Code :

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

1
2
3
4
5
6
7
8
... 
ActiveSheet.Pictures.Insert("C:\Travail\Drapeau\Argentine.gif").Select 
With Selection 
.Name = n 
.Top = Cells(n, 4).Top 
.Left = Cells(n, 4).Left 
End With
...

Mytå_Qc