maval
XLDnaute Barbatruc
Bonjour,
J'ai un code pour sélectionner et copier 1 colonne "F" non vide qui fonctionne très bien, j'aimerais lui mettre une deuxième colonne soit "E et F"
Voici mon code:
je vous remercie d'avance
Max
J'ai un code pour sélectionner et copier 1 colonne "F" non vide qui fonctionne très bien, j'aimerais lui mettre une deuxième colonne soit "E et F"
Voici mon code:
Code:
Sub selectionnerCopierTrans_list()
Dim Plg As Range, dlig&, Lig&: Application.ScreenUpdating = False
dlig = Cells(Rows.Count, 6).End(xlUp).Row: If dlig < 5 Then Exit Sub
Set Plg = Cells(dlig, 6)
For Lig = 5 To dlig - 1
If Not IsEmpty(Cells(Lig, 6)) Then Set Plg = Union(Plg, Cells(Lig, 6))
Next Lig
Plg.Select: Selection.Copy
End Sub
je vous remercie d'avance
Max