Au contraire, l'instruction que je vous propose, c'est-à-dire: DerniereLigneUtilisee = Range("A" &)(xlUp) utilisera toujours le nombre correct des lignes et est donc tout à fait indépendante de la version d'Excel utilisée – elle donnera le résultat correct dans tous les cas. Il en va de même pour le nombre des colonnes. Attention – si aucune cellule dans la colonne choisie n'est utilisée, le résultat final sera 1 (et non 0)! La dernière colonne utilisée dans une ligne donnée Cette manière de trouver la dernière cellule utilisée dans une ligne fonctionne de la même manière que le code précédent (pour la dernière ligne dans une colonne). DerniereColonneUtilisee = Cells(X, )(xlToLeft) 'où X est le numéro de la ligne 'exemple (pour la dernière cellule utilisée dans la ligne 156): MaDerniereColonneUtilisee = Cells(156, )(xlToLeft) Attention – tout comme pour la recherche de la dernière ligne d'une colonne donnée, si aucune cellule dans la ligne choisie n'est utilisée, le résultat final sera 1 (et non 0)!
Cette manipulation de touches peut être réalisée sous forme d'un code VBA, sans passer par les SendKeys. Il s'agit ici de la propriété End d'Excel, à laquelle on attribue le paramètre obligatoire de direction xlDown. Cette façon de procéder nous renvoyant le numéro de la dernière ligne non-vide de la colonne, pour obtenir la première ligne vide, il suffira de lui ajouter 1... Dim DLig As Long DLig = Range("C1")(xlDown) + 1 Remarque: Si vous avez une (ou des) cellule vide au milieu de votre colonne, c'est la ligne de celle-ci qui sera retournée par votre fonction... Combinaison Ctrl+Flèche du haut A l'inverse de la combinaison précédente, lorsque vous sélectionnez la dernière cellule de votre colonne (C65536 ou C1048576 selon votre version) et que vous tapez simultanément sur Ctrl+touche du haut, vous allez sélectionner la dernière cellule non vide de votre colonne. Le code VBA correspondant, indépendant de votre version serait, en pseudo code: Range("C" nombre_de_ligne_total_de_ma_feuille)(xlUp) Or, le nombre de ligne total d'une feuille quelque soit la version est exprimé, en VBA par: (compte de lignes).
HowTo VBA Howto's Trouver la dernière ligne et colonne dans VBA Créé: April-18, 2022 Syntaxe du code Obtenir la dernière ligne/colonne avec des données dans la feuille de calcul en cours dans VBA Obtenir la dernière ligne/colonne avec les données d'une autre feuille de calcul dans VBA Obtenir la dernière ligne/colonne d'une feuille de calcul à l'aide d'une fonction Lorsque nous traitons des données dans une feuille de calcul, nous devons connaître la dernière ligne et la dernière colonne contenant des données. Il est utile de définir une limite où notre curseur peut itérer. VBA n'a pas de fonction intégrée pour renvoyer la dernière ligne/colonne utilisée dans une feuille de calcul. Mais avec l'utilisation de solutions VBA simples, nous pouvons créer notre fonction définie par l'utilisateur conçue pour renvoyer la valeur de la dernière ligne/colonne utilisée dans une feuille de calcul. Cet article explique comment rechercher la dernière ligne et la dernière colonne utilisées dans une feuille de calcul à l'aide d'Excel VBA.
For lnColumnCount = lnLastColumn To 1 Step -1 If (lumns(lnColumnCount)) = 0 Then lumns(lnColumnCount) lnDeletedColumns = lnDeletedColumns + 1 Next lnColumnCount (lnLastColumn - lnDeletedColumns) À propos du collaborateur Dennis Wallentin est l'auteur de VSTO & & Excel, un blog consacré aux solutions Framework pour Excel et Excel Services. Dennis développe des solutions Excel depuis plus de 20 ans et a également co-écrit « Professional Excel Development: The Definitive Guide to Developing Applications Using Microsoft Excel, VBA and (2nd Edition) ». Assistance et commentaires Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation? Consultez la rubrique concernant l'assistance pour Office VBA et l'envoi de commentaires afin d'obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.
), xlValues,, 1, 2, 0) End With si formule ne renvoie rien dans la cellule, "find" ne renverra pas le numéro de la ligne en question.... #12 A noter si tu veux tout de même le numéro de la dernière ligne comportant une forumule ne renvoyant rien, il faut changer l'argument "lookin": MsgBox ("*", Cells(,. ), xlFormulas,, 1, 2, 0) #13 Bonjour, Moi j'utilise ceci i = 1 Do While (Sheets("Feuil2")(i, 3) <> "") i = i + 1 Loop i représente le numéro de la 1er ligne vide et dans ce cas ci à la 3em colonne Tu peux effectuer la même chose pour d'autres colonne et tu gardes le i le plus grand. #14 Re Cette foi j'ai bien vérifié... Sub Derniere_ligne() Dim LstRw As Long, LstCol As Long, LstCel As String With Sheets("Feuil1") LstRw = ("*", Cells(, ), xlValues,, 1, 2, 0) LstCol = ("*", Cells(, ), xlValues,, 2, 2, 0) LstCel = (LstRw, LstCol). Address MsgBox "Ligne: " & LstRw & vbLf & _ "Colonne: " & LstCol & vbLf & _ "Addresse: " & LstCel A noter, comme l'a dit Pierrot, qu'il suffit de changer xlValues par xlFormulas pour prendre en compte les formules.
Le fait de définir les paramètres de ces arguments modifie les paramètres de la boîte de dialogue Rechercher, ce qui a pour effet de changer les paramètres enregistrés qui sont utilisés lorsque vous ne spécifiez pas les arguments. Pour éviter toute ambiguïté, définissez ces arguments de façon explicite chaque fois que vous utilisez cette méthode. Quelle sont donc les valeurs de la boîte à appliquer et donc à préciser? Mais il y a quelque chances que je base ma prochaine version de ma PlageÀPartirDe sur ce Find, bien qu'il ne fournisse pas directement la dernière colonne. #8 Bonjour à tous, perso j'utilise ceci, en renseignant les différents arguments de la méthode: MsgBox = ("*", Range("IV65536"), xlValues,, 1, 2, 0) bonne journée @+ #9 rebonjour Pierrot si tu l'ecris comme cela tu te limites a excel 2003 MsgBox ("*", Range("IV65536"), xlValues,, 1, 2, 0) de plus je crois pas que cela tiens compte des cellules vide par formule a voir pour l'ami Dranreb j'ai pas de reponse sorry #10 Re, Bonjour Pierrot, Bonjour laetitia, Message édité, pas bonne idée... #11 Re, @Laetitia compatible 2007: With Application MsgBox ("*", Cells(,.
[B2]): LstRow = + - 1: End With Remarque: ma solution ne recherche pas systématiquement depuis la ligne 65536 une cellule renseignée et ce dans plusieurs colonnes. Avec un peu de chances elle se termine tout de suite s'il ne traine pas de bordures au delà de la partie qu'on veut. De plus, elle écarterait de la plage rendue les lignes qui ne contiendraient que des formules rendant des chaînes vides. À+ Dernière édition: 6 Juin 2011 #5 bonjour tous un autre code Code: MsgBox ("*",,,,, xlPrevious) #6 Merci à vous tous pour votre aide Hugues #7 laetitia90, je dois dire que l'idée est interessante, surtout si on prend UsedRange plutôt que Cells. Mais je ne comprend pas bien pourquoi What:="*" ne s'arrête pas sur les cellules renseignées d'une chaine vide. "*"ça veut bien dire n'importe quoi non? Par ailleurs extrait de l'aide: Remarques Les paramètres des arguments LookIn, LookAt, SearchOrder et MatchByte sont enregistrés chaque fois que vous utilisez cette méthode. Si vous ne spécifiez aucun paramètre pour ces arguments lors du prochain appel de la méthode, les paramètres enregistrés sont utilisés.