Re-bonjour... je suis curieux, aujourd'hui !
J'ai un tableau de 120 colonnes (10 ans x 12 mois).
Seulement 15 colonnes "logent" dans l'écran.
Ma proc m'amène à sélectionner une année, c'est à dire 12 cellules de la
ligne 1.
Je suppose qu'il existe un moyen de centrer la sélection horizontalement
de sorte qu'elle soit visible à l'écran.
J'ai essayé des combinaisons de Offset, Range, Activate et autres
Select, sur les 12 cellules ou sur la cellule centrale (milieu de
l'année), mais je ne trouve pas...
Merci pour votre aide.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacques93
Bonjour LANIMAL,
Peut être :
Dim an As Integer
For an = 1 To 10 Range("A1").Select ActiveWindow.SmallScroll 0, 0, 12 * (an - 1), 0 MsgBox "Année n° " & an Next an
Re-bonjour... je suis curieux, aujourd'hui ! J'ai un tableau de 120 colonnes (10 ans x 12 mois). Seulement 15 colonnes "logent" dans l'écran. Ma proc m'amène à sélectionner une année, c'est à dire 12 cellules de la ligne 1. Je suppose qu'il existe un moyen de centrer la sélection horizontalement de sorte qu'elle soit visible à l'écran. J'ai essayé des combinaisons de Offset, Range, Activate et autres Select, sur les 12 cellules ou sur la cellule centrale (milieu de l'année), mais je ne trouve pas... Merci pour votre aide.
-- Cordialement,
Jacques.
Bonjour LANIMAL,
Peut être :
Dim an As Integer
For an = 1 To 10
Range("A1").Select
ActiveWindow.SmallScroll 0, 0, 12 * (an - 1), 0
MsgBox "Année n° " & an
Next an
Re-bonjour... je suis curieux, aujourd'hui !
J'ai un tableau de 120 colonnes (10 ans x 12 mois).
Seulement 15 colonnes "logent" dans l'écran.
Ma proc m'amène à sélectionner une année, c'est à dire 12 cellules de la
ligne 1.
Je suppose qu'il existe un moyen de centrer la sélection horizontalement
de sorte qu'elle soit visible à l'écran.
J'ai essayé des combinaisons de Offset, Range, Activate et autres
Select, sur les 12 cellules ou sur la cellule centrale (milieu de
l'année), mais je ne trouve pas...
Merci pour votre aide.
For an = 1 To 10 Range("A1").Select ActiveWindow.SmallScroll 0, 0, 12 * (an - 1), 0 MsgBox "Année n° " & an Next an
Re-bonjour... je suis curieux, aujourd'hui ! J'ai un tableau de 120 colonnes (10 ans x 12 mois). Seulement 15 colonnes "logent" dans l'écran. Ma proc m'amène à sélectionner une année, c'est à dire 12 cellules de la ligne 1. Je suppose qu'il existe un moyen de centrer la sélection horizontalement de sorte qu'elle soit visible à l'écran. J'ai essayé des combinaisons de Offset, Range, Activate et autres Select, sur les 12 cellules ou sur la cellule centrale (milieu de l'année), mais je ne trouve pas... Merci pour votre aide.
-- Cordialement,
Jacques.
LANIMAL
Merci Jacques, je crois bien que tu m'as déjà dépanné il y a qq tps. Je ne peux pas essayer de suite (ma femme m'appelle avec insistance !) Mais au moins j'ai compris le principe (c'est pas toujours le cas :-(() Je suis sûr que ça va marcher. Amicalement.
Bonjour LANIMAL,
Peut être :
Dim an As Integer
For an = 1 To 10 Range("A1").Select ActiveWindow.SmallScroll 0, 0, 12 * (an - 1), 0 MsgBox "Année n° " & an Next an
Re-bonjour... je suis curieux, aujourd'hui ! J'ai un tableau de 120 colonnes (10 ans x 12 mois). Seulement 15 colonnes "logent" dans l'écran. Ma proc m'amène à sélectionner une année, c'est à dire 12 cellules de la ligne 1. Je suppose qu'il existe un moyen de centrer la sélection horizontalement de sorte qu'elle soit visible à l'écran. J'ai essayé des combinaisons de Offset, Range, Activate et autres Select, sur les 12 cellules ou sur la cellule centrale (milieu de l'année), mais je ne trouve pas... Merci pour votre aide.
Merci Jacques, je crois bien que tu m'as déjà dépanné il y a qq tps.
Je ne peux pas essayer de suite (ma femme m'appelle avec insistance !)
Mais au moins j'ai compris le principe (c'est pas toujours le cas :-(()
Je suis sûr que ça va marcher.
Amicalement.
Bonjour LANIMAL,
Peut être :
Dim an As Integer
For an = 1 To 10
Range("A1").Select
ActiveWindow.SmallScroll 0, 0, 12 * (an - 1), 0
MsgBox "Année n° " & an
Next an
Re-bonjour... je suis curieux, aujourd'hui !
J'ai un tableau de 120 colonnes (10 ans x 12 mois).
Seulement 15 colonnes "logent" dans l'écran.
Ma proc m'amène à sélectionner une année, c'est à dire 12 cellules de
la ligne 1.
Je suppose qu'il existe un moyen de centrer la sélection
horizontalement de sorte qu'elle soit visible à l'écran.
J'ai essayé des combinaisons de Offset, Range, Activate et autres
Select, sur les 12 cellules ou sur la cellule centrale (milieu de
l'année), mais je ne trouve pas...
Merci pour votre aide.
Merci Jacques, je crois bien que tu m'as déjà dépanné il y a qq tps. Je ne peux pas essayer de suite (ma femme m'appelle avec insistance !) Mais au moins j'ai compris le principe (c'est pas toujours le cas :-(() Je suis sûr que ça va marcher. Amicalement.
Bonjour LANIMAL,
Peut être :
Dim an As Integer
For an = 1 To 10 Range("A1").Select ActiveWindow.SmallScroll 0, 0, 12 * (an - 1), 0 MsgBox "Année n° " & an Next an
Re-bonjour... je suis curieux, aujourd'hui ! J'ai un tableau de 120 colonnes (10 ans x 12 mois). Seulement 15 colonnes "logent" dans l'écran. Ma proc m'amène à sélectionner une année, c'est à dire 12 cellules de la ligne 1. Je suppose qu'il existe un moyen de centrer la sélection horizontalement de sorte qu'elle soit visible à l'écran. J'ai essayé des combinaisons de Offset, Range, Activate et autres Select, sur les 12 cellules ou sur la cellule centrale (milieu de l'année), mais je ne trouve pas... Merci pour votre aide.
