Désincrémenter une quantité au fil des saisie....VBA ou Formule.

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais votre aide, écriture VBA ou formule, concernant une façon de saisir des quantités par rapport à une quantité de départ...pas facile à expliquer....voir le fichier joint.

Je vous remercie votre aide et pour le temps que vous voudrez bien vouloir m'accorder.

Bien à vous,
Christian

 

[JHA]

Re : Désincrémenter une quantité au fil des saisie....VBA ou Formule.

Bonjour à tous,

Un essai en pièce jointe

JHA

 

[Christian0258]

Re : Désincrémenter une quantité au fil des saisie....VBA ou Formule.

Re, le forum, JHA,

Merci, JHA, pour ton beau boulot, qui fonctionne parfaitement.

Dis-moi, dans le commentaire de la qté restant à saisir, comment àjouter devant le chiffre, l'annotation "Reste à saisir :"

Encore un grand merci.
Bien à toi,
Christian

 

[JHA]

Re : Désincrémenter une quantité au fil des saisie....VBA ou Formule.

Re,

Clic droit sur l''onglet Feuil1, visualiser le code et changer cette ligne

Range("D" & Target.Row).AddComment CStr("Reste à saisir " & Range("E" & Target.Row).Value)

JHA

 

[gilbert_RGI]

Re : Désincrémenter une quantité au fil des saisie....VBA ou Formule.

Bonjour

un truc du genre vous conviendrait-il ?

 

[Christian0258]

Re : Désincrémenter une quantité au fil des saisie....VBA ou Formule.

Re, le forum, JHA, gilbert RGI,

Merci, JHA, pour tout le boulot et la petite modif demandée.

Gilbert, c'est super de chez super, je vais opter pour ta solution (mais je mets de côté celle de JHA).

Encore un grand merci à vous deux.

Bien amicalement,
Christian

 

[Christian0258]

Re : Désincrémenter une quantité au fil des saisie....VBA ou Formule.

Re, bonjour à tout le forum, JHA, gilbert

Je souhaiterais, à nouveau, votre intervention afin d'amener une tite modif sur un bout de code de JHA.
voir le fichier joint version2.

Merci pour votre aide si précieuse.

Bien à vous,
Christian

 

[JHA]

Re : Désincrémenter une quantité au fil des saisie....VBA ou Formule.

Bonjour à tous,

A essayer,

JHA

 

[Christian0258]

Re : Désincrémenter une quantité au fil des saisie....VBA ou Formule.

Re, le forum, JHA

Merci, JHA, pour ton intervention. Les modifacations que tu as apportées sont très judicieuses, c'est impeccable.

Je te remercie infiniment.

Bien à toi,
Christian

 

[mapomme]

Re : Désincrémenter une quantité au fil des saisie....VBA ou Formule.

Bonjour Christian0258,

Un essai sans code VBA mais avec des validations de données (par formules).

Pour la zone D5 à D16 :
=ET(SOMME($D$5:$D$16)<=$D$1;DECALER(D5;0;-1)<>"")

Pour la zone D17 à D28 :
=ET(SOMME($D$17:$D$28)<=$D$12;DECALER(D17;0;-1)<>"")

 

[Christian0258]

Re : Désincrémenter une quantité au fil des saisie....VBA ou Formule.

Re, le forum JHA, Gilbert et mapomme,

Merci également à mapomme pour sa solution très intéressante également.

J'ai à nouveau, et pour la dernière fois...je l'espère...lol, une tite amélioration à vous demander.
voir fichier...

Merci pour tout, à vous tous, vous êtes super.

Bien à vous,
Christian

 

[JHA]

Re : Désincrémenter une quantité au fil des saisie....VBA ou Formule.

Re,

Peut être comme ceci:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)[D5:D64].ClearComments
If Not Intersect([D5:D64], Target) Is Nothing Then
Range("D" & Target.Row).AddComment CStr(Range("E" & Target.Row).Value)
  For Each C In ActiveSheet.Comments
    C.Shape.TextFrame.AutoSize = True
    C.Shape.AutoShapeType = msoShapeRoundedRectangle
    C.Shape.Fill.ForeColor.SchemeColor = 63 'GRIS
    C.Shape.TextFrame.Characters.Font.ColorIndex = 4 'VERT
  Next C
  End If
[h5:h64].ClearComments
If Not Intersect([h5:h64], Target) Is Nothing Then
Range("h" & Target.Row).AddComment CStr(Range("i" & Target.Row).Value)
  For Each C In ActiveSheet.Comments
    C.Shape.TextFrame.AutoSize = True
    C.Shape.AutoShapeType = msoShapeRoundedRectangle
    C.Shape.Fill.ForeColor.SchemeColor = 63 'GRIS
    C.Shape.TextFrame.Characters.Font.ColorIndex = 4 'VERT
  Next C
  End If
End Sub

JHA

 

[Christian0258]

Re : Désincrémenter une quantité au fil des saisie....VBA ou Formule.

Re, le forum, JHA,

Que dire, JHA, ben MERCI et encore MERCI...trop fort

Merci aussi à Gilbert et mapomme.

Bien à vous,
Christian

 

[mapomme]

Re : Désincrémenter une quantité au fil des saisie....VBA ou Formule.

Bonjour Christian0258,

Le fichier adapté à deux séries de menus ou plus. Pour ajouter une série avec les validations, copier les colonnes d'un menu existant (colonnes B à E ou colonnes F à I) et les coller plus à droite puis éventuellement modifier le nombre de personnes pour le menu rajouté.

 

[job75]

Re : Désincrémenter une quantité au fil des saisie....VBA ou Formule.

Bonjour à tous,

Je n'avais pas vu ce fil, il est intéressant, voyez ceci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [D5:D16]) Is Nothing Or Target.Count > 1 Then Exit Sub
If Target(1, 0) = "" Then Exit Sub
Dim v
v = Val([D1]) - Application.Sum([D5:D16])
If Target = "" And v > 0 Then Target = v
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [D5:D16]) Is Nothing Or Target.Count > 1 Then Exit Sub
If Target = "" Then Exit Sub
Dim v
v = Val([D1]) - Application.Sum([D5:D16])
If Target(1, 0) = "" Then Target = "" Else _
If Val(Target) <= 0 Or v < 0 Then Target = "": Target.Select
End Sub

Il y a contrôle complet des valeurs entrées en D5: D16.

Fichier joint.

A+