Comment utiliser vba pour aller à la dernière ligne dans une feuille Excel

Trouvez la dernière ligne en utilisant Visual Basic pour Applications (VBA) dans Excel.

Apprendre à utiliser Visual Basic pour Applications (VBA) dans Excel peut vous faire gagner du temps lors de la recherche des données dans une feuille de calcul. Microsoft Excel, une application de tableur inclus dans Microsoft Office, vous donne les outils pour analyser facilement les données en utilisant des formules pour les calculs complexes. Utilisez VBA pour automatiser les tâches de routine dans Excel ou d`autres applications Microsoft Office.

Video: Excel VBA formulaire de saisie des données et bouton de recherche

Ouvrez Microsoft Excel 2007, cliquez sur le "Développeur" onglet et sélectionnez "Visual Basic."

Type "Sous goToLastRow ()" et appuyez sur "Entrer" pour créer un nouveau sous.

Tapez le texte suivant pour créer des variables:

"Dim LastRow As Integer

Dim X As Integer"

Type "Pour X = 1 à 25

Gamme("UNE" &Amp X) = .SelectActiveCell.Value "Ajout de données à numéro de ligne: " &X Amp

Suivant X

Gamme("A26").Sélectionner

ActiveCell.Value = " "

Gamme("A27").Sélectionner

ActiveCell.Value = " "" pour créer une boucle qui ajoutera des données aux 25 premières lignes. Ajouter un "espace" aux deux dernières lignes.

Type "LastRow = ActiveSheet.UsedRange.Rows.Count" pour obtenir la dernière ligne.

Type "MsgBox." La dernière ligne de cette feuille de calcul est le suivant: " & dernière rangée" pour afficher la dernière rangée à travers une zone de message.

Video: Excel VBA - Comment alimenter une ListBox à partir d'un critère

Type "End Sub" si nécessaire. Lancez votre nouveau sous et vous verrez une boîte de message avec "La dernière ligne de cette feuille de calcul est: 27".

Conseils

Votre nouveau sous devrait ressembler à ceci:
"Sous goToLastRow ()
Dim LastRow As Integer
Dim X As Integer
Pour X = 1 à 25
Gamme("UNE" & X) .Select
ActiveCell.Value = "Ajout de données à numéro de ligne: " & X
Suivant X
Gamme("A26").Sélectionner
ActiveCell.Value = " "
Gamme("A27").Sélectionner
ActiveCell.Value = " "
LastRow = ActiveSheet.UsedRange.Rows.Count
MsgBox "La dernière ligne de cette feuille de calcul est le suivant: " & dernière rangée
End Sub"

Video: VBA UserForm: Formulaire suppression

Les références

Microsoft: Création de macros VBA pour Excel dans Manipulez 2007 Worksheets

A propos de l`auteur

Jaime Avelar est un écrivain professionnel dont la programmation des articles apparaissent sur divers sites Web. Il a été un programmeur de logiciels depuis 2000. Avelar est titulaire d`un Master of Science en systèmes d`information de l`Université du Texas à Arlington.