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

Messages postés
163
Date d'inscription
mercredi 22 octobre 2003
Dernière intervention
3 février 2012
- 7 juil. 2005 à 16:08 - Dernière réponse :
Messages postés
163
Date d'inscription
mercredi 22 octobre 2003
Dernière intervention
3 février 2012
- 7 juil. 2005 à 17:53
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.
Afficher la suite 

2 réponses

Meilleure réponse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Dernière intervention
11 mars 2006
- 7 juil. 2005 à 17:21
3
Merci
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

Merci jpleroisse 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 90 internautes ce mois-ci

Messages postés
163
Date d'inscription
mercredi 22 octobre 2003
Dernière intervention
3 février 2012
- 7 juil. 2005 à 17:53
0
Merci
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.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.