Macro saisie obligatoire dans cellule si

Bonsoir,

J'ai besoin d'aide pour rendre obligatoire la saisie dans cellule (colonne E) si cellule d'avant dans colonne D est remplie (par liste de choix )- attention la cellule D peut être vide.

Il faut que celà puisse marcher sur toute la colonne E quelquesoit le numéro de cellule.

Avez vous une solution en macro ?

Merci

Bonsoir

Un debut de piste, qui n'oblige pas la sasisie dans la colonne E, mais qui positionne la sétion sur la cellule de la colonne E après modification de la cellule D

code macro à placer dans la Feuil1

Private Sub Worksheet_Change(ByVal Target As Range)
    x = Target.Column
    y = Target.Row
    If x = 4 And Cells(y, 4) <> "" Then
        Cells(y, 5).Select
    End If
End Sub

Cordialement

Merci Demub

la position dans la cellule est déjà très importante- merci

Il me faudrait au moins un message d'alerte "cellule E à saisir" et celà serait formidable

ou une obligation de saisir cette cellule

bonne journée

Bonjour,

A essayer

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Integer
Dim y As Integer
    x = Target.Column
    y = Target.Row
    If x = 4 And Cells(y, 4) <> "" Then
        MsgBox "veuillez completer la cellule E" & y
        Cells(y, 5).Select
    End If
End Sub

Amicalement

Bonjour

En complétant un peu le code de Demeb et celui de Dan

Je pense gérer le déplacement curseur

Public Old As Range

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Old Is Nothing Then Set Old = Target
  If Target.Column = 4 And Cells(Target.Row, 4) <> "" Then
    Application.EnableEvents = False
    Cells(Target.Row, 5).Select
    Set Old = ActiveCell
    Application.EnableEvents = True
  End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  If Old Is Nothing Then Set Old = Target
  If Old.Column = 5 And Old.Offset(0, -1) <> "" And Old = "" Then
    Application.EnableEvents = False
    Old.Select
    MsgBox "veuillez compléter la cellule E" & Old.Row
    Application.EnableEvents = True
  Else
    Set Old = Target
  End If
End Sub

Bonne journée

Bonsoir,

Merci à tous les trois pour ces réponses.

celà marche super.

Encore merci et bonne soirée