Bonjour à tous,
J'ai un problème tout simple qui peut être réglé en deux minutes mais je n'y arrive pas...
J'ai une liste de pays dans une colonne qui peut varier d'emplacement.
le but de la macro est d'insérer les drapeaux de ces pays dans la colonne que veut l'utilisateur.
En premier lieu, je souhaiterais deux inputbox qui demandent à l'utilisateur:
1. Ou est la colonne avec les pays
2. Ou veut il insérer les drapeaux dans quelle colonne
Début de ma macro:
Sub ex_ins_picture()
On Error Resume Next
dim cells as object
ActiveSheet.Shapes.SelectAll
Selection.Delete
y = InputBox("Veuillez insérer la colonne ou se trouve la liste des pays ", "Pays",)
z = inputBox("Veuillez insérer la colonne ou vous voulez les drapeaux: ", "Drapeaux",)
'la partie manquante que je ne sais pas écrire....
For Each cells In Selection 'c'est ce que j'ai bidouillé mais je ne suis pas sur du résultat....
cells.Activate
x = Right(cell.Offset(0, y) & ".jpg", 12)
ActiveSheet.Pictures.Insert("\\julien\" & x).Select
With Selection.ShapeRange
.LockAspectRatio = False
.Top = ActiveCell.Top
.Left = ActiveCell.Left
.Height = ActiveCell.RowHeight
.Width = ActiveCell.Width ' largeur de la cellule
End With
With Selection
.PrintObject = True
.Placement = xlMoveAndSize
End With
Next
End Sub
Merci de votre aide cher blogueur et expert en VBA.