Positionnement Colonne

Bonjour

Débutant en macro, voilà mon problème.

Sur une feuille Excel, je fige les volets en me positionnant sur la case B1.

En indiquant dans la case A1 un numéro de colonne (par exemple AA), est-il possible via une macro d'afficher les colonnes AA, AB, AC... directement à coté de la colonne A1?

Merci pour votre éclairage

Bonjour,

copier la macro suivante sur la page code de votre feuille,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
 Application.Goto Range([$A$1] & "1"), scroll:=True
End If
End Sub

Genial!

Cà marche impec

Merci

Une question complémentaire malgré tout:

Même point de départ:

Sur une feuille Excel, je fige les volets en me positionnant sur la case B1.

Ensuite cela change:

Je mets en B1 la date du jour.

Puis en C1, la date du jour suivant... etc

En indiquant dans la case A1 une date spécifique, est-il possible via une macro d'afficher la colonne contenant la date recherchée directement à coté de la colonne A1?

Merci pour votre éclairage

Bonjour,

oui voici l'exemple,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
n = Application.Match([A1], Range("B1:" & Cells(1, Columns.Count).End(xlToLeft).Address), 0) + 1
 Application.Goto Cells(1, n), scroll:=True
End If
End Sub

Merci.

Nickel

Merci pour ce retour, au plaisir!

ps/ s.v.p. marquer votre question comme étant résolu seulement par un clic sur l'icone "Résolu"

isabelle , Québec

Une deuxieme question complémentaire:

Même point de départ:

Sur une feuille Excel, je fige les volets en me positionnant sur la case B1.

Je mets en B1 la date du jour.

Puis en C1, la date du jour suivant... etc

Lors du chargement de la feuille, je souhaiterai mettre automatiquement en A1 la date du jour et afficher la colonne contenant la date du jour directement à coté de la colonne A1.

Ensuite, en indiquant dans la case A1 une date spécifique, je souhaiterai afficher la colonne contenant la date recherchée directement à coté de la colonne A1.

Merci pour vos lumières

Bonjour,

Lors du chargement de la feuille, je souhaiterai mettre automatiquement en A1 la date du jour

Private Sub Worksheet_Activate()
 Range("$A$1") = Date
 n = Application.Match([A1], Range("B1:" & Cells(1, Columns.Count).End(xlToLeft).Address), 0) + 1
 Application.Goto Cells(1, n), scroll:=True
End Sub

cliquer sur le bouton

si vous avez obtenu la réponse espérée. merci!

Bonjour

Je n'arrive pas à faire fonctionner ce script.

J'ouvre un nouveau fichier Excel. Je copie le script sur la page (Worsheet/activate).

Je sauvegarde. J'ouvre.

Et rien en A1.

Une idée?

Bonjour,

J'ouvre un nouveau fichier Excel. Je copie le script

pourriez-vous joindre votre nouveau fichier ?