VBA EXCEL FONCTION POUR DÉTERMINER LA DERNIÈRE LIGNE D'UNE COLONNE OU PLUSIEURS
PtitLouisXIV
Messages postés
4
Date d'inscription
samedi 8 décembre 2007
Statut
Membre
Dernière intervention
5 janvier 2009
-
5 janv. 2009 à 18:28
bigfish_le vrai Messages postés 1835 Date d'inscription vendredi 13 mai 2005 Statut Membre Dernière intervention 20 novembre 2013 - 5 janv. 2009 à 22:28
bigfish_le vrai Messages postés 1835 Date d'inscription vendredi 13 mai 2005 Statut Membre Dernière intervention 20 novembre 2013 - 5 janv. 2009 à 22:28
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/48841-vba-excel-fonction-pour-determiner-la-derniere-ligne-d-une-colonne-ou-plusieurs
https://codes-sources.commentcamarche.net/source/48841-vba-excel-fonction-pour-determiner-la-derniere-ligne-d-une-colonne-ou-plusieurs
5 janv. 2009 à 22:28
tu devrais regarder un peu comment fonctionne ce site car il existe une partie appelé Codyx et qui sert a publier des codes simples qui sont comme tu le dis toi meme souvent utilisés et reutilisés. Honnetement je ne vois pas l'interet de ce code dans les sources.
A+
5 janv. 2009 à 20:04
Il y a toujours plusieurs façons d'écrire un programme et de méthodes pour exécuter une tache.
Après cela dépend où l'on veut en arriver...
5 janv. 2009 à 19:48
Une autre solution :
Sub Macro1()
Dim Ligne As Long
Dim Colonne As String
Ligne = ActiveCell.SpecialCells(xlCellTypeLastCell).Row
Colonne = ActiveCell.SpecialCells(xlCellTypeLastCell).Column 'colonne en nombre
Colonne = Chr(ActiveCell.SpecialCells(xlCellTypeLastCell).Column + 64) 'colonne en lettre
End Sub
A+
Eric
5 janv. 2009 à 18:28
Il y a peut-être plus simple :
Sub Macro1()
Dim Ligne As Long
Dim Colonne As String
Selection.SpecialCells(xlCellTypeLastCell).Activate
Ligne = ActiveCell.Row
Colonne = Left$(ActiveCell.Address(0, 0), (ActiveCell.Column < 27) + 2)
End Sub
Non ?