Copier une ligne et nombre de lignes VBA Excel
Résolu
Steph115
Messages postés
163
Date d'inscription
mercredi 22 octobre 2003
Statut
Membre
Dernière intervention
3 février 2012
-
7 juil. 2005 à 16:08
Steph115 Messages postés 163 Date d'inscription mercredi 22 octobre 2003 Statut Membre Dernière intervention 3 février 2012 - 7 juil. 2005 à 17:53
Steph115 Messages postés 163 Date d'inscription mercredi 22 octobre 2003 Statut Membre Dernière intervention 3 février 2012 - 7 juil. 2005 à 17:53
A voir également:
- Copier une ligne vba
- Vba dernière ligne ✓ - Forum Visual Basic 6
- Vba copier valeur cellule dans une autre feuille ✓ - Forum Visual Basic
- Vba copier coller dans une autre feuille ✓ - Forum Visual Basic 6
- Vba coller valeur cellule sur une autre cellule avec variable ✓ - Forum Visual Basic 6
- Dernière ligne non vide vba - Forum Visual Basic 6
2 réponses
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
7 juil. 2005 à 17:21
7 juil. 2005 à 17:21
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
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
