lire des lignes cellule par cellule

[kokito]

salut

j'ai une feuille qui contient plusieurs ligne
une ligne contient les données suivi par deux ligne vides puis ligne avec données
pout trouver les cellules égaux, si égaux je connecte les deux avec un connecteur

 

[kokito]

j'ai oublié comment faire ça en vba
j'ai déjà une fonction qui dessine une ligne.

 

[porcinet82]

Salut kokito,

C'est tres bien tout ca, mais je ne vois pas de question(s), et je ne sais pas non plus ce qu'est un connecteur, donc pourrais-tu m'éclairer?

Merci d'avance,

@+

 

[kokito]

Merci de votre reponse

si deux cellule sont égaux je dessine une ligne(connecteur ) entre les deux
voir le fichier attacher
merci

 

[porcinet82]

re,

Aucun fichier en vue, va faire un petit tour Lien supprimé.

@+

 

[kokito]

merci j'espère réussir cette fois
voila le fichier [file name=Classeur1_20060417210059.zip size=1678]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20060417210059.zip[/file]

 

[kokito]

salut
le fichier est attaché, merci de votre intervention
je vous attends
merci

 

[porcinet82]

Salut kokito,

Désolé de ne pas avoir donné signe de vie plus tot. Je viens de regarder ton fichier, et ce que tu souhaites faire me semble un peu difficile a réaliser.
En effet, pour créer un connecteur, il faut connaitre la longeur, le sens, l'inclinaison de celui-ci (comme un vecteur quoi), le problème c'est que ces paramètres ne sont pas définissable par rapport au cellule excel, d'ou la diffciulté puisqu'il faudrait donc définir toutes les possibilitées de connecteur et les appeler ensuite.

Tu n'as pas un moyen de tt'en sortir autrement?

@+

 

[kokito]

merci de votre réponse
mon cas parait un peu difficile, et je pense que je suis obligé d'utiliser des fleshes seulement

voilà ma fonction(donnée par un xlnautes sur froum MPFE):

Function MaShape(sh As String, Debut As Range, Fin As Range) As String
Dim Gauche As Double
Dim Haut As Double
Dim FinGauche As Double
Dim FinHaut As Double
Gauche = Debut.Offset(, 1).Left
Haut = Debut.Top + (Debut.Height / 2)
FinGauche = Fin.Left
FinHaut = Fin.Top + (Fin.Height / 2)
With Worksheets(sh)
With .Shapes.AddLine(Gauche, Haut, FinGauche, FinHaut)

End With
End With
'cette fonction est envoyé par mechdenis
End Function


de toute façon je suis entrai de chercher la possibilité de changer une ligne par une flesh
merci bcp