Affichage de la colonne choisie par validation liste

bonjour,

sur le fichier exemple joint, comment faire, pour qu'en choisissant un nom dans la liste en orange, puis en appuyant sur le bouton "va colonne" le volet étant figé après la colonne b, la colonne du nom choisi, vienne à côté de la colonne b ?

merci

Bonjour

Le bouton est inutile

Code de Feuil1

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A7")) Is Nothing Then
Dim i
i = Application.WorksheetFunction.Match(Target, Sheets("Feuil1").Range("A3:IV3"), 0)
    ActiveWindow.ScrollColumn = i
End If
End Sub

Cordialement

non ! , j'en ai besoin car il sert aussi à autre chose...il faut me laisser le bouton

Bonjour

Code de Feuil1

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A7")) Is Nothing Then
Call Va_Colonne
End If
End Sub

Code dans Module

Sub Va_Colonne()
Dim i
i = Application.WorksheetFunction.Match(Range("A7"), Sheets("Feuil1").Range("A3:IV3"), 0)
    ActiveWindow.ScrollColumn = i
End Sub

et si tu veux masquer les colonnes inutiles à droite

Sub Va_Colonne()
Dim i
Columns("A:IV").EntireColumn.Hidden = False
i = Application.WorksheetFunction.Match(Range("A7"), Sheets("Feuil1").Range("A3:IV3"), 0)
    ActiveWindow.ScrollColumn = i
    Range(Columns(i + 1), Columns(i + 1).End(xlToRight)).Select
    Selection.EntireColumn.Hidden = True
End Sub

Cordialement

merci, super boulot !

étant un peu têtu, je l'ai modifiée pour utiliser mon bouton, tout en adoptant la dernière solution.

à+

bonjour,

ça fonctionne bien

merci