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 ActiveCell ... ??

ActiveCell ... ??

4 réponses
Avatar
Jo-Julie
Bonjour à tous...

J'ai besoin d'aide pour le petit problème suivant....

J'ai un bureau une feuille de travail avec des listes déroulantes... Comme
nous somme encore à l'air Excel 97 (beurk!) au bureau... je dois défiger les
volets pour avoir accès à mes listes.... Comme j'ai besoin de remettre et
enlever mes volets souvent j'ai crée les marcros suivantes

Sub volet2()
'
' volet2 Macro
' Macro enregistrée le 2005-03-29 par DJL
' Mettre les volet pour afficher liste dans "Coûts" - Office 97

'
MsgBox "Cette fonction vous permet d'afficher les listes déroulantes de vos
sous-groupes." & vbCrLf & vbCrLf & "Lorsque vous aurez terminé vos
sélections, revenez au début de la feuille à l'aide de l'icône et figez vos
volets en appuyant Crtl-F" & vbCrLf & vbCrLf, vbInformation, "Changement de
volet"

ActiveWindow.FreezePanes = False
Range("B11").Select
ActiveWindow.FreezePanes = True

End Sub

__________________________________________________________________

Sub volet()
'
' volet Macro
' Macro enregistrée le 2005-03-29 par DJL
' Figer les volet en J11 dans "Coûts"
' Touche de raccourci du clavier: Ctrl+f
'
ActiveWindow.FreezePanes = False
Range("J11").Select
ActiveWindow.FreezePanes = True

End Sub

__________________________________________________________________

Jusque là ca va... rien de bien complexe.... Mais voila ce que j'aimerais
pouvoir faire...

Comme vous l'avez remarqué à chaque fois que j'exécute cette macro, mon
curseur revient au début de ma feuille... ou plutôt à l'droit ou je fige mes
volets.

Existe t'il un moyen que mon curseur reste dans la cellulle active au moment
ou j'exécute ces macro.... ce qui m'éviterais beaucoup de
scrollllllllllllll....

Est-ce possible?... et si oui que dois-je ajouter ou changer dans mes
codes....

Salutation à tous et un sincère gros merci de votre aide

Julie
Signaler un problème avec ce contenu

4 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
Nicolas B.
Salut,

Pour figer les volets, passe par une variable représentant la cellule
active :

Sub FigerVolets()
Dim rg As Range
Set rg = ActiveCell
Range("J11").Select
ActiveWindow.FreezePanes = True
rg.Select
End Sub

Pour libérer les volets, c'est plus simple puisqu'il n'y a pas besoin de
sélectionner de cellule :

Sub LibererVolets()
ActiveWindow.FreezePanes = False
End Sub

A adapter dans tes macros...


A+
Nicolas B.

Bonjour à tous...

J'ai besoin d'aide pour le petit problème suivant....

J'ai un bureau une feuille de travail avec des listes déroulantes... Comme
nous somme encore à l'air Excel 97 (beurk!) au bureau... je dois défiger les
volets pour avoir accès à mes listes.... Comme j'ai besoin de remettre et
enlever mes volets souvent j'ai crée les marcros suivantes

Sub volet2()
'
' volet2 Macro
' Macro enregistrée le 2005-03-29 par DJL
' Mettre les volet pour afficher liste dans "Coûts" - Office 97

'
MsgBox "Cette fonction vous permet d'afficher les listes déroulantes de vos
sous-groupes." & vbCrLf & vbCrLf & "Lorsque vous aurez terminé vos
sélections, revenez au début de la feuille à l'aide de l'icône et figez vos
volets en appuyant Crtl-F" & vbCrLf & vbCrLf, vbInformation, "Changement de
volet"

ActiveWindow.FreezePanes = False
Range("B11").Select
ActiveWindow.FreezePanes = True

End Sub

__________________________________________________________________

