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.
A voir également:
- Code vba
- Code ascii - Guide
- Code puk bloqué - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code activation windows 10 - Guide
- Scanner qr code pc - Guide
2 réponses
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
