cellule de droite est vide

[casper]

Bonjour,

pourriez-vous m'aider pour le test suivant en vba.

SI la cellule de droite est vide, descendre d'une cellule.

MERCI

un néophyte

 

[Hellboy]

Bonjour casper

Essaie ceci:

Public Sub Déplacement()
        If ActiveCell.Value = Empty Then
            ActiveCell.Offset(1, 0).Select
        End If
End Sub

 

[casper]

Ceci test la cellule active et non la cellule de droite si je ne me trompe pas ?

Je voudrais tester la cellule située à droite.

ex. je suis en c1. Si d1 est vide je veux aller en c2.

Merci

 

[Hellboy]

re

désolé, mal lu !!

Public Sub Déplacement()
        With ActiveCell
                If Offset(0, 1).Value = Empty Then
                    .Offset(1, 0).Select
                End If
        End With
End Sub

 

[casper]

Grand MERCI