Faire suivre une image

Le
Patrick BASTARD
Bonjour.

Bonsoir.

Comment faire pour que le haut de l'image 303, située en colonne A, se
positionne sur la ligne sélectionnée ainsi :
************************
Sub Chercher()
Application.Goto [B9].Offset (Application.CountA([B9:B1000]) - 1,
Application.Match([b3], [C3:IV3], 0)), scroll:=True

End Sub
************************
Question subsidiaire Pourquoi Image 303 (il n'y en a qu'une dans ce
classeur) ?
D'avance, merci.


--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Patrick BASTARD
Le #4575441
Bonjour,

Résolu avec :
ActiveSheet.Shapes("Picture 303").Top = ActiveCell.Offset(0, 2).Top

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Bonjour.

Bonsoir.

Comment faire pour que le haut de l'image 303, située en colonne A, se
positionne sur la ligne sélectionnée ainsi :
************************
Sub Chercher()
Application.Goto [B9].Offset (Application.CountA([B9:B1000]) - 1,
Application.Match([b3], [C3:IV3], 0)), scroll:=True

End Sub
************************
Question subsidiaire Pourquoi Image 303 (il n'y en a qu'une dans ce
classeur) ?
D'avance, merci.


JB
Le #4575401
Si l'image est nommée 'monimage':

ActiveSheet.Shapes("monimage").Left = ActiveCell.Left ' colonne
ActiveSheet.Shapes("monimage").Top = ActiveCell.Top ' ligne

JB


On 9 juin, 19:15, "Patrick BASTARD"
Bonjour.

Bonsoir.

Comment faire pour que le haut de l'image 303, située en colonne A, se
positionne sur la ligne sélectionnée ainsi :
************************
Sub Chercher()
Application.Goto [B9].Offset (Application.CountA([B9:B1000]) - 1,
Application.Match([b3], [C3:IV3], 0)), scroll:=True

End Sub
************************
Question subsidiaire Pourquoi Image 303 (il n'y en a qu'une dans ce
classeur) ?
D'avance, merci.

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.


Patrick BASTARD
Le #4575381
Bonjour, *Jacques*

Merci beaucoup pour ton obligeance.

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.

Si l'image est nommée 'monimage':

ActiveSheet.Shapes("monimage").Left = ActiveCell.Left ' colonne
ActiveSheet.Shapes("monimage").Top = ActiveCell.Top ' ligne

JB


On 9 juin, 19:15, "Patrick BASTARD"
Bonjour.

Bonsoir.

Comment faire pour que le haut de l'image 303, située en colonne A,
se positionne sur la ligne sélectionnée ainsi :
************************
Sub Chercher()
Application.Goto [B9].Offset (Application.CountA([B9:B1000]) - 1,
Application.Match([b3], [C3:IV3], 0)), scroll:=True

End Sub
************************
Question subsidiaire Pourquoi Image 303 (il n'y en a qu'une dans ce
classeur) ?
D'avance, merci.

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.




Publicité
Poster une réponse
Anonyme