A voir également:
- Gerer un fleche selon une condition
- Excel cellule couleur si condition texte - Guide
- Gerer les profils netflix - Guide
- Gerer foyer netflix - Accueil - Guide streaming
- Fleche indesign ✓ - Forum Mail
- La flèche de ma souris ne bouge plus - Forum souris / Touchpad
4 réponses
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
Modifié le 21 juin 2019 à 12:15
Modifié le 21 juin 2019 à 12:15
Bonjour,
voir dans ce site: AddLine(débutX,débutY,finX,finY)
http://boisgontierjacques.free.fr/pages_site/lesimages.htm#Ecriture
voir le nom des shapes:
https://www.developpez.net/forums/d1013450/logiciels/microsoft-office/excel/macros-vba-excel/liste-shape/
Ce qui donne a adapter:
et pour effacer:
avec cela tu as de quoi t'amuser
voir dans ce site: AddLine(débutX,débutY,finX,finY)
http://boisgontierjacques.free.fr/pages_site/lesimages.htm#Ecriture
voir le nom des shapes:
https://www.developpez.net/forums/d1013450/logiciels/microsoft-office/excel/macros-vba-excel/liste-shape/
Ce qui donne a adapter:
ActiveSheet.Shapes.AddShape(msoShapeNotchedRightArrow, 10, 10, 100, 10).Name = "xxx"
et pour effacer:
Sub EffaceShapesSaufBoutons() Dim i As Variant For Each i In ActiveSheet.Shapes If i.Type <> 8 And i.Type <> 12 Then ActiveSheet.Shapes(i.Name).Delete 'Range("A1") = i.Name 'nom de la shape End If Next i End Sub
avec cela tu as de quoi t'amuser
aider moi s'il vous plait
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
21 juin 2019 à 12:16
21 juin 2019 à 12:16
c'est fait
merci bcp le code ActiveSheet.Shapes.AddShape(msoShapeNotchedRightArrow, 10, 10, 100, 10).Name = "xxx"
ça fonctionne...
je vais essayer pour modifier le longueur selon condition
ça fonctionne...
je vais essayer pour modifier le longueur selon condition
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
21 juin 2019 à 13:48
21 juin 2019 à 13:48
Voici un exemple avec Target
https://forum.excel-pratique.com/viewtopic.php?t=1314
Faire Alt F11 pour accéder à l'éditeur. Coller ce code dans le module de la feuille active.
C'est réglé pour mettre les infos dans A2 à adapter:
Voilà
@+ Le Pivert
https://forum.excel-pratique.com/viewtopic.php?t=1314
Faire Alt F11 pour accéder à l'éditeur. Coller ce code dans le module de la feuille active.
C'est réglé pour mettre les infos dans A2 à adapter:
Option Explicit 'https://forum.excel-pratique.com/viewtopic.php?t=1314 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim longueur As Integer If Not Application.Intersect(Target, Range("A2")) Is Nothing Then If Target.Value = "" Then Exit Sub EffaceShapesSaufBoutons longueur = Target.Value * 10 ActiveSheet.Shapes.AddShape(msoShapeNotchedRightArrow, 60, 20, longueur, 10).Name = "xxx" End If End Sub Sub EffaceShapesSaufBoutons() Dim i As Variant For Each i In ActiveSheet.Shapes If i.Type <> 8 And i.Type <> 12 Then ActiveSheet.Shapes(i.Name).Delete 'Range("A1") = i.Name End If Next i End Sub
Voilà
@+ Le Pivert
j'ai essayer avec pas mal de combinaison mais il ne se fonctionne pas par ce dernier code. il ne dessine pas la flèche.
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
21 juin 2019 à 17:42
21 juin 2019 à 17:42
Voilà un exemple avec les explications:
https://www.cjoint.com/c/IFvpPgn6eJQ
@+ Le Pivert
https://www.cjoint.com/c/IFvpPgn6eJQ
@+ Le Pivert