Sélection plage variable avec ScrollColumn

Bonjour,

Je souhaite définir une plage de la colonne A à une colonne variable.

Pour être plus précis, les colonnes A et B sont fixes et séparées d'une plage variable par un volet vertical figé (soit entre B et C).

La ligne 2 est constituée de dates (du 1er janvier au 31 décembre) et je récupère la colonne où se trouve la date du jour par :

Code:

---

=EQUIV(AUJOURDHUI();$C$2:$ND$2;0)+2

---

(petit problème de traduction en VBA qui a fait l'objet d'un autre post pour récupérer cette valeur et la mettre dans une variable) : "Num_Colonne_Aujourdhui"

A l'ouverture du classeur, je combine un ScrollColumn avec ce numéro (de colonne) pour placer la date du jour sur la colonne C :

Code:

---

ActiveWindow.ScrollColumn = Num_Colonne_Aujourdhui

---

L'objectif est de définir une plage pour l'afficher de manière optimale sur ce modèle :

Code:

---

1 2 3 4 5 6 7

With ActiveSheet Range("$A$1:$xxx$1").Select With ActiveWindow .Zoom = True .Zoom = ActiveWindow.Zoom - 0.5 End With End With

---

En résumé, il faudrait que ce Range soit égal à

Code:

---

"$A$1:$[xxx]$1"

---

avec xxx = Num_Colonne_Aujourdui + 10

Je vous remercie par avance pour vos lumières,
Cordialement,
jp

Bonsoir,

le point sur la récupération de la colonne AUJOURDHUI() est résolu (mais seulement celui-ci)

Code:

---

Num_Colonne_Aujourdhui = Application.Match(CLng(VBA.Date), Range("$C$2:$ND$2"), 0) + 2

---

Cordialement,
jp

Bonsoir,

Peut-être que la réponse à cette question me suffirait,

Comment modifier GN (dans la plage ci-dessous) par une variable ?

Code:

---

Range("$A$1:$GN$1").Select

---

Pour être plus précis (si nécessaire), je souhaite qu'en faisant référence à une variable, je retrouve la colonne GN (ou autre colonne, bien sûr) dans le Range.

Merci d'avance pour vos lumières,
Cordialement,
jp

Bonjour,

Désolé pour ce post (inutile), en fait il fallait juste passer par Cells même si la question de savoir si on peut faire varier la colonne autrement, demeure.

Code:

---

Range(Cells(1, 1), Cells(1, Num_Colonne_Aujourdhui + 10)).Select

---

Cordialement,
jp