Microsoft 365 Incrementer automatiquement

[bruderez]

bonjour
J'aurais besoin de connaître la formule pour incrémenter automatiquement une feuille a l'aide de toujours la même cellule sur la feuil1 mais les valeurs changent à chaque fois
Je vous joint un fichier
Cordialement

 

[Compte Supprimé 979]

Bonjour Bruderez

Le moins que l'on puisse dire, c'est que vous ne vous êtes pas cassé la tête pour le fichier test 🤔

Et avec ça vous voulez que l'on puisse vous aider.... 😂

Perso, je n'ai rien compris à votre demande !

 

[bruderez]

je vous renvoie mon tableau . Ce que je veux c'est pouvoir mettre une quantité correspondant a l'article recherché E2 sous la case quantité J2 et qu'elle s'incremente automatiquement dans la colonne quantité et ainsi de suite .

 

[bruderez]

Fichier vide je vous renvoie le fichier

 

[soan]

Bonjour bruderez, Bruno,

ton fichier en retour ; formule en J2 :

=SI(E2="";"";SIERREUR(INDIRECT("M" & EQUIV(E2;L:L;0));"")) ➯ 5

soan

 

[bruderez]

bonjour
merci pour le réponse mais ce que je recherche c'est pouvoir mettre une quantité en J2 correspondant a l article en E2 et que celle ci se retrouve dans la colonne M automatiquement que je puisse ensuite saisir une quantité en J2 pour une nouvel article sélectionné avant en E2 et ainsi de suite le principe c'est d'éviter de saisir directement dans la colonne M car mon fichier final contient près de 15000 articles .

 

[soan]

@bruderez

voici une autre version du fichier.

1) note que M10 est vide

2) en J2, saisis 5 ➯ en M10 : 5

3) avec la touche Suppression, efface le 5 de J2

➯ le 5 de M10 est effacé. 🙂

bien sûr, y'aura aucun changement si y'a pas de référence en E2 ;
idem si cette référence n'est pas trouvée en colonne L.

---

code VBA du module de "Feuil1" :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim cel As Range, réf$, qté%
  With Target.Cells(1)
    If .Address <> "$J$2" Then Exit Sub
    réf = [E2]: If réf = "" Then Exit Sub
    Set cel = Columns(12).Find(réf, , -4163, 1, 1)
    If cel Is Nothing Then Exit Sub
    qté = Val(.Value)
    Cells(cel.Row, 13) = IIf(qté = 0, "", qté)
  End With
End Sub

soan

 

[bruderez]

Merci
C'est exactement ce que j'attendais