fonction qui donne les coord de la cellule active

Le
news
est-il possible d'obtenir dans une cellule, les coordonnées de la cellule
active ?
Vos réponses Page 2 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
modeste
Le #1247018
bonjour,
Ouuuuuhhhh...... !!
comment ça on veut me passer par la fenetre ????

je m'insurge avec véhémence contre cet ostracisme qui
consiste à minimiser cette ouverture vers un début de
solution !!!!!
Moi gee-dee, G&D, J'ai aidé
;-P
;-)))

je sais, j'aurais pu prévoir une conversion en pouces et
pieds pour nos amis "canadiens à tetes carrées",
mais que diable! , crisse! , tabernacle! etc...
comme dit Clément :
"ici c'est un forum francophone !" ....

meme minimisée, elle fonctionne ma petite proc fournie au
tréfond de ma réponse précédente :
et je persiste :

Sub Ou_suis_je()
Application.WindowState = xlMaximized
Application.Goto Reference:="R65536C256"
MsgBox "Bonjour Isabelle !!"
Application.WindowState = xlMinimized
MsgBox ActiveCell.Address _
& Chr(10) & "Ligne : " & ActiveCell.Row _
& Chr(10) & "Colonne : " & ActiveCell.Column
MsgBox "a gauche en twips ??? :" & ActiveCell.Left _
& Chr(10) & "du haut en twips ??? :" * ActiveCell.Top
End Sub

Maintenant j'attends la conversion twips ???? en mm ....

Na....! ;-P
;-)))

-----Message d'origine-----
Bonjour Modeste;
Permets moi de contester cette approche qui n'est
vérifiée qu'à la condition sine

qua none que la fenêtre soit maximisée, ce que tu as
omis de spécifier. Dans le

cas contraire, tu risques fort de ne pas être où tu
crois et même nulle part si la

fenêtre est minimisée.
;-))) MP

message de

news:1ce8501c422de$495fb670$
La taille d'une cellule standard sur un écran 17
pouces>Sub Ou_suis_je()

MsgBox ActiveCell.Address _
& Chr(10) & "Ligne : " & ActiveCell.Row _
& Chr(10) & "Colonne : " & ActiveCell.Column
End Sub

largeur 24mm environ
hauteur 5mm environ
(le viron est une unité trés souvent utilisée notament
pour limiter l'affichage des chiffres significatifs)

Isabelle se trouve à $IV$65536 :
à droite à environ 6m 144
en bas à environ 327m 680

présentement en cours d'exploration de OWC
(Office Web Components)
je me trouve "modestement" à $ZZZ$262144
"j'ai dé"calé à droite jusque environ 438m 672
"j'ai dé"scendu en bas jusque environ 1310m 720
je ne vois plus Isabelle !!!!
au secours .....
;-)))


-----Message d'origine-----
ça dépend des cellules,
les coordonnées de celle d'Isabelle sont faciles à
trouver : tout droit, en

bas à droite

F.

"> La question cache donc un problème très complexe.


.




.




Michel Pierron
Le #1247007
Re Modeste;
Un twip correspond très exactement à 1/567e de centimètre.
Donc: x (mm) = (x * 56.7) twips ou x (twips) = (x / 56.7) mm
Mais ce n'est pas tout car ActiveCell.Left et ActiveCell.Top retourne les valeurs
en points des positions de la cellule active par rapport au point zéro
correspondant au coin haut et gauche de la cellule "A1" elle même située à on ne
sait combien du coin supérieur gauche de l'écran (cela dépend du nombre de barres
d'outils affichées, de la présence ou non des entêtes de lignes et colonnes,etc.
En bref, il reste du chemin à faire...

MP

"modeste" news:1870a01c422f2$1f541290$
bonjour,
Ouuuuuhhhh...... !!
comment ça on veut me passer par la fenetre ????

je m'insurge avec véhémence contre cet ostracisme qui
consiste à minimiser cette ouverture vers un début de
solution !!!!!
Moi gee-dee, G&D, J'ai aidé
;-P
;-)))

