XL 2021 Mise à jour en lot de certaines cellules d'un TS.

A

ALS35

XLDnaute Impliqué

• 25 Décembre 2024

• #2

Bonjour,
Tu fais une colonne supplémentaire avec cette formule :

VB:

=LET(p;RECHERCHEX([@[N° Seq]];Tbl_Prix[N° Objet];Tbl_Prix[Mnt espéré]);SI.NON.DISP(p;[@[Montant espéré]]))

et ensuite tu copies/colles ces valeurs dans ta colonne initiale.
Cordialement
Edit : plus simple:

VB:

=RECHERCHEX([@[N° Seq]];Tbl_Prix[N° Objet];Tbl_Prix[Mnt espéré];[@[Montant espéré]])

 

Dernière édition: 25 Décembre 2024

Vote positif 0 Vote négatif

jeff1494

XLDnaute Occasionnel

• 25 Décembre 2024

• #3

Bonsoir @ALS35 ;
En fait je me suis mal exprimé, dans tous les cas je note ta solution qui j'en suis sûr me servira dans un autre contexte.
En fait la feuille2 de mon fichier est juste là pour que les personnes qui veulent bien m'aider aient une idée de ce dont je parle.
En réel, j'ai un fichier qui ne contient que la Feuille1, et un listing manuscrit des prix à modifier.
Je peux avoir plusieurs dizaines, voir centaines de prix à modifier.

Je voudrai pouvoir faire ces mises à jour grâce à des (ou une) macro.
J'avais pensé passer par une listbox à sélection multiple, et c'est là que je ne sais pas comment finir l'opération.

Désolé @ALS35 si je me suis mal exprimé, et j'espère que tu ne m'en tiendra rigueur.
Bonnes fêtes à toi.

 

Vote positif 0 Vote négatif

A

ALS35

XLDnaute Impliqué

• 25 Décembre 2024

• #4

Re,
Non, pas de souci, mais je doute quand même que ta macro puise lire ton fichier manuscrit, alors tant qu'à faire de la saisie ...
Cordialement

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 26 Décembre 2024

• #5

Bonsoir.

VB:

Option Explicit
Sub MàJListe()
   Dim T(), ClnLst As Collection, L&, RngMtEsp As Range, TMvt(), M&
   T = [Tbl_Liste[N° Seq]].Value
   Set ClnLst = New Collection
   For L = 1 To UBound(T, 1)
      ClnLst.Add L, T(L, 1)
      Next L
   Set RngMtEsp = [Tbl_Liste[Montant espéré]]
   T = RngMtEsp.Value
   TMvt = [Tbl_Prix].Value
   For M = 1 To UBound(TMvt, 1)
      On Error Resume Next
      L = ClnLst(TMvt(M, 1))
      If Err Then
         MsgBox "Pas trouvé """ & TMvt(M, 1) & """ !", vbExclamation, "MàJListe"
      Else: T(L, 1) = TMvt(M, 2): End If
      On Error GoTo 0
      Next M
   RngMtEsp.Value = T
   End Sub

 

Dernière édition: 26 Décembre 2024

Vote positif 0 Vote négatif

jeff1494

XLDnaute Occasionnel

• 26 Décembre 2024

• #6

Bonjour à toutes et tous;
@ALS35 ; Non rassure toi, je n'espère pas que ma macro puisse lire un manuscrit (de mémoire même l'IA n'est pas encore prête).
Mais je pensais plus à une ListBox à sélection multiple, puis avec les sélectionnés mettre à jour les montants désirés juste en les saisissant.

@Dranreb ; Merci pour ton aide. Je vais voir à comprendre ce que tu me propose.

Bonne journée à vous.

 

Vote positif 0 Vote négatif

jeff1494

XLDnaute Occasionnel

• 26 Décembre 2024

• #7

Bien, à la lecture de la solution proposée par @Dranreb on met à jour la liste depuis la feuille contenant les nouveaux montants. Cette solution sera celle que j'emploierais si je n'arrive pas à suivre mon idée première à savoir une liste à sélection multiple.
Pourquoi je reste sur cette idée ? J'aurai bien une excuse, qui est d'être têtu comme une mule, mais pas sûr que cela suffise.

C'est simplement pour essayer d'apprendre encore un peu plus. Tout simplement.
En tous cas merci à lui pour son aide.

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 26 Décembre 2024

• #8

Bonjour,

jeff1494 à dit:

Quel serait selon vous le moyen le plus simple et le plus rapide pour faire ces mises à jour.

Cliquez pour agrandir...

Un UserForm avec deux champs de saisie (n° seq et Montant espéré) et un bouton de validation.

 

Vote positif 0 Vote négatif

jeff1494

XLDnaute Occasionnel

• 26 Décembre 2024

• #9

Bonjour @TooFatBoy ;
C'est ce à quoi j'avais tout d'abord pensé, mais vu le nombre de modifications à faire j'ai laissé cette idée de coté.
Je vais continuer à réfléchir. Merci à toi et bonne journée.

 

Vote positif 0 Vote négatif

AtTheOne

XLDnaute Accro

Supporter XLD

• 26 Décembre 2024

• #10

bonjour à toutes & à tous

jeff1494 à dit:

Non rassure toi, je n'espère pas que ma macro puisse lire un manuscrit (de mémoire même l'IA n'est pas encore prête).

Cliquez pour agrandir...

Non mais peut-être que l'OCR fournie sans doure avec ton imprimante multifonction peut digérer cette liste, ce serai déjà une saisie en moins !
À bientôt

EDIT : Mes essais avec mon écriture de cochon ne sont pas concluants !

Cliquez pour agrandir...

 

Dernière édition: 26 Décembre 2024

Vote positif 0 Vote négatif

jeff1494

XLDnaute Occasionnel

• 26 Décembre 2024

• #11

@AtTheOne ;
Bonjour, c'est vrai que je pourrais regarder cette solution. A voir ce que me permet mon imprimante.
Bonne journée à toi.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Décembre 2024

• #12

Bonjour jeff1494, le forum,

jeff1494 à dit:

@ALS35 ; Non rassure toi, je n'espère pas que ma macro puisse lire un manuscrit (de mémoire même l'IA n'est pas encore prête).

Cliquez pour agrandir...

On peut numériser un texte manuscrit depuis longtemps il me semble.

A+

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 26 Décembre 2024

• #13

jeff1494 à dit:

C'est ce à quoi j'avais tout d'abord pensé, mais vu le nombre de modifications à faire j'ai laissé cette idée de coté.

Cliquez pour agrandir...

C'est pourtant le plus simple (après l'OCR bien sûr), me semble-t-il.

 

Vote positif 0 Vote négatif