Columns(1)) MsgBox derlig_reelle(Worksheets("Feuil1"). Columns("A")) MsgBox derlig_reelle(Worksheets("Feuil2")("B:B")) 'Dernière ligne réelle d'une plage de cellules (fonctionne même si la dernière ligne est située en colonne C) MsgBox derlig_reelle(Worksheets("Feuil1")("A10:G153")) 'Dernière ligne réelle d'une feuille MsgBox derlig_reelle(Sheets("Feuil3")) A voir également
Accueil > VBA > Excel – Déterminer la dernière ligne d'un tableau ou d'une colonne remplie, via la programmation VBA Cette fonction s'avère très pratique pour connaître la dernière ligne d'une colonne. Elle peut être utilisée dans des zones de liste dont le contenu peut varier. La syntaxe de la fonction DERNIERELIGNE est: DERNIERELIGNE( Zone) L'argument Zone représente la colonne ou une cellule d'une colonne: A1 ou B:B Voici un exemple d'utilisation: Pour utiliser cette fonction, il faut la copier et la placer dans un module VBA. depuis Excel, faire ALT F11, vous ouvrez le module VBA. clic droit sur ThisWorBook, INSERTION / MODULE Coller le code suivant: Function derniereligne(zone As Range) As Integer 'DOPHIS Application. Dernière ligne d une colonne vba dans. Volatile If > 1 Then derniereligne = 0 Else derniereligne = (Columns(), )(xlUp) End If End Function Vous pouvez télécharger le fichier ci-dessous pour tester l'utilisation de cette fonction dans une zone de liste.
#2 Bonsoir le fil, le forum Personnellement, je ferais ainsi VB: Sub a() Dim P As Range, x&, y& Set P = Range("A10:L15") With P x = (What:="*", _ SearchDirection:=xlPrevious, _ SearchOrder:=xlByRows) y = (What:="*", _ SearchOrder:=xlByColumns) End With Range("A" & Cells(x, y))(, 12) End Sub #3 D'accord, je vous remercie pour votre réponse. Mais, ou faut-il mettre votre VBA dans ma macro ci-dessus SVP? Est ce que vous pouvez me transmettre le VBA final incluant votre réponse SVP? (désolé, je suis nul en VBA) Sub Macro1() ' ' Macro1 Macro Range("A10:L15") ExecuteExcel4Macro "PATTERNS(1, 0, 65535, TRUE, 2, 3, 0, 0)" #4 Re J'ai écris que je ferai ainsi pas qu'il fallait mettre ma macro dans ta macro. Et ma macro ne fait ce que tu as demandé puis ensuite d'aller jusqu'à la dernière ligne non vide de la plage. Qu'est censé faire celle ligne de code? PS: Personne n'est nul ici. Code VBA - Trouver la dernière colonne d'une ligne. Il y en a juste qui ont passé plus de temps sur leur Excel que d'autres. #5 Justement Slape, ma macro contient d'autres opérations, en conséquence, je souhaite la garder (si c'est possible? )
Conclusion Sachez qu'il existe d'autres façons de procéder. J'ai essayé ici de décrire le maximum de situations que vous pourriez rencontrer. Si cela ne s'avérait insuffisant, n'hésitez pas à créer un sujet dans le forum approprié.
Référence Signification Rows(1) Ligne 1 Rows Toutes les lignes de la feuille de calcul Columns(1) Colonne 1 Columns("A") Columns Toutes les colonnes de la feuille de calcul Pour travailler simultanément sur plusieurs lignes ou colonnes, créez une variable objet et utilisez la méthode Union en associant plusieurs appels des propriétés Rows ou Columns. L'exemple suivant montre comment affecter le style gras aux lignes 1, 3 et 5 de la feuille de calcul 1 dans le classeur actif. Sub SeveralRows() Worksheets("Sheet1"). Activate Dim myUnion As Range Set myUnion = Union(Rows(1), Rows(3), Rows(5)) = True Exemple de code fourni par: Dennis Wallentin, VSTO & & Excel cet exemple supprime les lignes vides d'une plage sélectionnée. Sub Delete_Empty_Rows() 'The range from which to delete the rows. Dim rnSelection As Range 'Row and count variables used in the deletion process. Dim lnLastRow As Long Dim lnRowCount As Long Dim lnDeletedRows As Long 'Initialize the number of deleted rows. Récupérer le numéro de la dernière ligne non vide. lnDeletedRows = 0 'Confirm that a range is selected, and that the range is contiguous.