je sais, j'aurais pu prévoir une conversion en pouces et
pieds pour nos amis "canadiens à tetes carrées",
mais que diable! , crisse! , tabernacle! etc...
comme dit Clément :
"ici c'est un forum francophone !" ....

meme minimisée, elle fonctionne ma petite proc fournie au
tréfond de ma réponse précédente :
et je persiste :

Sub Ou_suis_je()
Application.WindowState = xlMaximized
Application.Goto Reference:="R65536C256"
MsgBox "Bonjour Isabelle !!"
Application.WindowState = xlMinimized
MsgBox ActiveCell.Address _
& Chr(10) & "Ligne : " & ActiveCell.Row _
& Chr(10) & "Colonne : " & ActiveCell.Column
MsgBox "a gauche en twips ??? :" & ActiveCell.Left _
& Chr(10) & "du haut en twips ??? :" * ActiveCell.Top
End Sub

Maintenant j'attends la conversion twips ???? en mm ....

Na....! ;-P
;-)))

-----Message d'origine-----
Bonjour Modeste;
Permets moi de contester cette approche qui n'est
vérifiée qu'à la condition sine

qua none que la fenêtre soit maximisée, ce que tu as
omis de spécifier. Dans le

cas contraire, tu risques fort de ne pas être où tu
crois et même nulle part si la

fenêtre est minimisée.
;-))) MP

message de

news:1ce8501c422de$495fb670$
La taille d'une cellule standard sur un écran 17
pouces>Sub Ou_suis_je()

MsgBox ActiveCell.Address _
& Chr(10) & "Ligne : " & ActiveCell.Row _
& Chr(10) & "Colonne : " & ActiveCell.Column
End Sub

largeur 24mm environ
hauteur 5mm environ
(le viron est une unité trés souvent utilisée notament
pour limiter l'affichage des chiffres significatifs)

Isabelle se trouve à $IV$65536 :
à droite à environ 6m 144
en bas à environ 327m 680

présentement en cours d'exploration de OWC
(Office Web Components)
je me trouve "modestement" à $ZZZ$262144
"j'ai dé"calé à droite jusque environ 438m 672
"j'ai dé"scendu en bas jusque environ 1310m 720
je ne vois plus Isabelle !!!!
au secours .....
;-)))


-----Message d'origine-----
ça dépend des cellules,
les coordonnées de celle d'Isabelle sont faciles à
trouver : tout droit, en

bas à droite

F.

"> La question cache donc un problème très complexe.


.




.




Modeste
Le #1246140
;-)))
manquerai donc encore la relation entre twip et point(ou
pixel) ?????

dimension de l'écran, résolution choisie

c'est là que j'en etais restéé quand j'ai cesser de
développer le digipad
http://disciplus.simplex.free.fr/classeursxl/gd-
gidipad.zip
;-)))
@+

-----Message d'origine-----
Re Modeste;
Un twip correspond très exactement à 1/567e de
centimètre.

Donc: x (mm) = (x * 56.7) twips ou x (twips) = (x /
56.7) mm

Mais ce n'est pas tout car ActiveCell.Left et
ActiveCell.Top retourne les valeurs

en points des positions de la cellule active par rapport
au point zéro

correspondant au coin haut et gauche de la cellule "A1"
elle même située à on ne

sait combien du coin supérieur gauche de l'écran (cela
dépend du nombre de barres

d'outils affichées, de la présence ou non des entêtes de
lignes et colonnes,etc.

En bref, il reste du chemin à faire...

MP

"modeste" dans le message de

news:1870a01c422f2$1f541290$
bonjour,
Ouuuuuhhhh...... !!
comment ça on veut me passer par la fenetre ????

je m'insurge avec véhémence contre cet ostracisme qui
consiste à minimiser cette ouverture vers un début de
solution !!!!!
Moi gee-dee, G&D, J'ai aidé
;-P
;-)))

je sais, j'aurais pu prévoir une conversion en pouces et
pieds pour nos amis "canadiens à tetes carrées",
mais que diable! , crisse! , tabernacle! etc...
comme dit Clément :
"ici c'est un forum francophone !" ....

