atteindre un cellule en fonction de son contenu

[olhey]

bonjour,

J'ai une ligne kilométrique, et j'aimerais pouvoir taper les kilomètre dans une cellule et que je sois "amener" à la zone correspondante.

http://www.casimages.com/img.php?i=09070707113391011.jpg

voilà un schéma

merci

edit dsl pour l'image

 

[mutzik]

Re : atteindre un cellule en fonction de son contenu

youhou ,,,
plus d'images ??? ...

 

[olhey]

Re : atteindre un cellule en fonction de son contenu

dsl voilà c'estfait

 

[JHA]

Re : atteindre un cellule en fonction de son contenu

Bonjour olhey, le forum,

Peut être un début de réponse,

JHA

 

[olhey]

Re : atteindre un cellule en fonction de son contenu

merci de ton aide, mais je crois que je n'ai apsété très claire.

Il ne sagit pas de générer la ligne deskilométrage, elle existe déjà("la ligne de nombre existe déjà"),mais bien d'atteindre une zone: comme si je me télétransportait dans mon tableau.

Ex: je tape 5000 et excel me déplace à la distance 5000.

c'est plus claire?

Merci encore votre aide me sauve.

 

[mromain]

Re : atteindre un cellule en fonction de son contenu

bonjour le fil.

olhey, ça serait plus simple de travailler sur un fichier...
voici quand même un essai :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$D$1" Then Exit Sub
Set cellule = Columns("A").Find(Target.Value, , , xlWhole)
If Not cellule Is Nothing Then cellule.Select
End Sub

a+

 

[olhey]

Re : atteindre un cellule en fonction de son contenu

SUPER!

c'est exactement le principe, sauf que ma ligne est horizontale.

et ma ligne et numérotté tous les 500, il faudrait que lorsque l'utilisateur tape 1430 la valeur soit arrondie à 1500.

MErci mille fois

 

[mromain]

Re : atteindre un cellule en fonction de son contenu

SUPER!

c'est exactement le principe, sauf que ma ligne est horizontale.

et ma ligne et numérotté tous les 500, il faudrait que lorsque l'utilisateur tape 1430 la valeur soit arrondie à 1500.

MErci mille fois

de rien,

maintenant, peux-tu envoyer ton fichier, afin d'adapter le code stp ?

a+

 

[olhey]

Re : atteindre un cellule en fonction de son contenu

okay, voilà

 

[mromain]

Re : atteindre un cellule en fonction de son contenu

re,

essaye avec ce code :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$10" Then Exit Sub
valeurCherchee = Round(Target.Value / 500) * 500
Set cellule = Rows(5).Find(valeurCherchee, , , xlWhole)
If Not cellule Is Nothing Then cellule.Select
End Sub

a+

 

[olhey]

Re : atteindre un cellule en fonction de son contenu

c'est trop beau, ça fonctionne dans le test, merci mille fois!

Mince...J'ai essayer d'adapter le code pour mafeuille final mais celà ne fonctionne pas?

je joins mon fichier final

 

[mromain]

Re : atteindre un cellule en fonction de son contenu

c'est trop beau, ça fonctionne dans le test, merci mille fois!

Mince...J'ai essayer d'adapter le code pour mafeuille final mais celà ne fonctionne pas?

je joins mon fichier final

il n'est pas passé, peut-être trop gros (>48 Ko). essaye en le zippant, ou alors, dépose-le sur Cijoint.

a+

 

[olhey]

Re : atteindre un cellule en fonction de son contenu

voilàle fichier.

DEplus est ce quevous pourriez jeter un coup d'oeuil au script pour faire apparaitre disparaitre les les connecteurs, je ne sais pas comment faire pour faire disparaître seulement certains(que les verts par exemple)...

Merci!

 

[mromain]

Re : atteindre un cellule en fonction de son contenu

re,


qu'est-ce qui ne va pas dans le fichier que tu viens de poster ?
ça a l'air de fonctionner...

a+

 

[olhey]

Re : atteindre un cellule en fonction de son contenu

rah quel boulet jai mis le mauvais fichier

voilà: Cijoint.fr - Service gratuit de dépôt de fichiers