A voir également:
- Code vba
- Code asci - Guide
- Code puk bloqué - Guide
- Code telephone oublié - Guide
- Code activation windows 10 - Guide
- Code gta 4 ps4 - Guide
2 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 310
19 nov. 2014 à 10:59
19 nov. 2014 à 10:59
Bonjour,
Ca sent les devoirs scolaires....
Ca sent les devoirs scolaires....
Bonjour
tien si tu veux jouer
A+
Maurice
tien si tu veux jouer
Sub CopyLigne()
Application.ScreenUpdating = False
Feuil1.Select
Nlig = Range("A" & Rows.Count).End(xlUp).Row
For C = 2 To 7
For L = 2 To Nlig
If Cells(L, C).Value <> "" Then
Derlig = Feuil2.Range("A" & Rows.Count).End(xlUp).Row + 1
Rows(L).Copy
Feuil2.Range("A" & Derlig).PasteSpecial xlPasteValues
End If
Next
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
A+
Maurice