Code vba
gerardo
-
Maurice -
Maurice -
Bonjour Mr
je cherche des codes vba sous excel qui m'aideront à effectuer les tâches suivantes:
-copier les éléments non vide de la colonne B et les mettre à la suite des éléments non vide de la colonne A
-copier les éléments non vide de la colonne C et les mettre à la suite des éléments non vide de la colonne A (en prenant en compte la modification de la colonne A)
-copier les éléments non vide de la colonne D et les mettre à la suite des éléments non vide de la colonne A (en prenant en compte la modification de la colonne A)
-Ainsi de suite pour les autres colonnes E,F,G,H,.....................,Z.
Cordialement,
SINGO Gérard.
je cherche des codes vba sous excel qui m'aideront à effectuer les tâches suivantes:
-copier les éléments non vide de la colonne B et les mettre à la suite des éléments non vide de la colonne A
-copier les éléments non vide de la colonne C et les mettre à la suite des éléments non vide de la colonne A (en prenant en compte la modification de la colonne A)
-copier les éléments non vide de la colonne D et les mettre à la suite des éléments non vide de la colonne A (en prenant en compte la modification de la colonne A)
-Ainsi de suite pour les autres colonnes E,F,G,H,.....................,Z.
Cordialement,
SINGO Gérard.
2 réponses
-
Bonjour,
Ca sent les devoirs scolaires....
-
Bonjour
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
