Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Sélection automatique d'une cellule à l'ouverture d'un fichier

Sélection automatique d'une cellule à l'ouverture d'un fichier

6 réponses
Avatar
cowboy bebop
Bonjour à tous,

J'ai un fichier dans lequel en colonne A, j'ai des dates. Ces dates
apparaissent au fur et à mesure du temps selon une formule tout à fait
lourde mais que je comprends !!!! lol
Colonne A Colonne B
1 01/01/2005 | données µ
2 =SI(A1="";"";SI(A1+1<=AUJOURDHUI();A1+1;"")) | données x
3 =SI(A2="";"";SI(A2+1<=AUJOURDHUI();A2+1;"")) | données y
. .
. etc... . etc...


Donc lorsque j'ouvre mon fichier, la date d'aujourd'hui apparait dans la
dernière case de la colonne A, et j'aimerais que la cellule située sur
la même ligne en colonne B soit automatiquement sélectionnée, afin que
je puisse saisir manuellement la valeur sans avoir à chaque fois à
rechercher le bas de la colonne.

Et attention deuxième point (;-)), j'ai un autre fichier où la
disposition précédente est inversée (date en ligne 1 et valeurs en ligne
2), où là j'aimerais que la cellule sélectionnée à l'ouverture du
fichier soit la première case de la ligne 2.

J'ai cherché sur la FAQ d'excelabo, mais je n'ai trouvé que comment
sélectionner la dernière cellule non vide...


Merci par avance de toutes vos réponses.
@+
Signaler un problème avec ce contenu

6 réponses

Supprimer
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
Avatar
anonymousA
bonsoir,

ben à quoi ca sert offset quand on a déterminé la dernière cellule non
vide de la colonne A ?.

A+
Bonjour à tous,

J'ai un fichier dans lequel en colonne A, j'ai des dates. Ces dates
apparaissent au fur et à mesure du temps selon une formule tout à fait
lourde mais que je comprends !!!! lol
Colonne A Colonne B
1 01/01/2005 | données µ
2 =SI(A1="";"";SI(A1+1<=AUJOURDHUI();A1+1;"")) | données x
3 =SI(A2="";"";SI(A2+1<=AUJOURDHUI();A2+1;"")) | données y
. .
. etc... . etc...


Donc lorsque j'ouvre mon fichier, la date d'aujourd'hui apparait dans la
dernière case de la colonne A, et j'aimerais que la cellule située sur
la même ligne en colonne B soit automatiquement sélectionnée, afin que
je puisse saisir manuellement la valeur sans avoir à chaque fois à
rechercher le bas de la colonne.

Et attention deuxième point (;-)), j'ai un autre fichier où la
disposition précédente est inversée (date en ligne 1 et valeurs en ligne
2), où là j'aimerais que la cellule sélectionnée à l'ouverture du
fichier soit la première case de la ligne 2.

J'ai cherché sur la FAQ d'excelabo, mais je n'ai trouvé que comment
sélectionner la dernière cellule non vide...


Merci par avance de toutes vos réponses.
@+






Avatar
cowboy bebop
Et bien si j'ai bien compris, ça permet de sélectionner justement cette
fameuse cellule !!!! :)
Mais si je teste en faisant
range ("B1").end(xldown).offset(0,1)
et bien excel m'insulte !!! erreur de syntaxe....
ah au fait, je ne sais pas me servir de VBA !!!!

@+



bonsoir,

ben à quoi ca sert offset quand on a déterminé la dernière cellule non
vide de la colonne A ?.

A+

Bonjour à tous,

J'ai un fichier dans lequel en colonne A, j'ai des dates. Ces dates
apparaissent au fur et à mesure du temps selon une formule tout à fait
lourde mais que je comprends !!!! lol
Colonne A Colonne B 1
01/01/2005 | données µ
2 =SI(A1="";"";SI(A1+1<=AUJOURDHUI();A1+1;"")) | données x
3 =SI(A2="";"";SI(A2+1<=AUJOURDHUI();A2+1;"")) | données y
. .
. etc... . etc...


Donc lorsque j'ouvre mon fichier, la date d'aujourd'hui apparait dans
la dernière case de la colonne A, et j'aimerais que la cellule située
sur la même ligne en colonne B soit automatiquement sélectionnée, afin
que je puisse saisir manuellement la valeur sans avoir à chaque fois à
rechercher le bas de la colonne.

Et attention deuxième point (;-)), j'ai un autre fichier où la
disposition précédente est inversée (date en ligne 1 et valeurs en
ligne 2), où là j'aimerais que la cellule sélectionnée à l'ouverture
du fichier soit la première case de la ligne 2.

J'ai cherché sur la FAQ d'excelabo, mais je n'ai trouvé que comment
sélectionner la dernière cellule non vide...


Merci par avance de toutes vos réponses.
@+








Avatar
anonymousA
re,

'détecte la dernière valeur non vide en colonne A en supposant bien sur
'qu'il n'y ait rien en A65536
derligne = Range("A65536").End(xlUp).Row
'sélectionne la cellule située à droite de la dernière cellule de la
'colonne A
Range(Cells(derligne, 1), Cells(derligne, 1)).Offset(0, 1).Select
'ou
Cells(derligne, 1).Offset(0, 1).Select

A+


Et bien si j'ai bien compris, ça permet de sélectionner justement cette
fameuse cellule !!!! :)
Mais si je teste en faisant
range ("B1").end(xldown).offset(0,1)
et bien excel m'insulte !!! erreur de syntaxe....
ah au fait, je ne sais pas me servir de VBA !!!!

@+




bonsoir,

ben à quoi ca sert offset quand on a déterminé la dernière cellule non
vide de la colonne A ?.

A+

Bonjour à tous,

J'ai un fichier dans lequel en colonne A, j'ai des dates. Ces dates
apparaissent au fur et à mesure du temps selon une formule tout à
fait lourde mais que je comprends !!!! lol
Colonne A Colonne B 1
01/01/2005 | données µ
2 =SI(A1="";"";SI(A1+1<=AUJOURDHUI();A1+1;"")) | données x
3 =SI(A2="";"";SI(A2+1<=AUJOURDHUI();A2+1;"")) | données y
. .
. etc... . etc...


Donc lorsque j'ouvre mon fichier, la date d'aujourd'hui apparait dans
la dernière case de la colonne A, et j'aimerais que la cellule située
sur la même ligne en colonne B soit automatiquement sélectionnée,
afin que je puisse saisir manuellement la valeur sans avoir à chaque
fois à rechercher le bas de la colonne.

Et attention deuxième point (;-)), j'ai un autre fichier où la
disposition précédente est inversée (date en ligne 1 et valeurs en
ligne 2), où là j'aimerais que la cellule sélectionnée à l'ouverture
du fichier soit la première case de la ligne 2.

J'ai cherché sur la FAQ d'excelabo, mais je n'ai trouvé que comment
sélectionner la dernière cellule non vide...


Merci par avance de toutes vos réponses.
@+










Avatar
ChrisV
Bonjour cowboy bebop,

Le premier point semblant être réglé... pour le second, avec la plage
"dates" en ligne 1 nommée ici "dtS", dans la feuille de code de l'onglet
concerné...

Private Sub Worksheet_Activate()
Set dateJ = ActiveSheet.[dtS].Find(Date, , xlValues)
If Not dateJ Is Nothing Then
dateJ.Select
Application.GoTo Reference:¬tiveCell(2), Scroll:=True
Else: MsgBox "La date du jour n'a pas été trouvée"
End If
End Sub


ChrisV


"cowboy bebop" a écrit dans le
message de news:
Bonjour à tous,

J'ai un fichier dans lequel en colonne A, j'ai des dates. Ces dates
apparaissent au fur et à mesure du temps selon une formule tout à fait
lourde mais que je comprends !!!! lol
Colonne A Colonne B 1 01/01/2005 | données µ
2 =SI(A1="";"";SI(A1+1<=AUJOURDHUI();A1+1;"")) | données x
3 =SI(A2="";"";SI(A2+1<=AUJOURDHUI();A2+1;"")) | données y
. .
. etc... . etc...


Donc lorsque j'ouvre mon fichier, la date d'aujourd'hui apparait dans la
dernière case de la colonne A, et j'aimerais que la cellule située sur la
même ligne en colonne B soit automatiquement sélectionnée, afin que je
puisse saisir manuellement la valeur sans avoir à chaque fois à rechercher
le bas de la colonne.

Et attention deuxième point (;-)), j'ai un autre fichier où la disposition
précédente est inversée (date en ligne 1 et valeurs en ligne 2), où là
j'aimerais que la cellule sélectionnée à l'ouverture du fichier soit la
première case de la ligne 2.

J'ai cherché sur la FAQ d'excelabo, mais je n'ai trouvé que comment
sélectionner la dernière cellule non vide...


Merci par avance de toutes vos réponses.
@+






Avatar
cowboy bebop
Merci pour ton code, il marche à merveille !!!
@+