Sub volet()
'
' volet Macro
' Macro enregistrée le 2005-03-29 par DJL
' Figer les volet en J11 dans "Coûts"
' Touche de raccourci du clavier: Ctrl+f
'
ActiveWindow.FreezePanes = False
Range("J11").Select
ActiveWindow.FreezePanes = True

End Sub

__________________________________________________________________

Jusque là ca va... rien de bien complexe.... Mais voila ce que j'aimerais
pouvoir faire...

Comme vous l'avez remarqué à chaque fois que j'exécute cette macro, mon
curseur revient au début de ma feuille... ou plutôt à l'droit ou je fige mes
volets.

Existe t'il un moyen que mon curseur reste dans la cellulle active au moment
ou j'exécute ces macro.... ce qui m'éviterais beaucoup de
scrollllllllllllll....

Est-ce possible?... et si oui que dois-je ajouter ou changer dans mes
codes....

Salutation à tous et un sincère gros merci de votre aide

Julie


Avatar
PMO
Bonjour,

J'ai modifié la macro "volet" dont le nouveau code est ci-dessous

'**********
Sub volet()
Dim R As Range 'modif
Set R = Selection 'modif
ActiveWindow.FreezePanes = False
Range("J11").Select
ActiveWindow.FreezePanes = True
R.Select 'modif
End Sub
'**********

Cordialement.

--
PMO
Patrick Morange



Bonjour à tous...

J'ai besoin d'aide pour le petit problème suivant....

J'ai un bureau une feuille de travail avec des listes déroulantes... Comme
nous somme encore à l'air Excel 97 (beurk!) au bureau... je dois défiger les
volets pour avoir accès à mes listes.... Comme j'ai besoin de remettre et
enlever mes volets souvent j'ai crée les marcros suivantes

Sub volet2()
'
' volet2 Macro
' Macro enregistrée le 2005-03-29 par DJL
' Mettre les volet pour afficher liste dans "Coûts" - Office 97

'
MsgBox "Cette fonction vous permet d'afficher les listes déroulantes de vos
sous-groupes." & vbCrLf & vbCrLf & "Lorsque vous aurez terminé vos
sélections, revenez au début de la feuille à l'aide de l'icône et figez vos
volets en appuyant Crtl-F" & vbCrLf & vbCrLf, vbInformation, "Changement de
volet"

ActiveWindow.FreezePanes = False
Range("B11").Select
ActiveWindow.FreezePanes = True

End Sub

__________________________________________________________________

Sub volet()
'
' volet Macro
' Macro enregistrée le 2005-03-29 par DJL
' Figer les volet en J11 dans "Coûts"
' Touche de raccourci du clavier: Ctrl+f
'
ActiveWindow.FreezePanes = False
Range("J11").Select
ActiveWindow.FreezePanes = True

End Sub

__________________________________________________________________

Jusque là ca va... rien de bien complexe.... Mais voila ce que j'aimerais
pouvoir faire...

Comme vous l'avez remarqué à chaque fois que j'exécute cette macro, mon
curseur revient au début de ma feuille... ou plutôt à l'droit ou je fige mes
volets.

Existe t'il un moyen que mon curseur reste dans la cellulle active au moment
ou j'exécute ces macro.... ce qui m'éviterais beaucoup de
scrollllllllllllll....

Est-ce possible?... et si oui que dois-je ajouter ou changer dans mes
codes....

Salutation à tous et un sincère gros merci de votre aide

Julie


Avatar
Jo-Julie
Bonjour Nicholas

Merci beaucoup pour ta réponse...

Pour ce qui est de défiger les volet pour permettre l'accès à mes listes...
en fait je ne les défige pas complètement mais plutôt les fige à partir d'une
autre cellule ( je dois toujours avoir mes 10 premières lignes visibles)

Puis-je simplment appliquer le même code et simplement changer le no de
cellule?

merci beauoup de m'aider

Julie


Salut,

Pour figer les volets, passe par une variable représentant la cellule
active :

