Discussion :

[Vba14]

Bonjour à tous,

Dans ce code, après ouverture de la feuille, je suis censé être positionné sur la première cellule vide de la colonne A, hors ça ne fonctionne pas.
Pourriez-vous m'indiquer pourquoi s'il vous plait ?
Je vous en remercie par avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Private Sub Bt1_Click()
Dim DLig As Long
'Si je clique sur le bouton "Ville"
'La feuille "Arch_Ville" s'affiche et s'ouvre
'Le curseur est placé sur la cellule vide après la dernière ligne saisie en colonne A
Application.ScreenUpdating = False
 
    Sheets("Arch_Ville").Visible = True
    Sheets("Arch_Ville").Activate
 
    With ActiveSheet
    DLig = Range("A1").End(xlDown).Row + 1
    End With
 
'La feuille "Vide" se ferme
'Le formulaire de choix se ferme
    Sheets("Vide").Visible = False
 
    Unload Me
 
Application.ScreenUpdating = True
 
End Sub

[ChristianBosch]

Salut, quand tu dis positionné ? ca vaut dire que la cellule doit etre sélectionnée ? car dans ce code tu calcule la dernière cellule occupée de la colonne A mais tu ne la sectionne pas. Tu stocke la derniere ligne dans DLig.

Il faudrait rajouter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Arch_Ville").range("A" & dLig).select

[Vba14]

Bonjour Christian,
J'ai bien ajouté la ligne qui manquait. La cellule est bien sélectionnée, mais pas affichée, c'est le 3392ème ligne.
Je suis toujours obligé d'utiliser le scroll pour accéder à ma ligne.
Voici le code modifié :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Private Sub Bt1_Click()
Dim DLig As Long
'Si je clique sur le bouton "Ville"
'La feuille "Arch_Ville" s'affiche et s'ouvre
'Le curseur est placé sur la cellule vide après la dernière ligne saisie en colonne A
Application.ScreenUpdating = False
 
    Sheets("Arch_Ville").Visible = True
    Sheets("Arch_Ville").Activate
 
    With ActiveSheet
    DLig = Range("A1").End(xlDown).Row + 1
    End With
Sheets("Arch_Ville").Range("A" & DLig).Select
 
'La feuille "Vide" se ferme
'Le formulaire de choix se ferme
    Sheets("Vide").Visible = False
 
    Unload Me
 
Application.ScreenUpdating = True
 
End Sub

[Vba14]

En fait, ce n'est pas seulement se positionner sur la cellule mais également l'afficher.
Je cherche une solution de mon côté

Il faudrait que j'utilise le scrollArea pour manipuler l'ascenseur de manière automatique. Mais ça je ne sais pas faire...

[lucasgaetan]

RE bonjour,

la ligne de code ".Select" est exactement ce que tu as besoin.

le problème est plus dans l'organisation de ta procédure (voir commentaire en rouge):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub Bt1_Click()
Dim DLig As Long
'Si je clique sur le bouton "Ville"
'La feuille "Arch_Ville" s'affiche et s'ouvre
'Le curseur est placé sur la cellule vide après la dernière ligne saisie en colonne A
Application.ScreenUpdating = False
 
    Sheets("Arch_Ville").Visible = True
    Sheets("Arch_Ville").Activate
 
    With ActiveSheet 'Aucun intérêt si tu ne mets pas de "." devant Range à la ligne suivante
    DLig = Range("A1").End(xlDown).Row + 1
    End With
Sheets("Arch_Ville").Range("A" & DLig).Select 'Je pense qu'il faut décaler cette ligne en fin de procédure après le "Unload"
 
'La feuille "Vide" se ferme
'Le formulaire de choix se ferme
    Sheets("Vide").Visible = False
 
    Unload Me
 
Application.ScreenUpdating = True
 
End Sub

Bon courage.

[Vba14]

Lucasgaetan,

J'ai modifié le code, mais ça ne change rien, la dernière ligne ne remonte pas sous la ligne d'en-tête, là où j'ai figé les volets
Je précise que le curseur va bien sur la première cellule vide (en A3392) mais pour voir cette cellule je dois jouer avec l'ascenseur, ce qui n'est pas pratique
Merci toutefois pour ton aide