XL 2021 Cellule vide : sélectionner et atteindre

sousou à dit:

Bonjour
Regarde comme ceci,
à modifier ou pas avecles colonnes cahées

Private Sub Worksheet_SelectionChange(ByVal R As Range)
Application.EnableEvents = False
If Not Intersect(R, Range("h7:h30000")) Is Nothing And R.Count = 1 Then Exit Sub

With ActiveSheet
'MsgBox UsedRange.Rows.Count
drlg = .Cells(.UsedRange.Rows.Count, 5).End(xlUp).Row
Set zone = Union(.Range("g7:g" & drlg), .Range("s7:s" & drlg))
'zone.Select
For Each i In zone
If i = "" Then
MsgBox i.Address
i.Select
Application.EnableEvents = True
Exit Sub
End If

Next

End With
Application.EnableEvents = True
End Sub
' en cas d'arret de la macro en cour de route
Sub resetenents()
Application.EnableEvents = True
End Sub

Cliquez pour agrandir...