meme minimisée, elle fonctionne ma petite proc fournie au
tréfond de ma réponse précédente :
et je persiste :

Sub Ou_suis_je()
Application.WindowState = xlMaximized
Application.Goto Reference:="R65536C256"
MsgBox "Bonjour Isabelle !!"
Application.WindowState = xlMinimized
MsgBox ActiveCell.Address _
& Chr(10) & "Ligne : " & ActiveCell.Row _
& Chr(10) & "Colonne : " & ActiveCell.Column
MsgBox "a gauche en twips ??? :" & ActiveCell.Left _
& Chr(10) & "du haut en twips ??? :" * ActiveCell.Top
End Sub

Maintenant j'attends la conversion twips ???? en mm ....

Na....! ;-P
;-)))

-----Message d'origine-----
Bonjour Modeste;
Permets moi de contester cette approche qui n'est
vérifiée qu'à la condition sine

qua none que la fenêtre soit maximisée, ce que tu as
omis de spécifier. Dans le

cas contraire, tu risques fort de ne pas être où tu
crois et même nulle part si la

fenêtre est minimisée.
;-))) MP

message de

news:1ce8501c422de$495fb670$
La taille d'une cellule standard sur un écran 17
pouces>Sub Ou_suis_je()

MsgBox ActiveCell.Address _
& Chr(10) & "Ligne : " & ActiveCell.Row _
& Chr(10) & "Colonne : " & ActiveCell.Column
End Sub

largeur 24mm environ
hauteur 5mm environ
(le viron est une unité trés souvent utilisée notament
pour limiter l'affichage des chiffres significatifs)

Isabelle se trouve à $IV$65536 :
à droite à environ 6m 144
en bas à environ 327m 680

présentement en cours d'exploration de OWC
(Office Web Components)
je me trouve "modestement" à $ZZZ$262144
"j'ai dé"calé à droite jusque environ 438m 672
"j'ai dé"scendu en bas jusque environ 1310m 720
je ne vois plus Isabelle !!!!
au secours .....
;-)))


-----Message d'origine-----
ça dépend des cellules,
les coordonnées de celle d'Isabelle sont faciles à
trouver : tout droit, en

bas à droite

F.

"> La question cache donc un problème très complexe.


.




.




.





Michel Pierron
Le #1245886
Eh oui :
1 point = 3/4 de pixel ou 1 pixel = 4/3 de point
et généralement 1 pixel = 15 twips (si la taille de caractère définie dans les
paramètres généraux a été fixée à 96 dpi).
MP

"Modeste" news:1cfc001c422fe$8ca30cf0$
;-)))
manquerai donc encore la relation entre twip et point(ou
pixel) ?????

dimension de l'écran, résolution choisie

c'est là que j'en etais restéé quand j'ai cesser de
développer le digipad
http://disciplus.simplex.free.fr/classeursxl/gd-
gidipad.zip
;-)))
@+

-----Message d'origine-----
Re Modeste;
Un twip correspond très exactement à 1/567e de
centimètre.

Donc: x (mm) = (x * 56.7) twips ou x (twips) = (x /
56.7) mm

Mais ce n'est pas tout car ActiveCell.Left et
ActiveCell.Top retourne les valeurs

en points des positions de la cellule active par rapport
au point zéro

correspondant au coin haut et gauche de la cellule "A1"
elle même située à on ne

sait combien du coin supérieur gauche de l'écran (cela
dépend du nombre de barres

d'outils affichées, de la présence ou non des entêtes de
lignes et colonnes,etc.

En bref, il reste du chemin à faire...

MP

"modeste" dans le message de

news:1870a01c422f2$1f541290$
bonjour,
Ouuuuuhhhh...... !!
comment ça on veut me passer par la fenetre ????

je m'insurge avec véhémence contre cet ostracisme qui
consiste à minimiser cette ouverture vers un début de
solution !!!!!
Moi gee-dee, G&D, J'ai aidé
;-P
;-)))

je sais, j'aurais pu prévoir une conversion en pouces et
pieds pour nos amis "canadiens à tetes carrées",
mais que diable! , crisse! , tabernacle! etc...
comme dit Clément :
"ici c'est un forum francophone !" ....

