Copier une ligne et nombre de lignes VBA Excel [Résolu]

Signaler
Messages postés
163
Date d'inscription
mercredi 22 octobre 2003
Statut
Membre
Dernière intervention
3 février 2012
-
Messages postés
163
Date d'inscription
mercredi 22 octobre 2003
Statut
Membre
Dernière intervention
3 février 2012
-
Bonjour,

J'ai deux petites questions assez simple sous excel VBA

1) J'ai un numero de lignes et j'aimerais copier la ligne entière d'une feuille dans une nouvelle feuille à la fin.

2) J'aimerais savoir si il est possible d'obtenir le nombre de lignes utilisés dans une feuille sachant que je regarde sur la colonne A poru avoir le nombre et qu'il peut y avoir des trous
exemple :

0001
0002
0003

0006
0007
0008

Il y a ici 8 lignes

Merci encore. ++ Nexus

Chaque problème a sa solution. S'il n'y a pas de solution c'est qu'il n'y a pas de problème.

2 réponses

Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
23
Bonjour,

1) exemple pour copier une ligne dans une nouvelle feuille.



Sub CopierLigne()

Rows("3:3").Select

Selection.Copy

Sheets.Add

Range("A4").Select

ActiveSheet.Paste

End Sub



2) Cette macro compte le nombre de lignes vides entre la 1ère et la dernière valeur.



Sub LigneVide()

Dim DernièreLigne As Long

Dim r As Long, i

i = 1

DernièreLigne = ActiveSheet.UsedRange.Row - 1

DernièreLigne = DernièreLigne + ActiveSheet.UsedRange.Rows.Count

Application.ScreenUpdating = False

For r = DernièreLigne To 1 Step -1

If Application.WorksheetFunction.CountA(Rows(r)) = 0 Then

i = i + 1

End If

Next r

MsgBox "Il y a " & i - 1 & " lignes vides"

End Sub



jpleroisse
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 110 internautes nous ont dit merci ce mois-ci

Messages postés
163
Date d'inscription
mercredi 22 octobre 2003
Statut
Membre
Dernière intervention
3 février 2012

Merci bien de ta reponse

Merci. ++ Nexus

Chaque problème a sa solution. S'il n'y a pas de solution c'est qu'il n'y a pas de problème.