re,

'détecte la dernière valeur non vide en colonne A en supposant bien sur
'qu'il n'y ait rien en A65536
derligne = Range("A65536").End(xlUp).Row
'sélectionne la cellule située à droite de la dernière cellule de la
'colonne A
Range(Cells(derligne, 1), Cells(derligne, 1)).Offset(0, 1).Select
'ou
Cells(derligne, 1).Offset(0, 1).Select

A+



Et bien si j'ai bien compris, ça permet de sélectionner justement
cette fameuse cellule !!!! :)
Mais si je teste en faisant
range ("B1").end(xldown).offset(0,1)
et bien excel m'insulte !!! erreur de syntaxe....
ah au fait, je ne sais pas me servir de VBA !!!!

@+




bonsoir,

ben à quoi ca sert offset quand on a déterminé la dernière cellule
non vide de la colonne A ?.

A+

Bonjour à tous,

J'ai un fichier dans lequel en colonne A, j'ai des dates. Ces dates
apparaissent au fur et à mesure du temps selon une formule tout à
fait lourde mais que je comprends !!!! lol
Colonne A Colonne B 1
01/01/2005 | données µ
2 =SI(A1="";"";SI(A1+1<=AUJOURDHUI();A1+1;"")) | données x
3 =SI(A2="";"";SI(A2+1<=AUJOURDHUI();A2+1;"")) | données y
. .
. etc... . etc...


Donc lorsque j'ouvre mon fichier, la date d'aujourd'hui apparait
dans la dernière case de la colonne A, et j'aimerais que la cellule
située sur la même ligne en colonne B soit automatiquement
sélectionnée, afin que je puisse saisir manuellement la valeur sans
avoir à chaque fois à rechercher le bas de la colonne.

Et attention deuxième point (;-)), j'ai un autre fichier où la
disposition précédente est inversée (date en ligne 1 et valeurs en
ligne 2), où là j'aimerais que la cellule sélectionnée à l'ouverture
du fichier soit la première case de la ligne 2.

J'ai cherché sur la FAQ d'excelabo, mais je n'ai trouvé que comment
sélectionner la dernière cellule non vide...


Merci par avance de toutes vos réponses.
@+












Avatar
cowboy bebop
Merci Chris pour ton code...
le mélange macro-formules déjà existant dans ce fichier font que ton
code ne peut pas fonctionner dans mon cas.
J'ai réussi à m'en sortir en adaptant le code d'anonymous

Merci quand même, de toutes façons j'ai encore plein de trucs à vous
demander, car je ne fais que découvrir le VBA, et je dois dire que ça me
branche pas mal !!!

@+

Bonjour cowboy bebop,

Le premier point semblant être réglé... pour le second, avec la plage
"dates" en ligne 1 nommée ici "dtS", dans la feuille de code de l'onglet
concerné...

Private Sub Worksheet_Activate()
Set dateJ = ActiveSheet.[dtS].Find(Date, , xlValues)
If Not dateJ Is Nothing Then
dateJ.Select
Application.GoTo Reference:¬tiveCell(2), Scroll:=True
Else: MsgBox "La date du jour n'a pas été trouvée"
End If
End Sub


ChrisV


"cowboy bebop" a écrit dans le
message de news:

Bonjour à tous,

J'ai un fichier dans lequel en colonne A, j'ai des dates. Ces dates
apparaissent au fur et à mesure du temps selon une formule tout à fait
lourde mais que je comprends !!!! lol
Colonne A Colonne B 1 01/01/2005 | données µ
2 =SI(A1="";"";SI(A1+1<=AUJOURDHUI();A1+1;"")) | données x
3 =SI(A2="";"";SI(A2+1<=AUJOURDHUI();A2+1;"")) | données y
. .
. etc... . etc...


Donc lorsque j'ouvre mon fichier, la date d'aujourd'hui apparait dans la
dernière case de la colonne A, et j'aimerais que la cellule située sur la
même ligne en colonne B soit automatiquement sélectionnée, afin que je
puisse saisir manuellement la valeur sans avoir à chaque fois à rechercher
le bas de la colonne.

Et attention deuxième point (;-)), j'ai un autre fichier où la disposition
précédente est inversée (date en ligne 1 et valeurs en ligne 2), où là
j'aimerais que la cellule sélectionnée à l'ouverture du fichier soit la
première case de la ligne 2.

J'ai cherché sur la FAQ d'excelabo, mais je n'ai trouvé que comment
sélectionner la dernière cellule non vide...


Merci par avance de toutes vos réponses.
@+