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
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