meme minimisée, elle fonctionne ma petite proc fournie au
tréfond de ma réponse précédente :
et je persiste :

Sub Ou_suis_je()
Application.WindowState = xlMaximized
Application.Goto Reference:="R65536C256"
MsgBox "Bonjour Isabelle !!"
Application.WindowState = xlMinimized
MsgBox ActiveCell.Address _
& Chr(10) & "Ligne : " & ActiveCell.Row _
& Chr(10) & "Colonne : " & ActiveCell.Column
MsgBox "a gauche en twips ??? :" & ActiveCell.Left _
& Chr(10) & "du haut en twips ??? :" * ActiveCell.Top
End Sub

Maintenant j'attends la conversion twips ???? en mm ....

Na....! ;-P
;-)))

-----Message d'origine-----
Bonjour Modeste;
Permets moi de contester cette approche qui n'est
vérifiée qu'à la condition sine

qua none que la fenêtre soit maximisée, ce que tu as
omis de spécifier. Dans le

cas contraire, tu risques fort de ne pas être où tu
crois et même nulle part si la

fenêtre est minimisée.
;-))) MP

message de

news:1ce8501c422de$495fb670$
La taille d'une cellule standard sur un écran 17
pouces>Sub Ou_suis_je()

MsgBox ActiveCell.Address _
& Chr(10) & "Ligne : " & ActiveCell.Row _
& Chr(10) & "Colonne : " & ActiveCell.Column
End Sub

largeur 24mm environ
hauteur 5mm environ
(le viron est une unité trés souvent utilisée notament
pour limiter l'affichage des chiffres significatifs)

Isabelle se trouve à $IV$65536 :
à droite à environ 6m 144
en bas à environ 327m 680

présentement en cours d'exploration de OWC
(Office Web Components)
je me trouve "modestement" à $ZZZ$262144
"j'ai dé"calé à droite jusque environ 438m 672
"j'ai dé"scendu en bas jusque environ 1310m 720
je ne vois plus Isabelle !!!!
au secours .....
;-)))


-----Message d'origine-----
ça dépend des cellules,
les coordonnées de celle d'Isabelle sont faciles à
trouver : tout droit, en

bas à droite

F.

"> La question cache donc un problème très complexe.


.




.




.





news
Le #1249559
Vous êtes partis dans un bon délire, mais je crois que la question, au
départ, est :

"j'ai besoin d'appliquer à une cellule des conditions particulières (comme
la couleur de la cellule ou une valeur)
en fonction de l'emplacement de la cellule active. "

Merci


"Michel Pierron" news:
Eh oui :
1 point = 3/4 de pixel ou 1 pixel = 4/3 de point
et généralement 1 pixel = 15 twips (si la taille de caractère définie dans
les

paramètres généraux a été fixée à 96 dpi).
MP

"Modeste" news:1cfc001c422fe$8ca30cf0$
;-)))
manquerai donc encore la relation entre twip et point(ou
pixel) ?????

dimension de l'écran, résolution choisie

c'est là que j'en etais restéé quand j'ai cesser de
développer le digipad
http://disciplus.simplex.free.fr/classeursxl/gd-
gidipad.zip
;-)))
@+

-----Message d'origine-----
Re Modeste;
Un twip correspond très exactement à 1/567e de
centimètre.

Donc: x (mm) = (x * 56.7) twips ou x (twips) = (x /
56.7) mm

Mais ce n'est pas tout car ActiveCell.Left et
ActiveCell.Top retourne les valeurs

en points des positions de la cellule active par rapport
au point zéro

correspondant au coin haut et gauche de la cellule "A1"
elle même située à on ne

sait combien du coin supérieur gauche de l'écran (cela
dépend du nombre de barres

d'outils affichées, de la présence ou non des entêtes de
lignes et colonnes,etc.

En bref, il reste du chemin à faire...

MP

"modeste" dans le message de

news:1870a01c422f2$1f541290$
bonjour,
Ouuuuuhhhh...... !!
comment ça on veut me passer par la fenetre ????

