cellules cachées

[knaekes]

Bonjour,

je souhaite que la macro ci-dessous prenne également en compte les cellules cachées.
Tel qu'elle est écrite la macro se limite aux cellules visibles.

Sub Macro1()
finhorizontale = Range("IV4").End(xlToLeft).Column
MsgBox (finhorizontale)
End Sub

merci pour votre aide

 

[mikachu]

Re : cellules cachées

Bonjour,

voici un petit code qui fait la même chose en tenant compte des cellules cachées:

Sub dercolonne()

For i = 256 To 1 Step -1
If Cells(4, i).Value <> "" Then
MsgBox Cells(4, i).Column
Exit For
End If
Next i

End Sub

mikachu

Edit: bonjour Jean-Marcel