bonjour a tous, je tourne en rond dans la recherche d'une formule, qui recherche la première ligne vide de "B6 a B155" et imprime la sélection de la Macro . de "B6 a AK155"
merci de votre aide
Cordialement
Sub impressionfintournoi()
' bouton 210
Dim Plage As Variant
''''''''''''''recherche ligne B6 a B155 vide''''' ''''''''''''''''
With Sheets("Tableau Tournante ")
Set Plage = Range("b6:b155" & Cells(Rows.Count, 1).End(xlUp).Row)
Plage.SpecialCells(xlCellTypeBlanks).Cells(1, 1).Select
End With
'''''''''''''''''''''''''''''' jusque là c'est bon''''''''''''''''''''''''''''''''''
' et a partir de là toutes les formules essayé ne fonctionne pas
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Set Plage = Range("b6:ak155") ' LA PLAGE DE L' IMPRESSION a réaliser
For Each o In Plage
If o.Value = "0" Then
o.EntireRow.Hidden = True
End If
Next
end sub