je m'insurge avec véhémence contre cet ostracisme qui
consiste à minimiser cette ouverture vers un début de
solution !!!!!
Moi gee-dee, G&D, J'ai aidé
;-P
;-)))

je sais, j'aurais pu prévoir une conversion en pouces et
pieds pour nos amis "canadiens à tetes carrées",
mais que diable! , crisse! , tabernacle! etc...
comme dit Clément :
"ici c'est un forum francophone !" ....

meme minimisée, elle fonctionne ma petite proc fournie au
tréfond de ma réponse précédente :
et je persiste :

Sub Ou_suis_je()
Application.WindowState = xlMaximized
Application.Goto Reference:="R65536C256"
MsgBox "Bonjour Isabelle !!"
Application.WindowState = xlMinimized
MsgBox ActiveCell.Address _
& Chr(10) & "Ligne : " & ActiveCell.Row _
& Chr(10) & "Colonne : " & ActiveCell.Column
MsgBox "a gauche en twips ??? :" & ActiveCell.Left _
& Chr(10) & "du haut en twips ??? :" * ActiveCell.Top
End Sub

Maintenant j'attends la conversion twips ???? en mm ....

Na....! ;-P
;-)))

-----Message d'origine-----
Bonjour Modeste;
Permets moi de contester cette approche qui n'est
vérifiée qu'à la condition sine

qua none que la fenêtre soit maximisée, ce que tu as
omis de spécifier. Dans le

cas contraire, tu risques fort de ne pas être où tu
crois et même nulle part si la

fenêtre est minimisée.
;-))) MP

message de

news:1ce8501c422de$495fb670$
La taille d'une cellule standard sur un écran 17
pouces>Sub Ou_suis_je()

MsgBox ActiveCell.Address _
& Chr(10) & "Ligne : " & ActiveCell.Row _
& Chr(10) & "Colonne : " & ActiveCell.Column
End Sub

largeur 24mm environ
hauteur 5mm environ
(le viron est une unité trés souvent utilisée notament
pour limiter l'affichage des chiffres significatifs)

Isabelle se trouve à $IV$65536 :
à droite à environ 6m 144
en bas à environ 327m 680

présentement en cours d'exploration de OWC
(Office Web Components)
je me trouve "modestement" à $ZZZ$262144
"j'ai dé"calé à droite jusque environ 438m 672
"j'ai dé"scendu en bas jusque environ 1310m 720
je ne vois plus Isabelle !!!!
au secours .....
;-)))


-----Message d'origine-----
ça dépend des cellules,
les coordonnées de celle d'Isabelle sont faciles à
trouver : tout droit, en

bas à droite

F.

"> La question cache donc un problème très complexe.


.




.




.









Philippe.R
Le #1249552
Bonjour job,
(si, si ça se dit !)
Modeste avait fourni une piste aisée à adapter, ainsi par exemple :

Sub Ou_suis_je()
Dim tUTu As String
tUTu = ActiveCell.Address _
& Chr(10) & "Ligne : " & ActiveCell.Row _
& Chr(10) & "Colonne : " & ActiveCell.Column
MsgBox tUTu
[a1] = tUTu
End Sub


--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"news"
Vous êtes partis dans un bon délire, mais je crois que la question, au
départ, est :

"j'ai besoin d'appliquer à une cellule des conditions particulières (comme
la couleur de la cellule ou une valeur)
en fonction de l'emplacement de la cellule active. "

Merci


"Michel Pierron" news:
Eh oui :
1 point = 3/4 de pixel ou 1 pixel = 4/3 de point
et généralement 1 pixel = 15 twips (si la taille de caractère définie dans
les

paramètres généraux a été fixée à 96 dpi).
MP

"Modeste" news:1cfc001c422fe$8ca30cf0$
;-)))
manquerai donc encore la relation entre twip et point(ou
pixel) ?????

dimension de l'écran, résolution choisie

c'est là que j'en etais restéé quand j'ai cesser de
développer le digipad
http://disciplus.simplex.free.fr/classeursxl/gd-
gidipad.zip
;-)))
@+

