Pas de remplissage si deja une valeur dans la ligne

[julienb25]

Bonjour à tous,
J'aimerais trouver une macro qui ne m'autorise pas a remplir les cellules si une des cellules de la ligne est déja remplie.
En gros j'ai 5 colonnes, et je voudrais pouvoir mettre une seule valeur par ligne...
exemple:
Si colonne A=1 alors on ne peut pas entrer de valeurs dans les autres ( et cela pour toutes les colonnes)

 

[Staple1600]

Re : Pas de remplissage si deja une valeur dans la ligne

Bonjour


A mettre dans le code de la feuille
(Clic-droit-> Visualiser le code)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then Exit Sub
If IsEmpty(Target.Offset(, -1)) Then
'Debug.Print Target.Value
Else
Target.ClearContents
End If
End Sub

 

[julienb25]

Re : Pas de remplissage si deja une valeur dans la ligne

Merci de ta réponse aussi rapide...
cependant ça ne marche pas comme je voudrais. Cela supprime seulement la colonne de droite.

Dans le fichier que je t'ai joint:
je voudrais, en plus des macros déjà existantes, pouvoir interdire de mettre plusieurs "1" dans les colonnes en jaunes (PC, carte, BOM, meca et divers)