Tableau inventaire

Bonsoir

Poste ton fichier sur cjoint.com, copie le lien créé et reviens le coller ici

Cdlmnt
Via

Bonjour

Voici le fichier : https://www.cjoint.com/c/JFkrSatCLn2

Dans l'onglet recherche, il y a 2 lignes (une grise et une verte). A leurs gauche un bouton qui ferai que je puisse modifier la quantité (en C11 ou C12) uniquement de cette ligne sans modifier l'autre, en mettant la valeur voulue soit en G11 ou en G12,
Dans l'onglet Golfech, les lignes en jaune sont justement des doublons qui peuvent servir d'exemple. Sachant que je vais rajouter d'autre lignes( Références) qui auront aussi des doublons, le tableau va s'étendre au delà des 1500 lignes.
Désolé mais j'espère être clair dans mes explications.
Merci

Cordialement

Agino44

Re,

https://mon-partage.fr/f/sAEHZru7/

Les 2 boutons sont opérationnels

Attention ne traite pas des doublons comme ceux des lignes 6 et 7
La macro s'arrête ) la 1ere valeur trouvée et remplace à cette ligne (ici ce serait la 6)
Mais à mon sens si la BDD est bien faite il ne devrait pas y avoir de tels doublons mais une seule ligne avec quantité 3

Cdmnt
Via

Bonsoir,

Excuse moi mais après avoir téléchargé le fichier, celui-ci ne s'ouvre pas.

Merci

Cordialement
Agino44

Je viens de la retelcharger et il s'ouvre parfaitement
Voici les codes des macros à mettre dans le worksheet de la feuille

Sub MAJ_Golfech()
valeur = Cells(11, 7)
ref = Cells(7, 3)
With Sheets("Golfech")
ligne = .Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
For n = 1 To ligne
If .Range("E" & n) = "Golfech" And .Range("A" & n) = ref Then .Cells(n, 2) = valeur: MsgBox "MAJ effectuée"
Next
End With
End Sub

Sub MAJ_Saintloup()
valeur = Cells(12, 7)
ref = Cells(7, 3)
With Sheets("Golfech")
ligne = .Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
For n = 1 To ligne
If .Range("E" & n) = "Saint loup" And .Range("A" & n) = ref Then .Cells(n, 2) = valeur: MsgBox "MAJ effectuée"
Next
End With
End Sub

Bonsoir,

Super cela fonctionne très bien.
Je te remercie pour ton aide car moi je suis un novice en VBA.

Encore merci

Agino