cellules cachées

knaekes · 19 Octobre 2012

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.

Code:

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

merci pour votre aide

mikachu · 19 Octobre 2012

Re : cellules cachées

Bonjour,

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

VB:

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

cellules cachées

knaekes

XLDnaute Occasionnel

mikachu

XLDnaute Occasionnel

Discussions similaires

cellules cachées

knaekes

XLDnaute Occasionnel

mikachu

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency