Excel - cibler la valeur maximale d'une colonne

meaurysse Messages postés 66 Date d'inscription   Statut Membre Dernière intervention   -  
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Sur Excel, j'ai un tableau de journal de commandes avec en premier lieu les dates. Etant donné qu'il s'y passe des choses tous les jours, j'aimerai qu'à l'ouverture du fichier, qu'Excel m'indique automatiquement la dernière cellule remplie.

Comment faire?

J'ai d'ores et déjà mon idée: dans le Workbook_Open: Range("max ....... quelque chose du genre... mais je ne sais pas comment m'y prendre pour que cela fonctionne...

Pouvez-vous m'éclairer? Merci d'avance.

Bonne journée
A voir également:

3 réponses

Réponse 1 / 3
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
Bonjour

Dans le module du Workbook 

Private Sub Workbook_Open()
Dim adr As String, lifin As Long
  lifin = Sheets(1).Range("A" & Rows.Count).End(xlUp).Row
  adr = Sheets(1).Range("A" & lifin).Address
  MsgBox "dernire celleule de la feuille 1 remplie" & adr
  Sheets(1).Range(adr).Select
End Sub

Cdlmnt
0
Réponse 2 / 3
meaurysse Messages postés 66 Date d'inscription   Statut Membre Dernière intervention  
 
Salut, merci de ta réponse, par contre bien compliquée la formule VBA...

Ca existe pas plus simple (car j'essaie de déchiffrer le code) pour simplement cibler une valeure maximale? Je m'explique:

J'ai dans la colonne C:C , C1=5 C2=44 C3=150 C4=189

A l'ouverture de mon fichier, la cellule active vient se mettre sur C4 !

Est-ce possible?
0
Réponse 3 / 3
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Bonjour
Bonjour CCM, ca va ?

Pourtant, a la 1° demande
j'aimerai qu'à l'ouverture du fichier, qu'Excel m'indique automatiquement la dernière cellule remplie.



En supposant que la recherche se fait sur la feuille 1 
Dim Adr As String
Adr = Sheets(1).Columns("C").Find(Application.Max(Columns("C")), Range("C" & Cells.Rows.Count)).Address
Range(Adr).Select

Michel
0