Cellule vide

bonjour,

j ai un petit probleme avec mon code

If ActiveCell.Offset(0, 0).Value = "" Then
ActiveCell.Offset(0, 0).Select

 With ActiveCell
    ligne = .Row
    colonne = .Column
  End With

  Cells(ligne + 1, colonne + 0).Select

  Range("C1") = "ok2"
Else

 With ActiveCell
    ligne = .Row
    colonne = .Column
  End With

  Cells(1, colonne + 3).Select
 End If

ce qu'il fait c est que si la cellule est vide il va sur celle du dessous, et si elle est "non vide" il va 3 colonne plus loin...

sauf que j ai besoin qu'il fasse l 'inverse

donc comment écrire

If ActiveCell.Offset(0, 0).Value = "" Then

autrement?

j ai essayer

If ActiveCell.Offset(0, 0).Value = <> "" Then

par exemple mais ca ne fonctionne pas je joins un petit fichier avec

Bonjour

avec ce code ça a l'air de marcher, mais je ne comprends pas tout

Private Sub CommandButton1_Click()

If ActiveCell.Value = 0 Then

 With ActiveCell
    ligne = .Row
    colonne = .Column
  End With

  Cells(ligne + 1, colonne).Select

  Range("C1") = "ok2"

Else

 With ActiveCell
    ligne = .Row
    colonne = .Column
  End With

  Cells(1, colonne + 3).Select
 End If
End Sub

Cordialement

FINDRH

merci pour ta reponse cela ne marchais pas avec le 0 mais il suffisais d'inverser le if else....

If ActiveCell.Offset(0, 0).Value = "" Then
ActiveCell.Offset(0, 0).Select
 With ActiveCell
    ligne = .Row
    colonne = .Column
  End With

  Cells(4, colonne + 3).Select

Else

   With ActiveCell
    ligne = .Row
    colonne = .Column
  End With

  Cells(ligne + 1, colonne + 0).Select

Cells(1, 7).End(xlDown).Offset(1, 0).Value = "ZHCI"
 End If

mais ta reponse m y a fait penser...

Bonjour,

Ton code peut se résumer ainsi et on pourrait encore se passer de la variable ACell .

Mais, je ne comprends pas l'objectif.

Cdlt.

Private Sub CommandButton1_Click()
Dim ACell As Range
    Set ACell = ActiveCell
    If IsEmpty(ACell) Then
        Cells(3) = "ok2"
        ACell.Offset(1, 0).Select
    Else
        Cells(1, ACell.Column + 3).Select
    End If
End Sub

merci