-----Message d'origine-----
Re Modeste;
Un twip correspond très exactement à 1/567e de
centimètre.

Donc: x (mm) = (x * 56.7) twips ou x (twips) = (x /
56.7) mm

Mais ce n'est pas tout car ActiveCell.Left et
ActiveCell.Top retourne les valeurs

en points des positions de la cellule active par rapport
au point zéro

correspondant au coin haut et gauche de la cellule "A1"
elle même située à on ne

sait combien du coin supérieur gauche de l'écran (cela
dépend du nombre de barres

d'outils affichées, de la présence ou non des entêtes de
lignes et colonnes,etc.

En bref, il reste du chemin à faire...

MP

"modeste" dans le message de

news:1870a01c422f2$1f541290$
bonjour,
Ouuuuuhhhh...... !!
comment ça on veut me passer par la fenetre ????

je m'insurge avec véhémence contre cet ostracisme qui
consiste à minimiser cette ouverture vers un début de
solution !!!!!
Moi gee-dee, G&D, J'ai aidé
;-P
;-)))

je sais, j'aurais pu prévoir une conversion en pouces et
pieds pour nos amis "canadiens à tetes carrées",
mais que diable! , crisse! , tabernacle! etc...
comme dit Clément :
"ici c'est un forum francophone !" ....

meme minimisée, elle fonctionne ma petite proc fournie au
tréfond de ma réponse précédente :
et je persiste :

Sub Ou_suis_je()
Application.WindowState = xlMaximized
Application.Goto Reference:="R65536C256"
MsgBox "Bonjour Isabelle !!"
Application.WindowState = xlMinimized
MsgBox ActiveCell.Address _
& Chr(10) & "Ligne : " & ActiveCell.Row _
& Chr(10) & "Colonne : " & ActiveCell.Column
MsgBox "a gauche en twips ??? :" & ActiveCell.Left _
& Chr(10) & "du haut en twips ??? :" * ActiveCell.Top
End Sub

Maintenant j'attends la conversion twips ???? en mm ....

Na....! ;-P
;-)))

-----Message d'origine-----
Bonjour Modeste;
Permets moi de contester cette approche qui n'est
vérifiée qu'à la condition sine

qua none que la fenêtre soit maximisée, ce que tu as
omis de spécifier. Dans le

cas contraire, tu risques fort de ne pas être où tu
crois et même nulle part si la

fenêtre est minimisée.
;-))) MP

message de

news:1ce8501c422de$495fb670$
La taille d'une cellule standard sur un écran 17
pouces>Sub Ou_suis_je()

MsgBox ActiveCell.Address _
& Chr(10) & "Ligne : " & ActiveCell.Row _
& Chr(10) & "Colonne : " & ActiveCell.Column
End Sub

largeur 24mm environ
hauteur 5mm environ
(le viron est une unité trés souvent utilisée notament
pour limiter l'affichage des chiffres significatifs)

Isabelle se trouve à $IV$65536 :
à droite à environ 6m 144
en bas à environ 327m 680

présentement en cours d'exploration de OWC
(Office Web Components)
je me trouve "modestement" à $ZZZ$262144
"j'ai dé"calé à droite jusque environ 438m 672
"j'ai dé"scendu en bas jusque environ 1310m 720
je ne vois plus Isabelle !!!!
au secours .....
;-)))


-----Message d'origine-----
ça dépend des cellules,
les coordonnées de celle d'Isabelle sont faciles à
trouver : tout droit, en

bas à droite

F.

"> La question cache donc un problème très complexe.


.




.




.













Clément Marcotte
Le #1272215
Eh oui, mais les répondeurs sont des bénévoles, pas des esclaves, qui
aiment bien un peu de politesse de la part des demandeurs.


"news" news:
Vous êtes partis dans un bon délire, mais je crois que la question,
au

départ, est :

"j'ai besoin d'appliquer à une cellule des conditions particulières
(comme

la couleur de la cellule ou une valeur)
en fonction de l'emplacement de la cellule active. "

Merci


"Michel Pierron" news:
Eh oui :
1 point = 3/4 de pixel ou 1 pixel = 4/3 de point
et généralement 1 pixel = 15 twips (si la taille de caractère
définie dans


les
paramètres généraux a été fixée à 96 dpi).
MP

