XL 2013 Boucle coller formule (copypaste)

[VBA_DEAD]

Bonjour
j`espere que vous allez bien.
j`essaie de faire une boucle pour copier -coller une formule que j`ai defini ds une table formula.
J`ai des donnees ds ma feuille Data ave des produits ds la colonne C (produit 1, 2 ,3 ...)
je veux coller la formula definie ds la feuille Formula selon qu`il s`agisse du Produit 1, 2, 3...
j`ai bien mieux explique ds mon fichier joint.

Pouvez vous m`aider? Je suis un peu bloque
je vous remercie

VBA_DEAD

 

[sousou]

bonjour
Voici un exemple de ce que tu peux faire à condition que les nom du produit soient identiques dans les deux feuille!
'Boucle sur toute les valeurs formula
Sub copieformule()
With Sheets("data")
Set premier = .Cells(2, 3)
n = 0
While premier.Offset(n, 0) <> ""
Set lformule = Sheets("formula").Columns(2).Find(premier.Offset(n, 0))
If Not lformule Is Nothing Then
premier.Offset(n, 9).Formula = lformule.Offset(0, 9).FormulaR1C1
Else
premier.Offset(n, 9) = ""
End If
n = n + 1
Wend
End With
End Sub

 

[VBA_DEAD]

Bonjour Sousou,
ton surnom, c`est parce que tu as plein de sous?

Merci pour ton aide. C`est exactement ce que je charchais a faire! C`est parfait.
Je te remercie et te souhaite un bon wee end.
VBA_DEAD

 

[VBA_DEAD]

Bonjour Sousou,
je te remercie pour ton aide.
C`est exactement ce que je voulais faire. C`est super!
ca va me faire gagner pas mal de tps!

je te souhaite un bon WE.
VBA_DEAD

 

[sousou]

Non, c'est parce que j'en cherche! Si tu as des idées?

 

[VBA_DEAD]

Bonsoir, petite question supplementaire. Si j`ai des formula avec Ctrl+Shift +Entree, comment puis je lui dire de copier la formule est de faire Ctrl+Shift +Entree?
Merci
VBA_DEAD

 

[sousou]

Pas trouver comment tester si une formule est matricielle.
Mais FormulaArray te permet de rendre une formule matricielle.
Soit quelqu'un à une idée soit tu ajoutes une info qui te dira que la formule est matricielle et alors tu utilise formulaarray?
A suivre

 

[VBA_DEAD]

bonsoir,
merci quand meme. tu as resolu 95% de mon probleme!
Bonne soiree

Xavier

 

[sousou]

La voilà la solution


Sub copieformule()
With Sheets("data")
Set premier = .Cells(2, 3)
n = 0
While premier.Offset(n, 0) <> ""
Set lformule = Sheets("formula").Columns(2).Find(premier.Offset(n, 0))
If Not lformule Is Nothing Then
If lformule.Offset(0, 9).HasArray Then
premier.Offset(n, 9).FormulaArray = lformule.Offset(0, 9).FormulaR1C1
Else
premier.Offset(n, 9).Formula = lformule.Offset(0, 9).FormulaR1C1
End If
Else
premier.Offset(n, 9) = ""
End If
n = n + 1
Wend

 

[VBA_DEAD]

Bonsoir,
je te remercie
je vais tester cela ce soir.
C`est vraiment sympa.

Bonne nuit!
VBA_DEAD