Sub FigerVolets()
Dim rg As Range
Set rg = ActiveCell
Range("J11").Select
ActiveWindow.FreezePanes = True
rg.Select
End Sub

Pour libérer les volets, c'est plus simple puisqu'il n'y a pas besoin de
sélectionner de cellule :

Sub LibererVolets()
ActiveWindow.FreezePanes = False
End Sub

A adapter dans tes macros...


A+
Nicolas B.

Bonjour à tous...

J'ai besoin d'aide pour le petit problème suivant....

J'ai un bureau une feuille de travail avec des listes déroulantes... Comme
nous somme encore à l'air Excel 97 (beurk!) au bureau... je dois défiger les
volets pour avoir accès à mes listes.... Comme j'ai besoin de remettre et
enlever mes volets souvent j'ai crée les marcros suivantes

Sub volet2()
'
' volet2 Macro
' Macro enregistrée le 2005-03-29 par DJL
' Mettre les volet pour afficher liste dans "Coûts" - Office 97

'
MsgBox "Cette fonction vous permet d'afficher les listes déroulantes de vos
sous-groupes." & vbCrLf & vbCrLf & "Lorsque vous aurez terminé vos
sélections, revenez au début de la feuille à l'aide de l'icône et figez vos
volets en appuyant Crtl-F" & vbCrLf & vbCrLf, vbInformation, "Changement de
volet"

ActiveWindow.FreezePanes = False
Range("B11").Select
ActiveWindow.FreezePanes = True

End Sub

__________________________________________________________________

Sub volet()
'
' volet Macro
' Macro enregistrée le 2005-03-29 par DJL
' Figer les volet en J11 dans "Coûts"
' Touche de raccourci du clavier: Ctrl+f
'
ActiveWindow.FreezePanes = False
Range("J11").Select
ActiveWindow.FreezePanes = True

End Sub

__________________________________________________________________

Jusque là ca va... rien de bien complexe.... Mais voila ce que j'aimerais
pouvoir faire...

Comme vous l'avez remarqué à chaque fois que j'exécute cette macro, mon
curseur revient au début de ma feuille... ou plutôt à l'droit ou je fige mes
volets.

Existe t'il un moyen que mon curseur reste dans la cellulle active au moment
ou j'exécute ces macro.... ce qui m'éviterais beaucoup de
scrollllllllllllll....

Est-ce possible?... et si oui que dois-je ajouter ou changer dans mes
codes....

Salutation à tous et un sincère gros merci de votre aide

Julie





Avatar
Nicolas B.
Cette procédure fige les volets à le cellule souhaitée en rg :

Sub FigerVolets(rg As Range)
Dim ac As Range
Set ac = ActiveCell
ActiveWindow.FreezePanes = False
rg.Select
ActiveWindow.FreezePanes = True
ac.Select
End Sub

Et en l'utilisant dans tes macros volet et volet 2 :

sub volet()
FigerVolets(Range("J11"))
end sub

sub volet2()
FigerVolets(Range("B11"))
end sub


A+
Nicolas B.

Bonjour Nicholas

Merci beaucoup pour ta réponse...

Pour ce qui est de défiger les volet pour permettre l'accès à mes listes...
en fait je ne les défige pas complètement mais plutôt les fige à partir d'une
autre cellule ( je dois toujours avoir mes 10 premières lignes visibles)

Puis-je simplment appliquer le même code et simplement changer le no de
cellule?

merci beauoup de m'aider

Julie



Salut,

Pour figer les volets, passe par une variable représentant la cellule
active :

Sub FigerVolets()
Dim rg As Range
Set rg = ActiveCell
Range("J11").Select
ActiveWindow.FreezePanes = True
rg.Select
End Sub

Pour libérer les volets, c'est plus simple puisqu'il n'y a pas besoin de
sélectionner de cellule :

Sub LibererVolets()
ActiveWindow.FreezePanes = False
End Sub

A adapter dans tes macros...


A+
Nicolas B.