Je suis à la recherche d'une solution pour afficher dans les cellules (C6 à
H6) d'une feuille les caractéristiques (coordonnées de l'origine,
coordonnées de la fin, longueur, angle) d'une ligne que je vient de tracer
et donner comme nom à cet objet la valeur de la cellule B6.
Ce que je souhaite faire, c'est cliquer sur un bouton après avoir tracer
cette ligne. Pour ce qui est de placer les valeurs dans la feuille, il n'y a
pas de problème. Mais je n'ai pas trouver comment faire pour récupérer dans
un code les valeurs de cet objet.
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
Michel Pierron
Bonjour Nicolas; Quelque chose comme: Sub Bouton1_QuandClic() If Selection Is Nothing Then Exit Sub If TypeName(Selection) = "Line" Then Dim X As Double, Y As Double, H As Double With Selection X = .Width: Y = .Height Range("C6") = .Left Range("D6") = .Top Range("E6") = .Left + X Range("F6") = .Top + Y H = Sqr((X ^ 2) + (Y ^ 2)) Range("G6") = H X = X / H Range("H6") = ACos(X) * 45 / Atn(1) If Range("B6") = "" Then .Name = Range("B6") End With End If End Sub
Private Function ACos(X As Double) As Double On Error GoTo 1 ACos = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1) Exit Function 1: ACos = 0 End Function
MP
"Nicolas S" a écrit dans le message de news:cn1unl$dh8$
Bonjour,
Je suis à la recherche d'une solution pour afficher dans les cellules (C6 à
H6) d'une feuille les caractéristiques (coordonnées de l'origine, coordonnées de la fin, longueur, angle) d'une ligne que je vient de tracer et donner comme nom à cet objet la valeur de la cellule B6.
Ce que je souhaite faire, c'est cliquer sur un bouton après avoir tracer cette ligne. Pour ce qui est de placer les valeurs dans la feuille, il n'y a
pas de problème. Mais je n'ai pas trouver comment faire pour récupérer dans
un code les valeurs de cet objet.
Merci de votre attention.
Bonjour Nicolas;
Quelque chose comme:
Sub Bouton1_QuandClic()
If Selection Is Nothing Then Exit Sub
If TypeName(Selection) = "Line" Then
Dim X As Double, Y As Double, H As Double
With Selection
X = .Width: Y = .Height
Range("C6") = .Left
Range("D6") = .Top
Range("E6") = .Left + X
Range("F6") = .Top + Y
H = Sqr((X ^ 2) + (Y ^ 2))
Range("G6") = H
X = X / H
Range("H6") = ACos(X) * 45 / Atn(1)
If Range("B6") = "" Then .Name = Range("B6")
End With
End If
End Sub
Private Function ACos(X As Double) As Double
On Error GoTo 1
ACos = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
Exit Function
1: ACos = 0
End Function
MP
"Nicolas S" <NmcnSsaillardP@libertysurf.fr> a écrit dans le message de
news:cn1unl$dh8$1@news.tiscali.fr...
Bonjour,
Je suis à la recherche d'une solution pour afficher dans les cellules (C6
à
H6) d'une feuille les caractéristiques (coordonnées de l'origine,
coordonnées de la fin, longueur, angle) d'une ligne que je vient de tracer
et donner comme nom à cet objet la valeur de la cellule B6.
Ce que je souhaite faire, c'est cliquer sur un bouton après avoir tracer
cette ligne. Pour ce qui est de placer les valeurs dans la feuille, il n'y
a
pas de problème. Mais je n'ai pas trouver comment faire pour récupérer
dans
Bonjour Nicolas; Quelque chose comme: Sub Bouton1_QuandClic() If Selection Is Nothing Then Exit Sub If TypeName(Selection) = "Line" Then Dim X As Double, Y As Double, H As Double With Selection X = .Width: Y = .Height Range("C6") = .Left Range("D6") = .Top Range("E6") = .Left + X Range("F6") = .Top + Y H = Sqr((X ^ 2) + (Y ^ 2)) Range("G6") = H X = X / H Range("H6") = ACos(X) * 45 / Atn(1) If Range("B6") = "" Then .Name = Range("B6") End With End If End Sub
Private Function ACos(X As Double) As Double On Error GoTo 1 ACos = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1) Exit Function 1: ACos = 0 End Function
MP
"Nicolas S" a écrit dans le message de news:cn1unl$dh8$
Bonjour,
Je suis à la recherche d'une solution pour afficher dans les cellules (C6 à
H6) d'une feuille les caractéristiques (coordonnées de l'origine, coordonnées de la fin, longueur, angle) d'une ligne que je vient de tracer et donner comme nom à cet objet la valeur de la cellule B6.
Ce que je souhaite faire, c'est cliquer sur un bouton après avoir tracer cette ligne. Pour ce qui est de placer les valeurs dans la feuille, il n'y a
pas de problème. Mais je n'ai pas trouver comment faire pour récupérer dans
un code les valeurs de cet objet.
Merci de votre attention.
Nicolas S
merci Michel, j'étudie cela
Michel Pierron a écrit dans le message ...
Bonjour Nicolas; Quelque chose comme: Sub Bouton1_QuandClic() If Selection Is Nothing Then Exit Sub If TypeName(Selection) = "Line" Then Dim X As Double, Y As Double, H As Double With Selection X = .Width: Y = .Height Range("C6") = .Left Range("D6") = .Top Range("E6") = .Left + X Range("F6") = .Top + Y H = Sqr((X ^ 2) + (Y ^ 2)) Range("G6") = H X = X / H Range("H6") = ACos(X) * 45 / Atn(1) If Range("B6") = "" Then .Name = Range("B6") End With End If End Sub
Private Function ACos(X As Double) As Double On Error GoTo 1 ACos = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1) Exit Function 1: ACos = 0 End Function
MP
"Nicolas S" a écrit dans le message de news:cn1unl$dh8$
Bonjour,
Je suis à la recherche d'une solution pour afficher dans les cellules (C6 à
H6) d'une feuille les caractéristiques (coordonnées de l'origine, coordonnées de la fin, longueur, angle) d'une ligne que je vient de tracer
et donner comme nom à cet objet la valeur de la cellule B6.
Ce que je souhaite faire, c'est cliquer sur un bouton après avoir tracer cette ligne. Pour ce qui est de placer les valeurs dans la feuille, il n'y
a
pas de problème. Mais je n'ai pas trouver comment faire pour récupérer dans
un code les valeurs de cet objet.
Merci de votre attention.
merci Michel, j'étudie cela
Michel Pierron a écrit dans le message ...
Bonjour Nicolas;
Quelque chose comme:
Sub Bouton1_QuandClic()
If Selection Is Nothing Then Exit Sub
If TypeName(Selection) = "Line" Then
Dim X As Double, Y As Double, H As Double
With Selection
X = .Width: Y = .Height
Range("C6") = .Left
Range("D6") = .Top
Range("E6") = .Left + X
Range("F6") = .Top + Y
H = Sqr((X ^ 2) + (Y ^ 2))
Range("G6") = H
X = X / H
Range("H6") = ACos(X) * 45 / Atn(1)
If Range("B6") = "" Then .Name = Range("B6")
End With
End If
End Sub
Private Function ACos(X As Double) As Double
On Error GoTo 1
ACos = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
Exit Function
1: ACos = 0
End Function
MP
"Nicolas S" <NmcnSsaillardP@libertysurf.fr> a écrit dans le message de
news:cn1unl$dh8$1@news.tiscali.fr...
Bonjour,
Je suis à la recherche d'une solution pour afficher dans les cellules (C6
à
H6) d'une feuille les caractéristiques (coordonnées de l'origine,
coordonnées de la fin, longueur, angle) d'une ligne que je vient de
tracer
et donner comme nom à cet objet la valeur de la cellule B6.
Ce que je souhaite faire, c'est cliquer sur un bouton après avoir tracer
cette ligne. Pour ce qui est de placer les valeurs dans la feuille, il
n'y
a
pas de problème. Mais je n'ai pas trouver comment faire pour récupérer
dans
Bonjour Nicolas; Quelque chose comme: Sub Bouton1_QuandClic() If Selection Is Nothing Then Exit Sub If TypeName(Selection) = "Line" Then Dim X As Double, Y As Double, H As Double With Selection X = .Width: Y = .Height Range("C6") = .Left Range("D6") = .Top Range("E6") = .Left + X Range("F6") = .Top + Y H = Sqr((X ^ 2) + (Y ^ 2)) Range("G6") = H X = X / H Range("H6") = ACos(X) * 45 / Atn(1) If Range("B6") = "" Then .Name = Range("B6") End With End If End Sub
Private Function ACos(X As Double) As Double On Error GoTo 1 ACos = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1) Exit Function 1: ACos = 0 End Function
MP
"Nicolas S" a écrit dans le message de news:cn1unl$dh8$
Bonjour,
Je suis à la recherche d'une solution pour afficher dans les cellules (C6 à
H6) d'une feuille les caractéristiques (coordonnées de l'origine, coordonnées de la fin, longueur, angle) d'une ligne que je vient de tracer
et donner comme nom à cet objet la valeur de la cellule B6.
Ce que je souhaite faire, c'est cliquer sur un bouton après avoir tracer cette ligne. Pour ce qui est de placer les valeurs dans la feuille, il n'y
a
pas de problème. Mais je n'ai pas trouver comment faire pour récupérer dans
