XL 2016 Adapter un code à mon fichier (RESOLU)

misteryann · Samedi à 14:26

Bonjour le Forum.

Une demande de plus sur les doublons sans doute mais j'ai cherché sans trouver
Je dois traiter des devis avec de nombreuses lignes qui comportent souvent des doublons.
J'ai "trouvé" un fichier de J. Boisgontier (RIP) mais je ne sais pas l'adapter.
1 - Il fonctionne mais pas pour additionner les quantités.
2 - Ensuite, il faudrait transférer les quantités vers les lignes correspondantes de la feuilles "BPU" (dans le fichier original, seule la colonne "Qauntité" est accessible)

Les commentaires derrière les lignes de code sont bienvenues pour comprendre le code.

Merci à toutes et tous.
Cordialement

sylvanu · Samedi à 14:37

Bonjour misteryann,
Juste une question stupide :
Vous voulez faire la synthèse de Test dans BPU ?
Mais au départ dans BPU les quantités et Prix sont vides ou alors faut il y ajouter les valeurs aux valeurs existantes ?
Si c'est vide pour quoi faire du VBA si j'ai bien compris ?
Peut être que de simples formules sont suffisantes :

VB:

Quantité :
=SOMME.SI.ENS(Test!D:D;Test!A:A;A4)
Prix :
=SOMME.SI.ENS(Test!F:F;Test!A:A;A4)

misteryann · Samedi à 14:48

Bonjour Sylvanu.
Le soucis c'est que je ne suis pas le seul à utiliser ce fichier et que certains risquent de supprimer la formule "=NB.SI(Test!A:A;A4)"
Du coup en VBA ils ne peuvent pas faire de c.......

Merci pour l'intérêt.

sylvanu · Samedi à 15:06

Re,
S'il n'y a que ça qui vous chagrine, testez cette PJ.
Lorsqu'on sélectionne la feuille BPU, en automatique, on y met les formules puis on fait un copier coller valeurs.

VB:

Sub Worksheet_Activate()
    Dim DL%
    DL = [A10000].End(xlUp).Row                                             ' Dernière ligne
    Range("E4:E" & DL).FormulaLocal = "=SOMME.SI.ENS(Test!D:D;Test!A:A;A4)" ' Formule en colonne E
    Range("F4:F" & DL).FormulaLocal = "=SOMME.SI.ENS(Test!F:F;Test!A:A;A4)" ' Formule en colonne F
    Range("E4:F" & DL) = Range("E4:F" & DL).Value                           ' Copier Coller valeurs
End Sub

NB: Cette macro marche si votre XL est en français. Si c'est en anglais, il faut reprendre les formules.

misteryann · Samedi à 15:23

Ok, super ! Merci.
En plus j'ai appris un nouveau truc.

Bonne journée.
Cordialement.

XL 2016 Adapter un code à mon fichier (RESOLU)

misteryann

XLDnaute Occasionnel

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

misteryann

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Pièces jointes

misteryann

XLDnaute Occasionnel

Discussions similaires