Effacement dans la colonne A

bonjour à toutes et à tous

je souhaiterai , dans un fichier excel allant de A500 à S500 , une formule permettant lorsque la ligne R 'a partir de la ligne 11' est renseignée par une date 01/01/2014 je voudrais que la validation de la cellule efface sur la même ligne la colonne A (compteur)

je joints un exemple de ma demande

en vous remerciant par avance

Bonjour

Code de Feuille

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("R11:R500")) Is Nothing Then
Range("A" & Target.Row).ClearContents
End If
End Sub

Cordialement

Bonjour,

=SI(NON(ESTVIDE(R11));"";MAX(DECALER($A$10;0;0;LIGNE()-10;1))+1)

bonsoir

merci pour ta réponse

mais par rapport à l'exemple donné , je n'arrive pas à placer ton code

pourrais tu m'aider en ce sens

bien cordialement

Bonjour

J'ai ajouté un test de saisie de date

Cordialement

bonjour amadéus

effectivement cela marche avec cette feuille

par contre je cherche à inserer ce code dans une autre feuille qui a déjà la fonction

Private Sub Worksheet_Change(ByVal Target As Range)

Dim x As String, y As String, i As Integer

Application.EnableEvents = False

On Error Resume Next

If Not Intersect(Target, Range("B11:B" & Range("B" & Rows.Count).End(xlUp).Row)) Is Nothing Then

x = UCase(Mid(Target.Value, 1, InStr(1, Target.Value, " ") + 1)) & LCase(Mid(Target.Value, InStr(1, Target.Value, " ") + 2, Len(Target.Value) - InStr(1, Target.Value, " ") + 1))

Target.Value = x

Range("A11:S" & Range("B" & Rows.Count).End(xlUp).Row).Sort key1:=Range("B11"), header:=xlYes

End If

For i = 11 To Range("B" & Rows.Count).End(xlUp).Row

Range("A" & i).Value = i - 10

Next i

y = Range("B11:B" & Range("B" & Rows.Count).End(xlUp).Row).Find(x).Address

Range(y).Select

Application.EnableEvents = True

Dim plage As Range

Dim lig As Byte

With Sheets("Feuil1")

i = 19

While i < 50 'Cells(5, i) <> "" And

lig = i

Set plage = .Range(Cells(lig, 2), Cells(lig, 5))

Select Case .Range("S11" & i).Value

Case Is = "Sandbox"

plage.Interior.ColorIndex = 19 'Jaune pâle pour "En attente"

Case Is = "Delivery"

plage.Interior.ColorIndex = 27 'Jaune foncé pour "Déclinée"

Case Is = "Factory"

plage.Interior.ColorIndex = 3 'Rouge pour "Perdue"

Case Else

plage.Interior.ColorIndex = -4142 ' enlève la couleur

End Select

i = i + 1

Wend

End With

End Sub

je n'arrive pas inserer cet code

bref en colonne R les cellules sont formatées en personnalisé 0#"/"0#"/"#### pour n'entre que les chiffres

si tu as une solution

en te remerciant par avance

ok c'est bon

c'est fait merci