comment fait on pour selectionner une cellule =E0 l'aide de =20
coordonn=E9es en points. exemple, j'ai une zone de texte=20
align=E9e sur une cellule. je connais les coordonn=E9es du=20
coin sup=E9rieur gauche de la zone de texte =E0 l'aide des=20
propriet=E9s LEFT et TOP :
posh =3D Worksheets("PLAN03").Shapes(nom_mission).Left
posv =3D Worksheets("PLAN03").Shapes(nom_mission).Top
comment puis je faire pour selectionner la cellule se=20
trouvant sous cette zone de texte, =E0 l'aide de posh et=20
posv ??
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
Modeste
Bonjour, méthode toute a fait rudimentaire !!!
Sub Dinedou() nom_mission = "titi" Worksheets("PLAN03").Activate With ActiveSheet 'posh = Worksheets("PLAN03").Shapes(nom_mission).Left 'posv = Worksheets("PLAN03").Shapes(nom_mission).Top '-----je n'ai pas EXCEL 2000 à disposition posh = .DrawingObjects(nom_mission).Left posv = .DrawingObjects(nom_mission).Top '------------------ col = 0 While Columns(col + 1).Left < posh col = col + 1 Wend '---------- ligne = 0 While Rows(ligne + 1).Top < posv ligne = ligne + 1 Wend '------------ .Cells(ligne, col).Select End With End Sub
@+
-----Message d'origine----- Bonjour,
comment fait on pour selectionner une cellule à l'aide de
coordonnées en points. exemple, j'ai une zone de texte alignée sur une cellule. je connais les coordonnées du coin supérieur gauche de la zone de texte à l'aide des proprietés LEFT et TOP : posh = Worksheets("PLAN03").Shapes(nom_mission).Left posv = Worksheets("PLAN03").Shapes(nom_mission).Top
comment puis je faire pour selectionner la cellule se trouvant sous cette zone de texte, à l'aide de posh et posv ??
Merci .
Bonjour,
méthode toute a fait rudimentaire !!!
Sub Dinedou()
nom_mission = "titi"
Worksheets("PLAN03").Activate
With ActiveSheet
'posh = Worksheets("PLAN03").Shapes(nom_mission).Left
'posv = Worksheets("PLAN03").Shapes(nom_mission).Top
'-----je n'ai pas EXCEL 2000 à disposition
posh = .DrawingObjects(nom_mission).Left
posv = .DrawingObjects(nom_mission).Top
'------------------
col = 0
While Columns(col + 1).Left < posh
col = col + 1
Wend
'----------
ligne = 0
While Rows(ligne + 1).Top < posv
ligne = ligne + 1
Wend
'------------
.Cells(ligne, col).Select
End With
End Sub
@+
-----Message d'origine-----
Bonjour,
comment fait on pour selectionner une cellule à l'aide
de
coordonnées en points. exemple, j'ai une zone de texte
alignée sur une cellule. je connais les coordonnées du
coin supérieur gauche de la zone de texte à l'aide des
proprietés LEFT et TOP :
posh = Worksheets("PLAN03").Shapes(nom_mission).Left
posv = Worksheets("PLAN03").Shapes(nom_mission).Top
comment puis je faire pour selectionner la cellule se
trouvant sous cette zone de texte, à l'aide de posh et
posv ??
Sub Dinedou() nom_mission = "titi" Worksheets("PLAN03").Activate With ActiveSheet 'posh = Worksheets("PLAN03").Shapes(nom_mission).Left 'posv = Worksheets("PLAN03").Shapes(nom_mission).Top '-----je n'ai pas EXCEL 2000 à disposition posh = .DrawingObjects(nom_mission).Left posv = .DrawingObjects(nom_mission).Top '------------------ col = 0 While Columns(col + 1).Left < posh col = col + 1 Wend '---------- ligne = 0 While Rows(ligne + 1).Top < posv ligne = ligne + 1 Wend '------------ .Cells(ligne, col).Select End With End Sub
@+
-----Message d'origine----- Bonjour,
comment fait on pour selectionner une cellule à l'aide de
coordonnées en points. exemple, j'ai une zone de texte alignée sur une cellule. je connais les coordonnées du coin supérieur gauche de la zone de texte à l'aide des proprietés LEFT et TOP : posh = Worksheets("PLAN03").Shapes(nom_mission).Left posv = Worksheets("PLAN03").Shapes(nom_mission).Top
comment puis je faire pour selectionner la cellule se trouvant sous cette zone de texte, à l'aide de posh et posv ??
