Gestion des shapes (affichage, grouper...)

Question

Bonjour tout le monde, 

Je suis nouveau en VBA et je ne sais pas gérer l'affichage des shapes selon des résultats

En résumé :
J'ai un plan (image de fond) ou j'ai ajouté des nœuds (insertion => forme => Ellipse). J'ai ensuite ajouté des connecteurs en les nœuds (insertion => forme =>connecteur).
A côté du plan, j'ai une matrice composé de n lignes et n colonnes (n = nombre de nœuds) qui peut varier selon les demande de la journée.

Exemple : 

x 1 2 3 4      Dans l'exemple on a x(1, 2) = 1, j'aimerais que lorsqu'une valeur est égal   
1 0 1 0 1      à 1 un connecteur s'affiche entre les 2 nœuds (entre le nœud 1 et 2 pour 
2 1 0 0 1      l'exemple mais si il est égale à 0 il disparaisse.
3 0 0 0 0      Je sais qu'on peut utiliser la fonction :
4 1 1 0 0      ActiveSheet.Shapes("Connecteur droit 15").Visible = True (ou False)
                   Pour activer un connecteur.
 
Par contre dans certains cas le trajet entre deux nœuds est composé de plusieurs connecteurs (exple : il y a un virage). 

1) J'aimerai dans premier temps grouper les connecteur qui vont ensemble (VBA ou non) et ensuite leur donner un nom :
Exemple : les connecteurs 15, 16 et 17 forme le trajet du noeud 1 au 2, j'aimerai les grouper puis ensuite nommer la forme : "12" (12 => trajet de 1 à 2)

2) J'aimerai pouvoir afficher les nouvelle forme selon leur nouveau nom avec une boucle : 
For i = 1 to 4 
     For j = to 4 
If cells(i,j) = 1 then

ActiveSheet.Shapes(i&j).Visible = True (si i = 1 et j = 2, activer le connecteur 12)

Else

ActiveSheet.Shapes(i&j).Visible = False

     Next
Next

Je ne sais pas si c'est possible et je ne connais pas la syntaxe exacte ? Est-il possible d'intégrer i et j dans les parenthèses ?

3) Ne pas afficher les noeuds qui ne sont utilisé, dans l'exemple le noeud 3 n'est pas utilisé, il faudrait le faire disparaître du plan, peut-ont donné de ce qu'il a écris dedans à une shape ? Faudrait faire la somme pour chaque ligne ou chaque colonne de la matrice et si elle égal à 0, ne pas afficher le noeud correspondant mais cette partie reste encore vague

Merci d'avance pour vos réponses, je ne sais pas si j'ai été clair...

Lalalathuile

yg_be · Answer

bonsoir, peux-tu partager ton fichier?

yg_be · Answer

cette partie-ci devrait être facile:
ActiveSheet.Shapes(i&j).Visible = True (si i = 1 et j = 2, activer le connecteur 12) 
tu peux faire
ActiveSheet.Shapes(cstr(10*i+j).Visible = True

yg_be · Answer

juste pour t'inspirer, ceci désactive toutes les formes:
Option Explicit
Sub testlalala()
Dim uneshape As Shape
Dim monsheet As Worksheet
Set monsheet = ActiveSheet
For Each uneshape In monsheet.Shapes
    Debug.Print uneshape.Name
Next uneshape
For Each uneshape In monsheet.Shapes
    uneshape.Visible = False
    Next uneshape
End Sub

cela te montre aussi comment du code vba peut faire le tour de tous les shapes, découvrir leur noms, et agir sur chacun.

yg_be · Answer

je vois que tu as une matrice, xij, qui représente probablement si deux nœuds doivent être reliés ou pas.
et une autre matrice, connecteurs, qui définit des trajets, qui sont en fait des ensembles de connecteurs.
je suppose que les noms des connecteurs détermine la paire de nœuds que le trajet relie.
ai-je bien compris?
si oui, tu y étais presque:
For i = 1 to n 'Visite de la matrice des trajets 
For j = 1 to n

If x(i,j) = 1 Then 
    if i<j then
         ntrajet=10*(i-1)+(j-1)
    else
         ntrajet=10*(j-1)+(i-1
    end if
    ' pas encore fait:
    ' il faut calculer ou chercher lignetrajet, la ligne dans Tab où se trouve le trajet ntrajet
    ' ensuite:
    for k = 2 to 8
         nconnecteur=Tab(lignetrajet,k)
         if nconnecteur >=0
               ActiveSheet.Shape(cstr(nconnecteur)) =True 
         end if
    next k
end if

Next j 
Next i 
attention à mettre une valeur négative dans tab quand tu fais ceci : Tabl(i, j) = Cells(i + 15, j + 11).Value 'Remplissage des la table des connecteurs, si la valeur n'est pas numérique

yg_be · Answer

je propose de remplacer ceci
For i = 1 To traj 
For j = 1 To 5

Tabl(i, j) = Cells(i + 15, j + 11).Value 'Remplissage des la table des connecteurs

Next j 
Next i 
par
For i = 1 To traj 
For j =1 To 7 
if isnum(Cells(i + 15, j + 11).Value) then
    nconn=Cells(i + 15, j + 11).Value
else
    nconn=-1
end if
Tabl( Cells(i + 15,  11), j) = nconn 'Remplissage des la table des connecteurs

Next j 
Next i 
ce qui permet d'utiliser ntrajet au lieu de lignetrajet.
il faut aussi changer le redim de Tabl: ReDim Tabl(99, 7) 
as-tu mis option explicit, pour être forcé de déclarer toutes tes variables?

yg_be · Answer

ceci suppose que tu supprimes les zéros des noms des connecteurs 01 à 09.option explicit
Sub Affichage()

Dim i As Integer 
Dim j As Integer 
dim k as integer
Dim n As Integer 'Nombre de noeud 
Dim traj As Integer 'Nombre de connecteur 
dim nconnecteur as integer, ntrajet as integer

n = 10 
traj = n*(n-1)/2

Dim  Tabl()  as integer
ReDim  Tabl(n*(n-1), 7)  as integer
Dim x()  as integer
ReDim x(n, n)

For i = 1 To traj 
For j =1 To 7

if isnum(Cells(i + 15, j + 11).Value) then
    nconnecteur=Cells(i + 15, j + 11).Value
else
    nconnecteur=-1
end if
Tabl( Cells(i + 15,  11), j) = nconnecteur 'Remplissage de la table des connecteurs

Next j 
Next i

For i = 1 To n 
For j = 1 To n

x(i, j) = Cells(i + 3, j + 11).Value

Next j 
Next i

For i = 1 to n 'Visite de la matrice des trajets 
For j = 1 to n

If x(i,j) = 1 Then 
    if i<j then
         ntrajet=10*(i-1)+(j-1)
    else
         ntrajet=10*(j-1)+(i-1)
    end if

for k = 1 to 7
         nconnecteur=Tabl(ntrajet,k)
         if nconnecteur >=0
               ActiveSheet.Shape(cstr(nconnecteur)) =True 
         end if
    next k
end if

Next j 
Next i

End Sub

Gestion des shapes (affichage, grouper...)

6 réponses

Discussions similaires

Newsletters