"Modeste" message de


news:1cfc001c422fe$8ca30cf0$
;-)))
manquerai donc encore la relation entre twip et point(ou
pixel) ?????

dimension de l'écran, résolution choisie

c'est là que j'en etais restéé quand j'ai cesser de
développer le digipad
http://disciplus.simplex.free.fr/classeursxl/gd-
gidipad.zip
;-)))
@+

-----Message d'origine-----
Re Modeste;
Un twip correspond très exactement à 1/567e de
centimètre.

Donc: x (mm) = (x * 56.7) twips ou x (twips) = (x /
56.7) mm

Mais ce n'est pas tout car ActiveCell.Left et
ActiveCell.Top retourne les valeurs

en points des positions de la cellule active par rapport
au point zéro

correspondant au coin haut et gauche de la cellule "A1"
elle même située à on ne

sait combien du coin supérieur gauche de l'écran (cela
dépend du nombre de barres

d'outils affichées, de la présence ou non des entêtes de
lignes et colonnes,etc.

En bref, il reste du chemin à faire...

MP

"modeste" dans le message de

news:1870a01c422f2$1f541290$
bonjour,
Ouuuuuhhhh...... !!
comment ça on veut me passer par la fenetre ????

je m'insurge avec véhémence contre cet ostracisme qui
consiste à minimiser cette ouverture vers un début de
solution !!!!!
Moi gee-dee, G&D, J'ai aidé
;-P
;-)))

je sais, j'aurais pu prévoir une conversion en pouces et
pieds pour nos amis "canadiens à tetes carrées",
mais que diable! , crisse! , tabernacle! etc...
comme dit Clément :
"ici c'est un forum francophone !" ....

meme minimisée, elle fonctionne ma petite proc fournie au
tréfond de ma réponse précédente :
et je persiste :

Sub Ou_suis_je()
Application.WindowState = xlMaximized
Application.Goto Reference:="R65536C256"
MsgBox "Bonjour Isabelle !!"
Application.WindowState = xlMinimized
MsgBox ActiveCell.Address _
& Chr(10) & "Ligne : " & ActiveCell.Row _
& Chr(10) & "Colonne : " & ActiveCell.Column
MsgBox "a gauche en twips ??? :" & ActiveCell.Left _
& Chr(10) & "du haut en twips ??? :" * ActiveCell.Top
End Sub

Maintenant j'attends la conversion twips ???? en mm ....

Na....! ;-P
;-)))

-----Message d'origine-----
Bonjour Modeste;
Permets moi de contester cette approche qui n'est
vérifiée qu'à la condition sine

qua none que la fenêtre soit maximisée, ce que tu as
omis de spécifier. Dans le

cas contraire, tu risques fort de ne pas être où tu
crois et même nulle part si la

fenêtre est minimisée.
;-))) MP

message de

news:1ce8501c422de$495fb670$
La taille d'une cellule standard sur un écran 17
pouces>Sub Ou_suis_je()

MsgBox ActiveCell.Address _
& Chr(10) & "Ligne : " & ActiveCell.Row _
& Chr(10) & "Colonne : " & ActiveCell.Column
End Sub

largeur 24mm environ
hauteur 5mm environ
(le viron est une unité trés souvent utilisée notament
pour limiter l'affichage des chiffres significatifs)

Isabelle se trouve à $IV$65536 :
à droite à environ 6m 144
en bas à environ 327m 680

présentement en cours d'exploration de OWC
(Office Web Components)
je me trouve "modestement" à $ZZZ$262144
"j'ai dé"calé à droite jusque environ 438m 672
"j'ai dé"scendu en bas jusque environ 1310m 720
je ne vois plus Isabelle !!!!
au secours .....
;-)))


-----Message d'origine-----
ça dépend des cellules,
les coordonnées de celle d'Isabelle sont faciles à
trouver : tout droit, en

bas à droite

F.

"> La question cache donc un problème très complexe.


.




.




.













Publicité
Poster une réponse
Anonyme