Macro

Il me reste un petit soucis,

ça ne fonctionne plus une fois que je dépasse les cellules en jaune dans le fichier joint.

Que faire ?

Merci d'avance

normal, je n'ai déverrouillé que cette plage
donc
1. déprotéger la feuille
2. déverrouiller la suite de la plage
2. re-protéger la feuille

bonne suite

Désolé mais je n'y arrive pas.
De plus quand j'enlève la protection de la feuille pour supprimer ce qui est saisi dans la colonne A, les cellules 7/8/9/10 ne fonctionne plus. ça me met erreur 1004.
Le fait que je sois en ECEL 2010 pose peut être problème ???
Merci

normal,
ajoutes cette ligne au code (qui te permet de ne pas déclencher la procedure si plus d'une cellule est sélectionnée)

Dim i As Long 
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("$A:$A")) Is Nothing Then

bonne suite

bonjour,

voici le code que j'ai sur ma feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("$A:$A")) Is Nothing Then
If Target = "" Then Exit Sub
i = Target.Row
Cells(i, 2).Value = Now 'Date fixée en colonne 2
ActiveSheet.Unprotect 'déproteger la feuille
Cells(i, 1).Locked = True 'verrouiller cellule saisie
Cells(i, 2).Locked = True 'verrouiller cellule date
ActiveSheet.Protect 'protéger la feuille
End If
End Sub

Que faut il que je rajoute pour que je puisse saisir en colonne 1 et 2 et que la date se mette en colonne 3 ?

Merci de votre aide.