VBA flèche cellules Aide

[Edd93]

Bonjour,


Je suis en train de représenter sur Excel l'intérieur d'une plateforme, supposons que chaque cellule correspond à une palette numéroté, et sachant qu'il y a des portes eux aussi numéroté aux extrémités de la feuille Excel.

Pour chaque cellule ayant une valeur Z (code chiffre), je dessine une flèche qui va vers une porte de code W

Par exemple, tous les cellules de la feuille qui ont le chiffre 1, sont relié par une flèche qui va vers une cellule C1 qui a un chiffre 100 par exemple.

Voici mon code mais j'ai une erreur 400

Sub Test()
'Création flèche
Dim Sh As Shape, Toto As Integer, Tata As Integer
If 1 = Cells(Mort, Tata).Value Then
Set Sh = ActiveSheet.Shapes.AddLine(Cells(Toto, Tata).Left + Cells(Toto, Tata).Width / 2, Cells(Toto, Tata).Top + Cells(Toto, Tata).Height / 2, Range("C1").Left + Range("C1").Width / 2, Range("C1").Top + Range("C1").Height / 2)
Sh.Line.EndArrowheadStyle = msoArrowheadTriangle
Sh.Line.EndArrowheadLength = msoArrowheadLengthMedium
Sh.Line.EndArrowheadWidth = msoArrowheadWidthMedium

End If
End Sub

merci de m'aider

 

[pierrejean]

Bonjour Edd93

vois si tu peux t'inspirer de cet essai

NB: Je manque de temps pour peaufiner

 

[Edd93]

Super merci beaucoup !!

 

[Edd93]

Rebonsoir M.Pierrejean,


J'ai un petit problème, je vous ai cité ce que je voulais faire que partiellement, comment faire dans le cas où on a plusieurs portes et j'aimerai :

Si la cellule = 1 alors dessiner la flèche jusqu'à la porte 100 (cellule F2 dans le fichier)
Si la cellule = 2 alors dessiner la flèche jusqu'à la porte 102 (cellule G2 par exemple)
ainsi de suite.

Car j'ai plusieurs portes et plusieurs valeurs (1, 2, etc ...)

je vous remercie de votre aide précieuse

 

[Edd93]

J'aimerai bien aussi créer un bouton Retour pour supprimer les flèches car après avoir exécuté la macro je n'arrive pas à enlever les flèches, Cdt

 

[Edd93]

J'ai réussi c'est bon, il me faut juste maintenant un bouton pour revenir en arrière donc supprimer les flèches

 

[pierrejean]

Re

Peux-tu poster une copie de ton fichier (sans données confidentielles ) ??
1) pour en faire profiter la communauté
2) pour y créer ton bouton Retour

 

[Edd93]

merci Pierre jean j'avais réussi, je vais te demander un autre truc à travers un autre topic si tu le veux bien

 

[pierrejean]

Re

OK vu
mais il me faut un peu de temps pour comprendre d'abord et calculer ensuite

 

[DoubleZero]

Bonjour à toutes et à tous, bises à pierrejean ,

... il me faut juste maintenant un bouton pour revenir en arrière donc supprimer les flèches

Qu'en est-il de cette proposition ?...

 

[Edd93]

Merci vous deux ! c'est baclé

 

[pierrejean]

Re

Il n'y a pas de quoi !!
Mais j’espère que tu n'as pas la même définition que moi du mot bâclé !!!