Bonjour,
Je travaille sur un modèle de fichier qui est crée de nombreuses fois par jour mais qui ne comprend jamais le même nombre de pages.
Sur ce fichier je souhaite insérer sur chaque page une même image et qui se trouve toujours au même endroit sur la page.
Ma macro actuelle est la suivante :
Sub Insérer_image()
' Macro enregistrée le 04/06/2007
Dim Cel As Range 'déclare la variable Cel
'Insertion image
'Boucle sur toutes les cellules éditées Cel de la colonne B
For Each Cel In Range("B67:B" & Range("B65536").End(xlUp).Row)
If Cel.Value = "Paramètre" Then 'condition : si la valeur de la cellule = Paramètre
Cells(89, 7).Select
ActiveSheet.Pictures.Insert( _
"Adresse du fichier").Select
End If 'fin de la condition
Next Cel 'prochaine cellule éditée Cel de la colonne B
End Sub
Ce qu'il manque c'est la définition de l'endroit mobile où on doit insérer l'image à chaque exécution. C'est à dire, colonne G et 22 lignes après le numéro de ligne ou le mot paramètre a été détecté.
Actuellement la macro insère l'image autant de fois qu'elle détecte le mot paramètre mais tout le temps au même endroit.
Merci d'avance pour l'aide,
Je travaille sur un modèle de fichier qui est crée de nombreuses fois par jour mais qui ne comprend jamais le même nombre de pages.
Sur ce fichier je souhaite insérer sur chaque page une même image et qui se trouve toujours au même endroit sur la page.
Ma macro actuelle est la suivante :
Sub Insérer_image()
' Macro enregistrée le 04/06/2007
Dim Cel As Range 'déclare la variable Cel
'Insertion image
'Boucle sur toutes les cellules éditées Cel de la colonne B
For Each Cel In Range("B67:B" & Range("B65536").End(xlUp).Row)
If Cel.Value = "Paramètre" Then 'condition : si la valeur de la cellule = Paramètre
Cells(89, 7).Select
ActiveSheet.Pictures.Insert( _
"Adresse du fichier").Select
End If 'fin de la condition
Next Cel 'prochaine cellule éditée Cel de la colonne B
End Sub
Ce qu'il manque c'est la définition de l'endroit mobile où on doit insérer l'image à chaque exécution. C'est à dire, colonne G et 22 lignes après le numéro de ligne ou le mot paramètre a été détecté.
Actuellement la macro insère l'image autant de fois qu'elle détecte le mot paramètre mais tout le temps au même endroit.
Merci d'avance pour l'aide,
