Macro pour aller directement vers un nom de zone

[Chri8Ed]

Bonjour

J’utilise cette macro pour me permette d’atteindre une zone dans ma feuille de calcul
De manière que la 1ère cellule de cette zone se place dans le coin supérieur gauche de l’écran

Sub VersNom()
'
' VersNom Macro
'
' Touche de raccourci du clavier: Ctrl+x
'
x = InputBox("Quelle zone voulez vous atteindre ? ", "ALLER A", "")
Set zone = Range(x)
ActiveWindow.ScrollRow = zone.Row
'ActiveWindow.ScrollColumn = zone.Column
End Sub

J’ai beaucoup de noms et pour ne pas avoir à tapez tout le nom à chaque fois, je les ai nommés en abrégé sur 2 ou 3 lettres.

Problème : il y a des noms qui commencent par les mêmes lettres, d’où des erreurs

Serait-il possible à l’aide de cette macro de pouvoir atteindre directement le 1er nom qui commence par les lettres que je tape ?

Ex j’ai 2 zones qui se nomment « Journée » et « Journal »
Je tape ma macro Ctrl-X puis JOU
Je souhaiterais dans ce cas atteindre le nom « Journal »

Est-ce possible ?

Merci

 

[Paritec]

Re : Macro pour aller directement vers un nom de zone

bonjour chrisbed le forum
avec un petit bout de fichier ce serait plus facile de t'aider
a+
papou 🙂

 

[Chri8Ed]

Re : Macro pour aller directement vers un nom de zone

Bonjour

Mon fichier est trop grand, voici un exemple avec 4 noms qui commencent par "BOI"

+ les explications à l'intérieur

 

[laetitia90]

Re : Macro pour aller directement vers un nom de zone

bonjour chri8ed ,paritec

x = InputBox("Quelle zone voulez vous atteindre ? ", "ALLER A", "")
Range(x).Select

attention il faut gérer si le nom existe pas!!!

 

[Chri8Ed]

Re : Macro pour aller directement vers un nom de zone

Bonjour

Merci pour la réponse

Mais je ne comprends pas bien ?

C'est qu'une partie de la macro ?

Merci

 

[laetitia90]

Re : Macro pour aller directement vers un nom de zone

re,
peut être plus simple en passant par un userform que d'un inputbox
plus de possibilitées a voir!!!! raccourci macro ctrl+a

 

[Chri8Ed]

Re : Macro pour aller directement vers un nom de zone

C'est pal mal du tout !

Merci beaucoup

Juste un petit problème, dans ma macro originale (C'est pas moi qui l'avait conçue)
La cellule ainsi désignée se positionnait dans l'angle supérieur gauche de l'écran.

J'aimerais bien conserver cette particularité

Si possible également, plutôt que d'avoir à cliquer sur fermer l'UserForm après avoir cliquer sur le nom choisi, je préférerais qu'il se ferme automatiquement dès le nom validé

Si c'est possible, merci d'avance

 

[laetitia90]

Re : Macro pour aller directement vers un nom de zone

re, un peu surprise !!!! pas grand chose a faire
tu modifie comme cela

Private Sub lbx1_Click()
On Error Resume Next
For Each c In m.Names
Range(lbx1).Select
ActiveWindow.ScrollRow = Range(lbx1).Row
ActiveWindow.ScrollColumn = Range(lbx1).Column
Next
On Error GoTo 0
unload me
End Sub

 

[Chri8Ed]

Re : Macro pour aller directement vers un nom de zone

Bonsoir

J'ai intégré les modifications

C'est parfait !

Merci beaucoup pour cette macro


Bonne soirée