quelle est la formule pour récupérer la hauteur d'un objet shape ? d'avance merci pour votre aide.
legege
JP25
Bonjour, Cette Sub te renvoie la taille de ton trait en cellule A2 (Remplacer "Trait 8" par le nom de ton trait Sub a() ActiveSheet.Shapes("trait 8").Select ActiveSheet.[a2] = ActiveSheet.Shapes("trait 8").Height End Sub JP25 "legege" a écrit dans le message de news:
Bonjour,
quelle est la formule pour récupérer la hauteur d'un objet shape ? d'avance merci pour votre aide.
legege
Bonjour,
Cette Sub te renvoie la taille de ton trait en cellule A2
(Remplacer "Trait 8" par le nom de ton trait
Sub a()
ActiveSheet.Shapes("trait 8").Select
ActiveSheet.[a2] = ActiveSheet.Shapes("trait 8").Height
End Sub
JP25
"legege" <legege@discussions.microsoft.com> a écrit dans le message de news:
EF9DCD0B-6184-4351-98AB-1529884B0BAC@microsoft.com...
Bonjour,
quelle est la formule pour récupérer la hauteur d'un objet shape ?
d'avance merci pour votre aide.
Bonjour, Cette Sub te renvoie la taille de ton trait en cellule A2 (Remplacer "Trait 8" par le nom de ton trait Sub a() ActiveSheet.Shapes("trait 8").Select ActiveSheet.[a2] = ActiveSheet.Shapes("trait 8").Height End Sub JP25 "legege" a écrit dans le message de news:
Bonjour,
quelle est la formule pour récupérer la hauteur d'un objet shape ? d'avance merci pour votre aide.
legege
legege
Bonjour,
merci pour la réponse qui marche lorsqu'on connait le nom de la forme, mais mon problème est que j'ai une multitude d'objet et que je ne connait pas leur nom au moment de l'activation de la sub. comment faire pour que cela marche quelque soit le nom de l'objet ?
merci
Bonjour, Cette Sub te renvoie la taille de ton trait en cellule A2 (Remplacer "Trait 8" par le nom de ton trait Sub a() ActiveSheet.Shapes("trait 8").Select ActiveSheet.[a2] = ActiveSheet.Shapes("trait 8").Height End Sub JP25 "legege" a écrit dans le message de news:
Bonjour,
quelle est la formule pour récupérer la hauteur d'un objet shape ? d'avance merci pour votre aide.
legege
Bonjour,
merci pour la réponse qui marche lorsqu'on connait le nom de la forme, mais
mon problème est que j'ai une multitude d'objet et que je ne connait pas leur
nom au moment de l'activation de la sub.
comment faire pour que cela marche quelque soit le nom de l'objet ?
merci
Bonjour,
Cette Sub te renvoie la taille de ton trait en cellule A2
(Remplacer "Trait 8" par le nom de ton trait
Sub a()
ActiveSheet.Shapes("trait 8").Select
ActiveSheet.[a2] = ActiveSheet.Shapes("trait 8").Height
End Sub
JP25
"legege" <legege@discussions.microsoft.com> a écrit dans le message de news:
EF9DCD0B-6184-4351-98AB-1529884B0BAC@microsoft.com...
Bonjour,
quelle est la formule pour récupérer la hauteur d'un objet shape ?
d'avance merci pour votre aide.
merci pour la réponse qui marche lorsqu'on connait le nom de la forme, mais mon problème est que j'ai une multitude d'objet et que je ne connait pas leur nom au moment de l'activation de la sub. comment faire pour que cela marche quelque soit le nom de l'objet ?
merci
Bonjour, Cette Sub te renvoie la taille de ton trait en cellule A2 (Remplacer "Trait 8" par le nom de ton trait Sub a() ActiveSheet.Shapes("trait 8").Select ActiveSheet.[a2] = ActiveSheet.Shapes("trait 8").Height End Sub JP25 "legege" a écrit dans le message de news:
Bonjour,
quelle est la formule pour récupérer la hauteur d'un objet shape ? d'avance merci pour votre aide.
legege
JB
Bonjour,
For Each i In ActiveSheet.Shapes Msgbox ActiveSheet.Shapes(i).Height Next i
JB
On 6 juin, 14:16, legege wrote:
Bonjour,
quelle est la formule pour récupérer la hauteur d'un objet shape ? d'avance merci pour votre aide.
legege
Bonjour,
For Each i In ActiveSheet.Shapes
Msgbox ActiveSheet.Shapes(i).Height
Next i
JB
On 6 juin, 14:16, legege <leg...@discussions.microsoft.com> wrote:
Bonjour,
quelle est la formule pour récupérer la hauteur d'un objet shape ?
d'avance merci pour votre aide.
For Each i In ActiveSheet.Shapes Msgbox ActiveSheet.Shapes(i).Height Next i
JB
On 6 juin, 14:16, legege wrote:
Bonjour,
quelle est la formule pour récupérer la hauteur d'un objet shape ? d'avance merci pour votre aide.
legege
legege
Re,
cela ne résoud pas mon problème, car la sub est activée que pour un seul objet dont je ne connais pas le nom. il faudrait que je récupère la hauteur uniquement pour l'objet qui est sélectionné.
merci legege
Bonjour,
For Each i In ActiveSheet.Shapes Msgbox ActiveSheet.Shapes(i).Height Next i
JB
On 6 juin, 14:16, legege wrote:
Bonjour,
quelle est la formule pour récupérer la hauteur d'un objet shape ? d'avance merci pour votre aide.
legege
Re,
cela ne résoud pas mon problème, car la sub est activée que pour un seul
objet dont je ne connais pas le nom. il faudrait que je récupère la hauteur
uniquement pour l'objet qui est sélectionné.
merci
legege
Bonjour,
For Each i In ActiveSheet.Shapes
Msgbox ActiveSheet.Shapes(i).Height
Next i
JB
On 6 juin, 14:16, legege <leg...@discussions.microsoft.com> wrote:
Bonjour,
quelle est la formule pour récupérer la hauteur d'un objet shape ?
d'avance merci pour votre aide.
cela ne résoud pas mon problème, car la sub est activée que pour un seul objet dont je ne connais pas le nom. il faudrait que je récupère la hauteur uniquement pour l'objet qui est sélectionné.
merci legege
Bonjour,
For Each i In ActiveSheet.Shapes Msgbox ActiveSheet.Shapes(i).Height Next i
JB
On 6 juin, 14:16, legege wrote:
Bonjour,
quelle est la formule pour récupérer la hauteur d'un objet shape ? d'avance merci pour votre aide.
legege
JB
S'il n'y a qu'un shape:
x = ActiveSheet.Shapes(1).Height
Shape sélectionné:
z = Selection.Height
JB
On 8 juin, 10:13, legege wrote:
Re,
cela ne résoud pas mon problème, car la sub est activée que pour un seul objet dont je ne connais pas le nom. il faudrait que je récupère la h auteur uniquement pour l'objet qui est sélectionné.
merci legege
Bonjour,
For Each i In ActiveSheet.Shapes Msgbox ActiveSheet.Shapes(i).Height Next i
JB
On 6 juin, 14:16, legege wrote:
Bonjour,
quelle est la formule pour récupérer la hauteur d'un objet shape ? d'avance merci pour votre aide.
legege- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
S'il n'y a qu'un shape:
x = ActiveSheet.Shapes(1).Height
Shape sélectionné:
z = Selection.Height
JB
On 8 juin, 10:13, legege <leg...@discussions.microsoft.com> wrote:
Re,
cela ne résoud pas mon problème, car la sub est activée que pour un seul
objet dont je ne connais pas le nom. il faudrait que je récupère la h auteur
uniquement pour l'objet qui est sélectionné.
merci
legege
Bonjour,
For Each i In ActiveSheet.Shapes
Msgbox ActiveSheet.Shapes(i).Height
Next i
JB
On 6 juin, 14:16, legege <leg...@discussions.microsoft.com> wrote:
Bonjour,
quelle est la formule pour récupérer la hauteur d'un objet shape ?
d'avance merci pour votre aide.
legege- Masquer le texte des messages précédents -
cela ne résoud pas mon problème, car la sub est activée que pour un seul objet dont je ne connais pas le nom. il faudrait que je récupère la h auteur uniquement pour l'objet qui est sélectionné.
merci legege
Bonjour,
For Each i In ActiveSheet.Shapes Msgbox ActiveSheet.Shapes(i).Height Next i
JB
On 6 juin, 14:16, legege wrote:
Bonjour,
quelle est la formule pour récupérer la hauteur d'un objet shape ? d'avance merci pour votre aide.
legege- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Haïku
Salut,
Une solution pas tres elegante mais qui peut fonctionner.
Il faut juste que le shape soit selectionne avant le lancement du Sub
Sub NomDuShapeActif() MsgBox Selection.Name End Sub
++
Re,
cela ne résoud pas mon problème, car la sub est activée que pour un seul objet dont je ne connais pas le nom. il faudrait que je récupère la hauteur uniquement pour l'objet qui est sélectionné.
merci legege
Bonjour,
For Each i In ActiveSheet.Shapes Msgbox ActiveSheet.Shapes(i).Height Next i
JB
On 6 juin, 14:16, legege wrote:
Bonjour,
quelle est la formule pour récupérer la hauteur d'un objet shape ? d'avance merci pour votre aide.
legege
Salut,
Une solution pas tres elegante mais qui peut fonctionner.
Il faut juste que le shape soit selectionne avant le lancement du Sub
Sub NomDuShapeActif()
MsgBox Selection.Name
End Sub
++
Re,
cela ne résoud pas mon problème, car la sub est activée que pour un seul
objet dont je ne connais pas le nom. il faudrait que je récupère la hauteur
uniquement pour l'objet qui est sélectionné.
merci
legege
Bonjour,
For Each i In ActiveSheet.Shapes
Msgbox ActiveSheet.Shapes(i).Height
Next i
JB
On 6 juin, 14:16, legege <leg...@discussions.microsoft.com> wrote:
Bonjour,
quelle est la formule pour récupérer la hauteur d'un objet shape ?
d'avance merci pour votre aide.
Une solution pas tres elegante mais qui peut fonctionner.
Il faut juste que le shape soit selectionne avant le lancement du Sub
Sub NomDuShapeActif() MsgBox Selection.Name End Sub
++
Re,
cela ne résoud pas mon problème, car la sub est activée que pour un seul objet dont je ne connais pas le nom. il faudrait que je récupère la hauteur uniquement pour l'objet qui est sélectionné.
merci legege
Bonjour,
For Each i In ActiveSheet.Shapes Msgbox ActiveSheet.Shapes(i).Height Next i
JB
On 6 juin, 14:16, legege wrote:
Bonjour,
quelle est la formule pour récupérer la hauteur d'un objet shape ? d'avance merci pour votre aide.
legege
AV
Il me semble deviner (?) que tu veux affecter une sub à l'objet qui te donnerait la hauteur ??
Si oui, quel que soit le nom de l'objet, affecter cette sub :
merci pour la piste. en combinant j'arrive à ce que je voulais
Sub NomDuShapeActif() nomshape = Selection.Name MsgBox "nom : " & nomshape haut = ActiveSheet.Shapes(nomshape).Height MsgBox "haut : " & haut End Sub
avec ceci je récupère bien la hauteur de l'objet qui est sélectionné, et je peux enchaîner sur les traitements désirés.
merci à tous legege
Salut,
Une solution pas tres elegante mais qui peut fonctionner.
Il faut juste que le shape soit selectionne avant le lancement du Sub
Sub NomDuShapeActif() MsgBox Selection.Name End Sub
++
Re,
cela ne résoud pas mon problème, car la sub est activée que pour un seul objet dont je ne connais pas le nom. il faudrait que je récupère la hauteur uniquement pour l'objet qui est sélectionné.
merci legege
Bonjour,
For Each i In ActiveSheet.Shapes Msgbox ActiveSheet.Shapes(i).Height Next i
JB
On 6 juin, 14:16, legege wrote:
Bonjour,
quelle est la formule pour récupérer la hauteur d'un objet shape ? d'avance merci pour votre aide.
legege
Bonjour,
merci pour la piste. en combinant j'arrive à ce que je voulais
Sub NomDuShapeActif()
nomshape = Selection.Name
MsgBox "nom : " & nomshape
haut = ActiveSheet.Shapes(nomshape).Height
MsgBox "haut : " & haut
End Sub
avec ceci je récupère bien la hauteur de l'objet qui est sélectionné, et je
peux enchaîner sur les traitements désirés.
merci à tous
legege
Salut,
Une solution pas tres elegante mais qui peut fonctionner.
Il faut juste que le shape soit selectionne avant le lancement du Sub
Sub NomDuShapeActif()
MsgBox Selection.Name
End Sub
++
Re,
cela ne résoud pas mon problème, car la sub est activée que pour un seul
objet dont je ne connais pas le nom. il faudrait que je récupère la hauteur
uniquement pour l'objet qui est sélectionné.
merci
legege
Bonjour,
For Each i In ActiveSheet.Shapes
Msgbox ActiveSheet.Shapes(i).Height
Next i
JB
On 6 juin, 14:16, legege <leg...@discussions.microsoft.com> wrote:
Bonjour,
quelle est la formule pour récupérer la hauteur d'un objet shape ?
d'avance merci pour votre aide.
merci pour la piste. en combinant j'arrive à ce que je voulais
Sub NomDuShapeActif() nomshape = Selection.Name MsgBox "nom : " & nomshape haut = ActiveSheet.Shapes(nomshape).Height MsgBox "haut : " & haut End Sub
avec ceci je récupère bien la hauteur de l'objet qui est sélectionné, et je peux enchaîner sur les traitements désirés.
merci à tous legege
Salut,
Une solution pas tres elegante mais qui peut fonctionner.
Il faut juste que le shape soit selectionne avant le lancement du Sub
Sub NomDuShapeActif() MsgBox Selection.Name End Sub
++
Re,
cela ne résoud pas mon problème, car la sub est activée que pour un seul objet dont je ne connais pas le nom. il faudrait que je récupère la hauteur uniquement pour l'objet qui est sélectionné.
merci legege
Bonjour,
For Each i In ActiveSheet.Shapes Msgbox ActiveSheet.Shapes(i).Height Next i
JB
On 6 juin, 14:16, legege wrote:
Bonjour,
quelle est la formule pour récupérer la hauteur d'un objet shape ? d'avance merci pour votre aide.
legege
JB
Sub NomDuShapeActif() MsgBox "haut : " & Selection.Height End Sub
merci pour la piste. en combinant j'arrive à ce que je voulais
Sub NomDuShapeActif() nomshape = Selection.Name MsgBox "nom : " & nomshape haut = ActiveSheet.Shapes(nomshape).Height MsgBox "haut : " & haut End Sub
avec ceci je récupère bien la hauteur de l'objet qui est sélectionn é, et je peux enchaîner sur les traitements désirés.
merci à tous legege
Salut,
Une solution pas tres elegante mais qui peut fonctionner.
Il faut juste que le shape soit selectionne avant le lancement du Sub
Sub NomDuShapeActif() MsgBox Selection.Name End Sub
++
Re,
cela ne résoud pas mon problème, car la sub est activée que pou r un seul objet dont je ne connais pas le nom. il faudrait que je récupère la hauteur uniquement pour l'objet qui est sélectionné.
merci legege
Bonjour,
For Each i In ActiveSheet.Shapes Msgbox ActiveSheet.Shapes(i).Height Next i
JB
On 6 juin, 14:16, legege wrote:
Bonjour,
quelle est la formule pour récupérer la hauteur d'un objet shap e ? d'avance merci pour votre aide.
legege- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Sub NomDuShapeActif()
MsgBox "haut : " & Selection.Height
End Sub
On 8 juin, 11:22, legege <leg...@discussions.microsoft.com> wrote:
Bonjour,
merci pour la piste. en combinant j'arrive à ce que je voulais
Sub NomDuShapeActif()
nomshape = Selection.Name
MsgBox "nom : " & nomshape
haut = ActiveSheet.Shapes(nomshape).Height
MsgBox "haut : " & haut
End Sub
avec ceci je récupère bien la hauteur de l'objet qui est sélectionn é, et je
peux enchaîner sur les traitements désirés.
merci à tous
legege
Salut,
Une solution pas tres elegante mais qui peut fonctionner.
Il faut juste que le shape soit selectionne avant le lancement du Sub
Sub NomDuShapeActif()
MsgBox Selection.Name
End Sub
++
Re,
cela ne résoud pas mon problème, car la sub est activée que pou r un seul
objet dont je ne connais pas le nom. il faudrait que je récupère la hauteur
uniquement pour l'objet qui est sélectionné.
merci
legege
Bonjour,
For Each i In ActiveSheet.Shapes
Msgbox ActiveSheet.Shapes(i).Height
Next i
JB
On 6 juin, 14:16, legege <leg...@discussions.microsoft.com> wrote:
Bonjour,
quelle est la formule pour récupérer la hauteur d'un objet shap e ?
d'avance merci pour votre aide.
legege- Masquer le texte des messages précédents -
merci pour la piste. en combinant j'arrive à ce que je voulais
Sub NomDuShapeActif() nomshape = Selection.Name MsgBox "nom : " & nomshape haut = ActiveSheet.Shapes(nomshape).Height MsgBox "haut : " & haut End Sub
avec ceci je récupère bien la hauteur de l'objet qui est sélectionn é, et je peux enchaîner sur les traitements désirés.
merci à tous legege
Salut,
Une solution pas tres elegante mais qui peut fonctionner.
Il faut juste que le shape soit selectionne avant le lancement du Sub
Sub NomDuShapeActif() MsgBox Selection.Name End Sub
++
Re,
cela ne résoud pas mon problème, car la sub est activée que pou r un seul objet dont je ne connais pas le nom. il faudrait que je récupère la hauteur uniquement pour l'objet qui est sélectionné.
merci legege
Bonjour,
For Each i In ActiveSheet.Shapes Msgbox ActiveSheet.Shapes(i).Height Next i
JB
On 6 juin, 14:16, legege wrote:
Bonjour,
quelle est la formule pour récupérer la hauteur d'un objet shap e ? d'avance merci pour votre aide.
legege- Masquer le texte des messages précédents -