Discussion :

[Merryy]

Bonjour tout le monde,

J'ai un petit soucis avec mon petit projet
j'ai 2 feuilles excel , la première feuille budget ( contient une cellule avec un montant( A3 par exemple) ( valeur numérique)
le deuxième feuille commande contient une fiche de saisie ou l'utilisateur passe sa commande , mais pour arriver à la fin de la fiche , il doit tester le montant avec le bouton valider.

donc, en gros ,quand il clique valider : la fonction teste les 2 montants ( si le montant de la commande (feuille commande) est inferieur au montant existant (budget), on affiche un msgbox "vous pouvez continuez" , sinon : un message s'affiche : "pas de montant , vous ne pouvez pas passer cette commande" et la il ne peut pas continuer sa commande pas seulement à cause du message affiché ,mais il ne peut pas écrire dans les cellules (desactivés).

J'espère que c'est un peu clair

[Thautheme]

Bonjour Merryy, bonjour le forum,

Une "solution" :
• Dans le composant Thisworkbook ce bout de code qui limite le déplacement dans l'onglet Commande à l'unique cellule A1 (tu adapteras...)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_Open()
Sheets("Commande").ScrollArea = "A1"
End Sub

L'utilisateur ne peut donc que saisir une valeur dans A1...

• Un CommandButton (issue de la barre d'outils Contrôles ActiveX) qui a pour code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub CommandButton1_Click()
If Sheets("Commande").Range("A1").Value <= Sheets("Budget").Range("A3") Then
    MsgBox "Vous pouvez continuer !"
    Sheets("Commande").ScrollArea = ""
Else
    MsgBox "Pas de montant, vous ne pouvez pas passer cette commande."
End If
End Sub

La seule alternative qui lui reste après avoir taper le montant, c'est de cliquer sur le bouton... Si le montant est inférieur alors le reste de l'onglet se libère sinon seule A1 peut être modifiée.

• Et si tu veux verrouiller un peu plus, car l'utilisateur pourrait taper une petite valeur pour libérer le déplacement puis la remplacer par une qui dépasse le budget, tu rajoutes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Sheets("Commande").Range("A1").Value > Sheets("Budget").Range("A3") Then
    MsgBox "Pas de montant, vous ne pouvez pas passer cette commande."
    Me.ScrollArea = "A1"
End If
End Sub

Toutefois il est bien clair qu'un utilisateur azerty (heu pardon, averti) fera sauter facilement cette protection...

[Merryy]

Merci Beaucoup, exactement ce qu'il fallait