Réduire le nombre de formule dans un fichier

C

Compte Supprimé 979

Guest

• 6 Mai 2012

• #2

Re : Réduire le nombre de formule dans un fichier

Salut Machin

C'est une chose à faire en VBA
Voici le code

Code:

Sub Traitement()
  Dim Col As Integer, ColD As Integer, Dlig As Long, Lig As Long
  Dim Val1 As Byte, Val2 As Byte, Val3 As Byte, vResult As Integer
  Dim MyFMat As String, LigF As Long
  ' Récupérer le numéro de la denière ligne remplie
  Dlig = Range("A" & Rows.Count).End(xlUp).Row
  ' Pour chaque ligne
  For Lig = 5 To Dlig
    ' 1ère oclonne de destination
    ColD = Range("AG1").Column
    ' Pour chaque colonne des données d'entrée
    For Col = 1 To Range("AE1").Column - 2
      ' Récupérer les différente valeurs
      Val1 = Cells(Lig, Col): Val2 = Cells(Lig, Col + 1): Val3 = Cells(Lig, Col + 2)
      ' Créer la formule matricielle
      MyFMat = "SUMPRODUCT((AA22:AA29=" & Val1 & ")*(AB22:AB29=" & Val2 & ")*(AC22:AC29=" & Val3 & ")*ROW(AE22:AE29))"
      LigF = 0: LigF = Application.Evaluate(MyFMat)
      vResult = Range("AE" & LigF)
      Cells(Lig, ColD).Value = vResult
      ColD = ColD + 1
      ' Evaleur la formule matricielle
    Next Col
  Next Lig
End Sub

Avec fichier joint

A+

 

Pièces jointes

• Machin_ReductionNbFormule.xls

  60.5 KB · Affichages: 42

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 6 Mai 2012

• #3

Re : Réduire le nombre de formule dans un fichier

Bonjour à tous,
Salut Nono,

Peux-tu essayer en AG5 et à droite et vers le bas :

=RECHERCHEV(A5*100+B5*10+C5;$Z$22:$AE$29;6;0)

Cliquez pour agrandir...

Après avoir rajouté en Z22 et vers le bas :

=AA22*100+AB22*10+AC22

Cliquez pour agrandir...

A + à tous

 

Pièces jointes

• JC Formule plus courte.xls

  45.5 KB · Affichages: 36

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 6 Mai 2012

• #4

Re : Réduire le nombre de formule dans un fichier

Bonjour à tous,
Sinon la formule peut s'écrire beaucoup plus court :

Code:

=INDEX($AE$22:$AE$29;4*A5+2*B5+C5+1)

Cordialement.

 

Vote positif 0 Vote négatif

M

machin

XLDnaute Nouveau

• 6 Mai 2012

• #5

Re : Réduire le nombre de formule dans un fichier

Bonjour,

Un grand merci Bruno, JCGL, et Draneb .
Je vais essayer de comprendre vos propositions
Je reviens si besoin

Cordialement

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 6 Mai 2012

• #6

Re : Réduire le nombre de formule dans un fichier

Re tous

Hey les gars, un bon moyen de réduire le nombre de formules ...
c'est de ne plus en mettre du tout ... comme j'ai fais

 

Pièces jointes

• mouarf3.png

  946 bytes · Affichages: 72
• mouarf3.png

  946 bytes · Affichages: 77

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

• 6 Mai 2012

• #7

Re : Réduire le nombre de formule dans un fichier

Bonjour.

Une formule plus simple, en attendant mieux :
En AG5 à recopier en bas et à droite :

=DECALER($AE$22;BINDEC(A5&B5&C5);0)

Cliquez pour agrandir...

Ou, sans utiliser la table

=DECALER($B$1;0;BINDEC(A5&B5&C5))

Cliquez pour agrandir...

Edit : Bonjour à tous. Un peu en retard, moi ! Faudra que je pense à rafraîchir... Un jour

 

Dernière édition: 6 Mai 2012

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 6 Mai 2012

• #8

Re : Réduire le nombre de formule dans un fichier

Bonjour à tous

Bon, puisque je l'ai fait, je propose ma version avec retard !

Cordialement à tous

 

Pièces jointes

• Copie de Classeur2.xls

  44 KB · Affichages: 45
• Copie de Classeur2.xls

  44 KB · Affichages: 51
• Copie de Classeur2.xls

  44 KB · Affichages: 50

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 6 Mai 2012

• #9

Re : Réduire le nombre de formule dans un fichier

Salut Néné

C'est ça de profiter du soleil sur sa terrasse en regardant la mer

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 6 Mai 2012

• #10

Re : Réduire le nombre de formule dans un fichier

@bruno
C,est exact,je sirotais la boisson provençale et j,ai donc été retarde par le bruit des cigales.

Bon après-midi

À+

 

Vote positif 0 Vote négatif

M

machin

XLDnaute Nouveau

• 6 Mai 2012

• #11

Re : Réduire le nombre de formule dans un fichier

Re Bonjour,

Merci a tous pour la rapidité et qualité de vos réponses

Cordialement

 

Vote positif 0 Vote négatif