Bonjour,
Je souhaite créer une macro qui dessinera une ligne plus épaisse que celle
proposée par défaut lorsqu'on clique sur le bouton ligne. Le problème est que
je voudrai pouvoir positionner mon départ et mon arrivée de ligne avec la
souris (comme avec le bouton ligne). Mais ceci ne fonctionne pas avec cette
écriture dans VBA: ActiveSheet.Shapes.AddLine(240#, 114.75, 360#,
216.75).Select
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
garnote
Salut Fred,
Peut-être que :
Sub Ligne_Épaisse() dx = ActiveCell.Left fx = ActiveCell.Left + ActiveCell.Width dy = ActiveCell.Top fy = dy Set ligne = ActiveSheet.Shapes.AddLine(dx, dy, fx, fy) ligne.Line.Weight = 3 ligne.Select End Sub
Serge
"Fred" a écrit dans le message de news:
Bonjour, Je souhaite créer une macro qui dessinera une ligne plus épaisse que celle proposée par défaut lorsqu'on clique sur le bouton ligne. Le problème est que je voudrai pouvoir positionner mon départ et mon arrivée de ligne avec la souris (comme avec le bouton ligne). Mais ceci ne fonctionne pas avec cette écriture dans VBA: ActiveSheet.Shapes.AddLine(240#, 114.75, 360#, 216.75).Select
Comment faire ? Merci d'avance
Salut Fred,
Peut-être que :
Sub Ligne_Épaisse()
dx = ActiveCell.Left
fx = ActiveCell.Left + ActiveCell.Width
dy = ActiveCell.Top
fy = dy
Set ligne = ActiveSheet.Shapes.AddLine(dx, dy, fx, fy)
ligne.Line.Weight = 3
ligne.Select
End Sub
Serge
"Fred" <Fred@discussions.microsoft.com> a écrit dans le message de news:
FD9B5E45-1EA8-4ACA-9A5F-93C114C530A9@microsoft.com...
Bonjour,
Je souhaite créer une macro qui dessinera une ligne plus épaisse que celle
proposée par défaut lorsqu'on clique sur le bouton ligne. Le problème est
que
je voudrai pouvoir positionner mon départ et mon arrivée de ligne avec la
souris (comme avec le bouton ligne). Mais ceci ne fonctionne pas avec
cette
écriture dans VBA: ActiveSheet.Shapes.AddLine(240#, 114.75, 360#,
216.75).Select
Sub Ligne_Épaisse() dx = ActiveCell.Left fx = ActiveCell.Left + ActiveCell.Width dy = ActiveCell.Top fy = dy Set ligne = ActiveSheet.Shapes.AddLine(dx, dy, fx, fy) ligne.Line.Weight = 3 ligne.Select End Sub
Serge
"Fred" a écrit dans le message de news:
Bonjour, Je souhaite créer une macro qui dessinera une ligne plus épaisse que celle proposée par défaut lorsqu'on clique sur le bouton ligne. Le problème est que je voudrai pouvoir positionner mon départ et mon arrivée de ligne avec la souris (comme avec le bouton ligne). Mais ceci ne fonctionne pas avec cette écriture dans VBA: ActiveSheet.Shapes.AddLine(240#, 114.75, 360#, 216.75).Select
Comment faire ? Merci d'avance
LSteph
Bonsoir, Peut-être ceci:
Sub adeline() Dim lin1 Set lin1 = ActiveSheet.Shapes.AddLine(240#, 114.75, 360#, 216.75) lin1.Select Selection.ShapeRange.Line.Weight = 3# End Sub
lSteph "Fred" a écrit dans le message de news:
Bonjour, Je souhaite créer une macro qui dessinera une ligne plus épaisse que celle proposée par défaut lorsqu'on clique sur le bouton ligne. Le problème est que je voudrai pouvoir positionner mon départ et mon arrivée de ligne avec la souris (comme avec le bouton ligne). Mais ceci ne fonctionne pas avec cette écriture dans VBA: ActiveSheet.Shapes.AddLine(240#, 114.75, 360#, 216.75).Select
Comment faire ? Merci d'avance
Bonsoir,
Peut-être ceci:
Sub adeline()
Dim lin1
Set lin1 = ActiveSheet.Shapes.AddLine(240#, 114.75, 360#, 216.75)
lin1.Select
Selection.ShapeRange.Line.Weight = 3#
End Sub
lSteph
"Fred" <Fred@discussions.microsoft.com> a écrit dans le message de news:
FD9B5E45-1EA8-4ACA-9A5F-93C114C530A9@microsoft.com...
Bonjour,
Je souhaite créer une macro qui dessinera une ligne plus épaisse que celle
proposée par défaut lorsqu'on clique sur le bouton ligne. Le problème est
que
je voudrai pouvoir positionner mon départ et mon arrivée de ligne avec la
souris (comme avec le bouton ligne). Mais ceci ne fonctionne pas avec
cette
écriture dans VBA: ActiveSheet.Shapes.AddLine(240#, 114.75, 360#,
216.75).Select
Sub adeline() Dim lin1 Set lin1 = ActiveSheet.Shapes.AddLine(240#, 114.75, 360#, 216.75) lin1.Select Selection.ShapeRange.Line.Weight = 3# End Sub
lSteph "Fred" a écrit dans le message de news:
Bonjour, Je souhaite créer une macro qui dessinera une ligne plus épaisse que celle proposée par défaut lorsqu'on clique sur le bouton ligne. Le problème est que je voudrai pouvoir positionner mon départ et mon arrivée de ligne avec la souris (comme avec le bouton ligne). Mais ceci ne fonctionne pas avec cette écriture dans VBA: ActiveSheet.Shapes.AddLine(240#, 114.75, 360#, 216.75).Select
Comment faire ? Merci d'avance
garnote
Salut Fred,
Une suggestion :
Sub Ligne_Épaisse_Dans_Cellule_Active() With ActiveCell dx = .Left fx = .Left + .Width / 2 dy = .Top End With fy = dy Set ligne = ActiveSheet.Shapes.AddLine(dx, dy, fx, fy) ligne.Line.Weight = 3 ligne.Select End Sub
Serge
"Fred" a écrit dans le message de news:
Bonjour, Je souhaite créer une macro qui dessinera une ligne plus épaisse que celle proposée par défaut lorsqu'on clique sur le bouton ligne. Le problème est que je voudrai pouvoir positionner mon départ et mon arrivée de ligne avec la souris (comme avec le bouton ligne). Mais ceci ne fonctionne pas avec cette écriture dans VBA: ActiveSheet.Shapes.AddLine(240#, 114.75, 360#, 216.75).Select
Comment faire ? Merci d'avance
Salut Fred,
Une suggestion :
Sub Ligne_Épaisse_Dans_Cellule_Active()
With ActiveCell
dx = .Left
fx = .Left + .Width / 2
dy = .Top
End With
fy = dy
Set ligne = ActiveSheet.Shapes.AddLine(dx, dy, fx, fy)
ligne.Line.Weight = 3
ligne.Select
End Sub
Serge
"Fred" <Fred@discussions.microsoft.com> a écrit dans le message de news:
FD9B5E45-1EA8-4ACA-9A5F-93C114C530A9@microsoft.com...
Bonjour,
Je souhaite créer une macro qui dessinera une ligne plus épaisse que celle
proposée par défaut lorsqu'on clique sur le bouton ligne. Le problème est
que
je voudrai pouvoir positionner mon départ et mon arrivée de ligne avec la
souris (comme avec le bouton ligne). Mais ceci ne fonctionne pas avec
cette
écriture dans VBA: ActiveSheet.Shapes.AddLine(240#, 114.75, 360#,
216.75).Select
Sub Ligne_Épaisse_Dans_Cellule_Active() With ActiveCell dx = .Left fx = .Left + .Width / 2 dy = .Top End With fy = dy Set ligne = ActiveSheet.Shapes.AddLine(dx, dy, fx, fy) ligne.Line.Weight = 3 ligne.Select End Sub
Serge
"Fred" a écrit dans le message de news:
Bonjour, Je souhaite créer une macro qui dessinera une ligne plus épaisse que celle proposée par défaut lorsqu'on clique sur le bouton ligne. Le problème est que je voudrai pouvoir positionner mon départ et mon arrivée de ligne avec la souris (comme avec le bouton ligne). Mais ceci ne fonctionne pas avec cette écriture dans VBA: ActiveSheet.Shapes.AddLine(240#, 114.75, 360#, 216.75).Select
Comment faire ? Merci d'avance
garnote
Et pourquoi pas un autre With ;-)
Sub Ligne_Épaisse_Dans_Cellule_Active() With ActiveCell dx = .Left fx = .Left + .Width / 2 dy = .Top End With fy = dy With ActiveSheet.Shapes.AddLine(dx, dy, fx, fy) .Line.Weight = 3 .Select End With End Sub
Bonsoir, Bonne nuit,
Serge
"garnote" a écrit dans le message de news: %
Salut Fred,
Une suggestion :
Sub Ligne_Épaisse_Dans_Cellule_Active() With ActiveCell dx = .Left fx = .Left + .Width / 2 dy = .Top End With fy = dy Set ligne = ActiveSheet.Shapes.AddLine(dx, dy, fx, fy) ligne.Line.Weight = 3 ligne.Select End Sub
Serge
"Fred" a écrit dans le message de news:
Bonjour, Je souhaite créer une macro qui dessinera une ligne plus épaisse que celle proposée par défaut lorsqu'on clique sur le bouton ligne. Le problème est que je voudrai pouvoir positionner mon départ et mon arrivée de ligne avec la souris (comme avec le bouton ligne). Mais ceci ne fonctionne pas avec cette écriture dans VBA: ActiveSheet.Shapes.AddLine(240#, 114.75, 360#, 216.75).Select
Comment faire ? Merci d'avance
Et pourquoi pas un autre With ;-)
Sub Ligne_Épaisse_Dans_Cellule_Active()
With ActiveCell
dx = .Left
fx = .Left + .Width / 2
dy = .Top
End With
fy = dy
With ActiveSheet.Shapes.AddLine(dx, dy, fx, fy)
.Line.Weight = 3
.Select
End With
End Sub
Bonsoir, Bonne nuit,
Serge
"garnote" <rien@absent.com> a écrit dans le message de news:
%231NYzXR0FHA.1040@TK2MSFTNGP14.phx.gbl...
Salut Fred,
Une suggestion :
Sub Ligne_Épaisse_Dans_Cellule_Active()
With ActiveCell
dx = .Left
fx = .Left + .Width / 2
dy = .Top
End With
fy = dy
Set ligne = ActiveSheet.Shapes.AddLine(dx, dy, fx, fy)
ligne.Line.Weight = 3
ligne.Select
End Sub
Serge
"Fred" <Fred@discussions.microsoft.com> a écrit dans le message de news:
FD9B5E45-1EA8-4ACA-9A5F-93C114C530A9@microsoft.com...
Bonjour,
Je souhaite créer une macro qui dessinera une ligne plus épaisse que
celle
proposée par défaut lorsqu'on clique sur le bouton ligne. Le problème est
que
je voudrai pouvoir positionner mon départ et mon arrivée de ligne avec la
souris (comme avec le bouton ligne). Mais ceci ne fonctionne pas avec
cette
écriture dans VBA: ActiveSheet.Shapes.AddLine(240#, 114.75, 360#,
216.75).Select
Sub Ligne_Épaisse_Dans_Cellule_Active() With ActiveCell dx = .Left fx = .Left + .Width / 2 dy = .Top End With fy = dy With ActiveSheet.Shapes.AddLine(dx, dy, fx, fy) .Line.Weight = 3 .Select End With End Sub
Bonsoir, Bonne nuit,
Serge
"garnote" a écrit dans le message de news: %
Salut Fred,
Une suggestion :
Sub Ligne_Épaisse_Dans_Cellule_Active() With ActiveCell dx = .Left fx = .Left + .Width / 2 dy = .Top End With fy = dy Set ligne = ActiveSheet.Shapes.AddLine(dx, dy, fx, fy) ligne.Line.Weight = 3 ligne.Select End Sub
Serge
"Fred" a écrit dans le message de news:
Bonjour, Je souhaite créer une macro qui dessinera une ligne plus épaisse que celle proposée par défaut lorsqu'on clique sur le bouton ligne. Le problème est que je voudrai pouvoir positionner mon départ et mon arrivée de ligne avec la souris (comme avec le bouton ligne). Mais ceci ne fonctionne pas avec cette écriture dans VBA: ActiveSheet.Shapes.AddLine(240#, 114.75, 360#, 216.75).Select
Comment faire ? Merci d'avance
Fred64
Merci pour votre rapidité, Effectivement c mieux cependant ne pensez vous pas qu'il y a possibilité de tracer la ligne directement à la souris ?
"garnote" a écrit dans le message de news: %
Salut Fred,
Une suggestion :
Sub Ligne_Épaisse_Dans_Cellule_Active() With ActiveCell dx = .Left fx = .Left + .Width / 2 dy = .Top End With fy = dy Set ligne = ActiveSheet.Shapes.AddLine(dx, dy, fx, fy) ligne.Line.Weight = 3 ligne.Select End Sub
Serge
"Fred" a écrit dans le message de news:
Bonjour, Je souhaite créer une macro qui dessinera une ligne plus épaisse que celle proposée par défaut lorsqu'on clique sur le bouton ligne. Le problème est que je voudrai pouvoir positionner mon départ et mon arrivée de ligne avec la souris (comme avec le bouton ligne). Mais ceci ne fonctionne pas avec cette écriture dans VBA: ActiveSheet.Shapes.AddLine(240#, 114.75, 360#, 216.75).Select
Comment faire ? Merci d'avance
Merci pour votre rapidité,
Effectivement c mieux cependant ne pensez vous pas qu'il y a possibilité de
tracer la ligne directement à la souris ?
"garnote" <rien@absent.com> a écrit dans le message de news:
%231NYzXR0FHA.1040@TK2MSFTNGP14.phx.gbl...
Salut Fred,
Une suggestion :
Sub Ligne_Épaisse_Dans_Cellule_Active()
With ActiveCell
dx = .Left
fx = .Left + .Width / 2
dy = .Top
End With
fy = dy
Set ligne = ActiveSheet.Shapes.AddLine(dx, dy, fx, fy)
ligne.Line.Weight = 3
ligne.Select
End Sub
Serge
"Fred" <Fred@discussions.microsoft.com> a écrit dans le message de news:
FD9B5E45-1EA8-4ACA-9A5F-93C114C530A9@microsoft.com...
Bonjour,
Je souhaite créer une macro qui dessinera une ligne plus épaisse que
celle
proposée par défaut lorsqu'on clique sur le bouton ligne. Le problème est
que
je voudrai pouvoir positionner mon départ et mon arrivée de ligne avec la
souris (comme avec le bouton ligne). Mais ceci ne fonctionne pas avec
cette
écriture dans VBA: ActiveSheet.Shapes.AddLine(240#, 114.75, 360#,
216.75).Select
Merci pour votre rapidité, Effectivement c mieux cependant ne pensez vous pas qu'il y a possibilité de tracer la ligne directement à la souris ?
"garnote" a écrit dans le message de news: %
Salut Fred,
Une suggestion :
Sub Ligne_Épaisse_Dans_Cellule_Active() With ActiveCell dx = .Left fx = .Left + .Width / 2 dy = .Top End With fy = dy Set ligne = ActiveSheet.Shapes.AddLine(dx, dy, fx, fy) ligne.Line.Weight = 3 ligne.Select End Sub
Serge
"Fred" a écrit dans le message de news:
Bonjour, Je souhaite créer une macro qui dessinera une ligne plus épaisse que celle proposée par défaut lorsqu'on clique sur le bouton ligne. Le problème est que je voudrai pouvoir positionner mon départ et mon arrivée de ligne avec la souris (comme avec le bouton ligne). Mais ceci ne fonctionne pas avec cette écriture dans VBA: ActiveSheet.Shapes.AddLine(240#, 114.75, 360#, 216.75).Select
Comment faire ? Merci d'avance
Circé
Bonjour,
Fred64 a exposé le 15/10/2005 :
Merci pour votre rapidité, Effectivement c mieux cependant ne pensez vous pas qu'il y a possibilité de tracer la ligne directement à la souris ?
Ben voui, mais t'as demandé une macro !!! Sans macro :
- Trace une ligne et attribue lui l'épaisseur souhaitée - Clic droit sur la ligne : Définir comme attributs par défaut
C'est tout ! à présent toute tes nouvelles lignes auront cette même épaisseur jusqu'à ce que tu modifies à nouveau les attributs par défaut.
Circé http://faqword.free.fr
Bonjour,
Fred64 a exposé le 15/10/2005 :
Merci pour votre rapidité,
Effectivement c mieux cependant ne pensez vous pas qu'il y a
possibilité de tracer la ligne directement à la souris ?
Ben voui, mais t'as demandé une macro !!!
Sans macro :
- Trace une ligne et attribue lui l'épaisseur souhaitée
- Clic droit sur la ligne : Définir comme attributs par défaut
C'est tout ! à présent toute tes nouvelles lignes auront cette même
épaisseur jusqu'à ce que tu modifies à nouveau les attributs par
défaut.
