VBA Sélection sous les volets

Bonsoir à tous,

Je voudrais qu'une sélection donnée se positionne sous le volet horizontal.

https://www.excel-pratique.com/~files/doc/Fonctions_francais_anglais.xls

ce fichier est un exemple, c'est pour un autre beaucoup + gros, que j'ai besoin.

PS : la colonne A pourrait être cachée (largeur 0)

amicalement

Claude.

Bonsoir, claude

remplace ton code par celui-ci :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Application.Intersect(Target, [a2]) Is Nothing And Not IsError([A1]) Then
    Range("a5:c350").Interior.ColorIndex = xlNone
    Range(ActiveCell, ActiveCell.Offset(0, 1)).Interior.ColorIndex = 36
    Application.Goto Reference:=Range([A1]), Scroll:=True
End If
End Sub

et tu peux supprimer le code Alleren

Edit : et pour colorier, c'est pas ce code, j'ai pas cherché sur ce souci....

Re-,

pour surligner tes cellules....

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Application.Intersect(Target, [a2]) Is Nothing And Not IsError([A1]) Then
    Range("a5:c350").Interior.ColorIndex = xlNone
    Range(Range("a1").Value).Resize(1, 2).Interior.ColorIndex = 4
    Application.Goto Reference:=Range([A1]), Scroll:=True
End If
End Sub

Et Re-,

peut-être modifier ta formule en A1 :

="A"&EQUIV(CONCATENER($A$2;"*");$A$5:$A$345;0)+4

salut felix,

C'est parfait, j'ai tester sur mon gros fichier, NICKEL !!

Je prends note de tout çà.

C'est l'anglais qui me fait défaut.

par exemple : "Scroll" qu'est-ce ?

et autre chose, si par exemple : une cellule nommée "toto" en "B50", peut-on la positionner

pareil sous le volet ??

en tout cas, merci felix

Claude.

Re-

Effectivement, lorsque tu fais F1 sur Scroll, pas de réponse

cependant, ce n'est pas la seule fois

lorsque tu n'as pas de réponses avec F1, tape le mot dans l'aide, il t'en donnera....

pour "Scroller" sur le "Range" nommé :

Application.Goto Reference:=[toto], Scroll:=True

Edit : en raccourci :

Application.Goto [toto], Scroll:=True

re,

encore nickel, tu sais çà fait un bout de temps que je cherchais.

On m'avais donné des réponses sur un autre fil (même question), mais çà ne marchait

pas régulièrement.

cette fois j'ai tous les éléments.

encore merci

je vais au pieu, à demain

amicalement ......Claude.

Re,

Juste avant de te coucher :

(même question)

Tu veux dire l'aide F1, et les "non"-réponses?

re,

non, des réponses de forumeurs (notamment un de ceux qui te sont chers !!!)

aller, j'y vais.

Claude.

Re-,

une dernière :

Application.Goto [toto], 1