help me!!! nulle en vba excel URGENT!!

help me!!! nulle en vba excel URGENT!! - VB/VBA/VBS - Programmation

Marsh Posté le 31-10-2005 à 21:07:08    

Bonjour à vous tous!!
 
Voilà tout, je dois créer une base sous excel (vba) et j'ai quelques problèmes (de base, mais pour une nulle en informatique comme moi, ca me parait insurmontable!!!)
 
- voilà je souhaiterais qu'à chaque ouverture de mon projet, le curseur vienne se positionner sur la dernière cellule vide
 
- je souhaiterais également que dans la colonne intitulée "date", l'utilisateur n'ait pas besoin d'entrer la date mais qu'elle s'inscrive automatiquement et qu'elle s'enregistre (c'est-à-dire que, par exemple, les deux premières lignes seront datées du 27/10/05 et la troisième 28/10/05 et ainsi de suite)
 
j'espère que c'est compréhensible.
 
Merci à tous ceux qui pourront me venir en aide


---------------
jfbrune
Reply

Marsh Posté le 31-10-2005 à 21:07:08   

Reply

Marsh Posté le 01-11-2005 à 09:14:40    

Bonjour,
Pour positionner la feuille et la cellule active utilise :

Code :
  1. Private Sub Workbook_Open()
  2. Worksheets("Mafeuille" ).Select
  3. iR = Range("A1" ).End(xlDown).Row
  4. ActiveWindow.ScrollRow = iR - 1
  5. Cells(iR + 1, 1).Select
  6. End Sub

Cette macro est à coller dans le module ThisWorkbook.
Ne pas oublier de remplacer "Mafeuille" par le nom de ta feuille
Remplacer "A1" par la première cellule "date" de ta base de donnée.
Cette macro s'exécutera à chaque ouverture du classeur.
 
Pour insérer la date utilise la macro suivante :

Code :
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2. If Target.Column = 1 And IsEmpty(Target) Then Target = Date
  3. End Sub

Cette macro est à coller dans le module de la feuille concernée.
A+


---------------
roger
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed