Bonjour,
Après avoir consulté et trouvé grâce au forum la solution à mon problème, je me tourne à nouveau vers vous pour alléger ma macro.
En fait j'ai des noms d'équipe en colonne B dont les drapeaux (images) se trouvent dans mon dossier.
Je viens de faire une macro permettant d'insérer le drapeau correspondant en colonne A7 à partir de la cellule B7.
Mais est-il possible de faire une unique formule pour automatiser la macro de B7 à B67 vers A7 à A67 ?
J'espère avoir été à peu près clair !
Voici ma macro :
Sub Macro1()
GA1 = "C:\Documents and Settings\Yannick\Bureau\euro\" & Range("B7") & ".jpg"
If Dir(GA1) <> "" Then
Set pic = ActiveSheet.Pictures.Insert("C:\Documents and Settings\Yannick\Bureau\euro\" & Range("B7") & ".jpg")
pic.Top = Cells(7, 1).Top
pic.Left = Cells(7, 1).Left
pic.Width = Cells(7, 1).Width
pic.Height = Cells(7, 1).Height
End If
End Sub
Sinon je peux récrire la macro 60 fois ...
Merci d'avance,
Yannlion
Après avoir consulté et trouvé grâce au forum la solution à mon problème, je me tourne à nouveau vers vous pour alléger ma macro.
En fait j'ai des noms d'équipe en colonne B dont les drapeaux (images) se trouvent dans mon dossier.
Je viens de faire une macro permettant d'insérer le drapeau correspondant en colonne A7 à partir de la cellule B7.
Mais est-il possible de faire une unique formule pour automatiser la macro de B7 à B67 vers A7 à A67 ?
J'espère avoir été à peu près clair !
Voici ma macro :
Sub Macro1()
GA1 = "C:\Documents and Settings\Yannick\Bureau\euro\" & Range("B7") & ".jpg"
If Dir(GA1) <> "" Then
Set pic = ActiveSheet.Pictures.Insert("C:\Documents and Settings\Yannick\Bureau\euro\" & Range("B7") & ".jpg")
pic.Top = Cells(7, 1).Top
pic.Left = Cells(7, 1).Left
pic.Width = Cells(7, 1).Width
pic.Height = Cells(7, 1).Height
End If
End Sub
Sinon je peux récrire la macro 60 fois ...
Merci d'avance,
Yannlion