XL 2013 BLOQUER CELLULES APRES SAISIE

Jacky67

XLDnaute Barbatruc

• 17 Octobre 2016

• #2

THIERRY35 à dit:

Bonjour,

je n'arrive pas à trouver la bonne formule avec la validation des données (est ce la bonne solution ?)
pour arriver à ce que je souhaiterai.

Ma problématique est la suivante :
pour chaque client il y a un choix de 4 couleurs de peinture, une fois la couleur choisie les 3 autres ne peuvent plus être sélectionnées et le curseur se positionne (si possible) sur la cellule correspondant aux prix du litre.
Ci-joint un extrait du ficher, et merci d'avance pour votre aide.

Cliquez pour agrandir...

Bonjour,
Essaye avec la validation de donnée==>formule

Code:

=NB($C4:$F4)=1

 

Pièces jointes

• modele.xlsx

  10.5 KB · Affichages: 55

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 17 Octobre 2016

• #3

Bonsoir
Un début de solution avec macro?
Une seule valeur peut être saisie.
Il faut voir si si c'est suffisant, cette solution permet de modifier les saisies....
Quant au prix par litre il est ou???

 

Pièces jointes

• peinture.xlsm

  16.7 KB · Affichages: 60

Vote positif 0 Vote négatif

T

THIERRY35

XLDnaute Occasionnel

• 18 Octobre 2016

• #4

Bonjour sousou et jacky67

merci pour vos réponses,
je vais retenir l'option macro de SOUSOU

je rajoute une mise en forme conditionnelle pour l'utilisateur, ça rend plus lisible sa saisie.
quant au prix par litre il est prévu en bout de chaque ligne (je l'avais oublié), le prix est à documenter pour un calcul du prix total
ci-joint le fichier modifié, je pensais utiliser le code Range pour positionner au bout de chaque ligne mais vu les codes utilisés dans ta macro ça ne me semble pas pertinent

merci pour ton aide sur ce dernier point.

 

Pièces jointes

• peinture.xlsm

  17.1 KB · Affichages: 52

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 18 Octobre 2016

• #5

Bonjour
Tu peux utiliser le code range sans difficulté, personnellement j'ai utilisé ceci:

Target.Parent.Cells(Target.Row, 8).Select

(tout tourne autour de la cellule modifiée)

 

Pièces jointes

• peinture.xlsm

  17.3 KB · Affichages: 57

Vote positif 0 Vote négatif

T

THIERRY35

XLDnaute Occasionnel

• 18 Octobre 2016

• #6

Merci pour la rapidité de ta réponse,
mais à l'usage il se pose un problème
si l'utilisateur saisit par erreur une autre donnée sur la même ligne ce serait plutôt la dernière saisie qui doit être annulée et non pas la première.
je ne maîtrise pas assez pour savoir comment inverser cet ordre dans la macro
en espérant être clair
Merci

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 18 Octobre 2016

• #7

Ca reprend ma première remarque faut il interdire la modification dès qu'une saisie à été faite?
J'y ai bien pensé (code de protection en commentaire), mais que fait tu si une l'opérateur à fait une erreur de saisie?
La première saisie doit-elle être figée ad vitam?

 

Vote positif 0 Vote négatif

T

THIERRY35

XLDnaute Occasionnel

• 18 Octobre 2016

• #8

non, la 1ère saisie peut être modifiée ou supprimée, dans ce dernier cas pour ressaisir sur une autre cellule de la même ligne s'il y a erreur de couleur par exemple.
j 'essaye également d'intégrer un code supplémentaire : une fois le prix du litre saisi, le curseur se positionne sur le numéro de client suivant qui se trouve en colonne A :
Target.Parent.Cells(Target.Row+1, 1).Select, mais du coup la macro tourne indéfiniment.
A voir si c'est possible (cherry on the cake) !
merci

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 18 Octobre 2016

• #9

re
Private Sub Worksheet_Change(ByVal Target As Range)
' si saisie du prix
If Target.Column = 8 Then
Target.Parent.Cells(Target.Row + 1, 1).Select
End If
Exit Sub
'Target.Parent.Unprotect ("")

Application.EnableEvents = False
If Target.Column > 2 And Target.Column < 7 Then
nb = Target
For n = 3 To 6
Target.Parent.Cells(Target.Row, n) = ""
'Target.Parent.Cells(Target.Row, n).Locked = True
Next

Target = nb
End If
Application.EnableEvents = True
Target.Parent.Cells(Target.Row, 8).Select
'Target.Parent.Protect ("")
End Sub

 

Vote positif 0 Vote négatif

T

THIERRY35

XLDnaute Occasionnel

• 18 Octobre 2016

• #10

je réinstalle surement mal la macro, car du coup ça ne fonctionne plus !
ci-joint le fichier en pj
y a t il un ordre dans la macro que je n'ai pas respecté ?
Merci

 

Pièces jointes

• peinture (6).xlsm

  15.7 KB · Affichages: 60

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 18 Octobre 2016

• #11

Désolé autant pour moi, il faut inverser l'exit sub et le end if

Private Sub Worksheet_Change(ByVal Target As Range)
' si saisie du prix
If Target.Column = 8 Then
Target.Parent.Cells(Target.Row + 1, 1).Select

Exit Sub
End If

 

Vote positif 0 Vote négatif

T

THIERRY35

XLDnaute Occasionnel

• 18 Octobre 2016

• #12

Merci,
une question encore
à quoi sert cette ligne de code rajoutée par rapport à la version précédente
'Target.Parent.Cells(Target.Row, n).Locked = True
car cela ne change pas le déroulement de la macro ?

 

Vote positif 0 Vote négatif