Excel - cibler la valeur maximale d'une colonne

Fermé
meaurysse Messages postés 66 Date d'inscription mercredi 7 mars 2012 Statut Membre Dernière intervention 2 octobre 2020 - 5 févr. 2015 à 10:39
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 6 févr. 2015 à 10:29
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

ccm81 Messages postés 10903 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 19 novembre 2024 2 427
5 févr. 2015 à 13:51
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
meaurysse Messages postés 66 Date d'inscription mercredi 7 mars 2012 Statut Membre Dernière intervention 2 octobre 2020
6 févr. 2015 à 07:52
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
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
Modifié par michel_m le 6/02/2015 à 10:31
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