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.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Patrick BASTARD
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.
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.
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
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" wrote:
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.
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"
<pasdespambasta...@freepasdespam.fr> wrote:
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.
ActiveSheet.Shapes("monimage").Left = ActiveCell.Left ' colonne ActiveSheet.Shapes("monimage").Top = ActiveCell.Top ' ligne
JB
On 9 juin, 19:15, "Patrick BASTARD" wrote:
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
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" wrote:
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.
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"
<pasdespambasta...@freepasdespam.fr> wrote:
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.
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" wrote:
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.
