Bonjour,
Je souhaite selectionner les lignes non vides d'une plage nommée 'Prov' pour les copier ensuite.
le code suivant me permet de masquer les lignes dont le total est 0 mais masque aussi les lignes vides que je souhaite conserver.
Sub masque_0()
For Each ligne In ActiveSheet.Range('Prov').Rows
If Application.WorksheetFunction.Sum(ligne) = 0 Then
ligne.EntireRow.Hidden = True
End If
Next
'
Application.Goto Reference:='Prov'
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Range('T50').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks :=False, Transpose:=False
End Sub
est-ce que qn à une idée?
Merci beaucoup
TED