Microsoft 365 Incrementer automatiquement

bruderez

XLDnaute Nouveau
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
 

Pièces jointes

  • test.xlsx
    10.7 KB · Affichages: 24
C

Compte Supprimé 979

Guest
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

XLDnaute Nouveau
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 .
 

Pièces jointes

  • commande.zip
    22 bytes · Affichages: 3

bruderez

XLDnaute Nouveau
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

XLDnaute Barbatruc
Inactif
@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" :

VB:
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
 

Pièces jointes

  • commande1.xlsm
    414.3 KB · Affichages: 4

Discussions similaires