Simplifier VBA (procedure too longer)

Le 15/07/2014 à 10:45

Bonjour, est-il possible de simplifier ce VBA:

Range("AP12").Select

ActiveCell.FormulaR1C1 = "=SUMPRODUCT((designby=R[-1]C)*(C4="""")*1)"

Range("AQ12").Select

ActiveCell.FormulaR1C1 = "=SUMPRODUCT((designby=R[-1]C)*(C4="""")*1)"

Range("AR12").Select

ActiveCell.FormulaR1C1 = "=SUMPRODUCT((designby=R[-1]C)*(C4="""")*1)"

Range("AS12").Select

ActiveCell.FormulaR1C1 = "=SUMPRODUCT((designby=R[-1]C)*(C4="""")*1)"

Range("AT12").Select

ActiveCell.FormulaR1C1 = "=SUMPRODUCT((designby=R[-1]C)*(C4="""")*1)"

Range("AU12").Select

ActiveCell.FormulaR1C1 = "=SUMPRODUCT((designby=R[-1]C)*(C4="""")*1)"

Range("AP13").Select

ActiveCell.FormulaR1C1 = "=SUMPRODUCT((designby=R[-2]C)*(C5="""")*1)"

Range("AQ13").Select

ActiveCell.FormulaR1C1 = "=SUMPRODUCT((designby=R[-2]C)*(C5="""")*1)"

Range("AR13").Select

ActiveCell.FormulaR1C1 = "=SUMPRODUCT((designby=R[-2]C)*(C5="""")*1)"

Range("AS13").Select

ActiveCell.FormulaR1C1 = "=SUMPRODUCT((designby=R[-2]C)*(C5="""")*1)"

Range("AT13").Select

ActiveCell.FormulaR1C1 = "=SUMPRODUCT((designby=R[-2]C)*(C5="""")*1)"

Range("AU13").Select

ActiveCell.FormulaR1C1 = "=SUMPRODUCT((designby=R[-2]C)*(C5="""")*1)"

Pour info, designby est le range d'une colonne.

Merci de votre aide

Binne journée

Le 15/07/2014 à 11:02

Bonjour

Avec SOMMEPROD je ne peux que te conseiller de bien déterminer les plages au lieu de faire appel à des colonnes entières

Exemple :

designby =Feuil1!$A$6:$A$100

PlageD =Feuil1!$D$6:$D$100

PlageE =Feuil1!$E$6:$E$100

Range("AP12:AU12").FormulaR1C1 = "=SUMPRODUCT((designby=R[-1]C)*(PlageD="""")*1)"
Range("AP13:AU13").FormulaR1C1 = "=SUMPRODUCT((designby=R[-1]C)*(PlageE="""")*1)"

Amicalement

Nad

Le 15/07/2014 à 14:51
Nad a écrit :

Bonjour

Avec SOMMEPROD je ne peux que te conseiller de bien déterminer les plages au lieu de faire appel à des colonnes entières

Exemple :

designby =Feuil1!$A$6:$A$100

PlageD =Feuil1!$D$6:$D$100

PlageE =Feuil1!$E$6:$E$100

Range("AP12:AU12").FormulaR1C1 = "=SUMPRODUCT((designby=R[-1]C)*(PlageD="""")*1)"
Range("AP13:AU13").FormulaR1C1 = "=SUMPRODUCT((designby=R[-2]C)*(PlageE="""")*1)"

Amicalement

Nad

Parfait, merci !

Rechercher des sujets similaires à "simplifier vba procedure too longer"