Lancement d'un fichier XL

  • Initiateur de la discussion Initiateur de la discussion Songoty
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S

Songoty

Guest
Bonjour,

Est-il possible de faire placer le curseur à un endroit précis de la feuille?
J'entends par là, que lorsqu'on quitte le fichier et que l'on réouvre, le cursuer se situe à la dernière cellule selectionnée. Et donc j'aimerai que le curseur se place directement soit au coin supérieur gauche de la feuille (cellule A1) ou à la première case vide d'une colonne.

Autre question, tant que j'y suis.
Peut-on limiter certaines action suivant la personne utilisant le fichier. Car le fichier auquel je travaille, sera mis en réseau.
C'est un tableau de contrôle de dossier effectué par plusieurs personnes différentes (au départ deux seulement l'utilisait, mnt il y en une dizaine)
J'aimerai par exemple qu'une personne puisse extraire uniquement son travail et l'imprimer, mais que cette même personne ne puisse le faire avec le travail d'un autre.

Merci de votre aide...

Songoty
 
bonjour,

dans VBA thisworkbook, tu mets une macro qui s'exécutera au démarrage..

exemple :
'pour aller en case A1:

sheets("feuil1").select
range("A").select

'pour aller en premiere case vide de la colonne a :

sheets("feuil1").select
range ("A1").select
do while activecell.value<>""
activecell.offset(1,0).select
loop

'pour aller en derniere case occupée de colonne a :

sheets("feuil1").select
range ("A1").select
do while activecell.value<>""
activecell.offset(1,0).select
loop
activecell.offset(-1,0).select


Pour ta deuxieme question, je ne sais pas car ignorant du travail en reseau avec excel...

cordialement,
@+Hervé
 
Bonjour le forum


Grâce à Moa

Sub Derligne()
Dim DerLig As Range

With ActiveSheet
' Trouve la dernière cellule remplie dans la colonne " A:A "
Set DerLig = Range("A65536").End(xlUp)

DerLig.Select
End With

End Sub

Merçi Moa. ( lol )

Pat5 ;o)
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
0
Affichages
1 K
Retour