Transposition de formule en VBA

[siocnarf]

Bonjour,

Je me heurte au problème suivant:

J'écris cette formule dans Excel:
=SI(SOMMEPROD(($B$1:$B1=$B2)*($G$1:$G1=$G2)*($B2<>"")*($C2=""))=0;"Unique";1)

En la transposant en VBA, j'obtiens:
"=IF(SUMPRODUCT((R1C2:R[-1]C2=RC2)*(R1C7:R[-1]C7=RC7)*(RC2<>"""")*(RC3=""""))=0,""Unique"",1)"

Workbooks(D_StrChiffrierDeBase).Activate
Sheets(1).Select 

h = "=IF(SUMPRODUCT((R1C2:R[-1]C2=RC2)*(R1C7:R[-1]C7=RC7)*(RC2<>"""")*(RC3=""""))=0,""Unique"",1)"

Application.ScreenUpdating = False
With Workbooks(D_StrChiffrierDeBase).Sheets(1).UsedRange
  .Columns(9).FormulaR1C1 = h 'Insère la formule f dans chaque cellule de la colonne I
End With
Application.ScreenUpdating = True

J'obtiens sur la ligne 1:
=SI(SOMMEPROD(($B$1:$B1048576=$B1)*($G$1:$G1048576=$G1)*($B1<>"")*($C1=""))=0;"Unique";1)
au lieu de
=SI(SOMMEPROD(($B$1:$B1=$B2)*($G$1:$G1=$G2)*($B2<>"")*($C2=""))=0;"Unique";1)

Mon classeur a 8 colonnes et 27000 lignes.

Mes questions:
1. Comment débuter ma formule sur la ligne 2 au lieu de la ligne 1 et donc poser la formule =SI(SOMMEPROD(($B$1:$B1=$B2)*($G$1:$G1=$G2)*($B2<>"")*($C2=""))=0;"Unique";1) sur la ligne 2?
2.Pourquoi mes coodonnées apparaissent incorrectement alors que c'est la même équation?

C'est quand même bizarre...

Merci,

François

 

[siocnarf]

Re : Transposition de formule en VBS

Bonjour,

J'ai trouvé ma réponse.
.Offset(1).Resize(.Rows.Count - 1).Columns(9).FormulaR1C1 = h

Avec cette correction, la première équation est sur la seconde ligne et les formules sont correctes. Mon hypothèse est que pour la ligne 1, effectuer un -1 fait "looper" excel vers la dernière ligne et que c'est cela qui pose problème.

Merci,

François

 

[siocnarf]

Re : Transposition de formule en VBS

Bonjour,

Je m'aperçois que c'est long. Le processus est très ralenti. Comment pourrais-je accélérer le calcul?

Merci,

François

 

[JCGL]

Re : Transposition de formule en VBS

Bonjour à tous,

Ce codage n'est pas du VBS mais VBA.
Dans la formule tu prends toute la colonne B.

Peux-tu essayer avec :

 "=IF(SUMPRODUCT((R1C2:R30000C2=RC2)*(R1C7:R30000C7=RC7)*(RC2<> """")*(RC3=""""))=0,""Unique"",1)"

A+ à tous

 

[siocnarf]

Re : Transposition de formule en VBS

Bonjour,

Je vous invite à suivre mon autre conversation sur le fil suivant: https://www.excel-downloads.com/threads/un-autre-probleme-de-traitement-dans-un-gros-fichier.223621/

Le problème reste entier puisque je dois évaluer ligne. Donc cette formule devra être recopier à chaque ligne.

Vous avez raison, c'est du VBA. J'ai fait une erreur.

Merci,

François

 

[JCGL]

Re : Transposition de formule en VBA

Bonjour à tous,

La formule est étirable vers le bas mais sans le reste du code, difficile de tenter de t'aider...

A+ à tous

 

[siocnarf]

Re : Transposition de formule en VBA

Bonjour,

Dans l'autre fil que je vous ai soumis, je vais plus loin dans la problématique et une bonne solution a été proposée.

Merci,

François