Discussion :

[ohohoh]

Dans une macro excel,
Je cherche à copier une Formule1
dans la Première Colonne
De la case A1 à la case Ax ou x est la Formule2 définissant le numéro de ligne.

Merci d'avance au généreux solutionneur

[wakan]

Bonjour,
Je n'ai pas bien compris ce que tu voulez faire.
Je penses que tu n'est pas sur le bon forum.
tu auras plus de chance de réponse si tu poste sur le forum vba et non vb.net
A bientôt

[Wapi_gui]

Bonjour,

Sais-tu qu'il existe un forum Excel -vba... Tu pourrais aller faire un tour là-bas, il y a peut-être plus de gens qui pourront te répondre

[ohohoh]

Je repose ma question à tous les VB-istes.

Soit une Formule-VB nommée F1 (Formule Classique qui compte des lignes)
Soit une Formule-VB nommée F2 (Formule rendant un entier)

Je voudrais Copier (en vb !!!) la Formule F1 dans toutes les cellules de la première colonne jusqu'à la ligne F2

Comment procéder ?

J'offre un au premier qui me le dicte.

[ohohoh]

Formule1 F1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
ActiveCell.FormulaR1C1 = _
"=MAX(IFERROR(MATCH(""zz"",INDIRECT(ADDRESS(1,COLU MN()+3+1,4)):
INDIRECT(ADDRESS(1048576,COLUMN()+3+1,4))),0),
IFERROR(MATCH(9^9,INDIRECT(ADDRESS(1,COLUMN()+3+1,4))
:INDIRECT(ADDRESS(1048576,COLUMN()+3+1,4))),0))"

Formule2 F2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
ActiveCell.FormulaR1C1 = _
:"=MAX(IFERROR(MATCH(""zz"",INDIRECT(ADDRESS(ROW() ,COLUMN()+3+1,4))
:INDIRECT(ADDRESS(ROW(),1048576,4))),0),IFERROR(MA TCH(9^9,
INDIRECT(ADDRESS(ROW(),COLUMN()+3+1,4))
:INDIRECT(ADDRESS(ROW(),16384,4))),0))"

On a rien sans rien

[aalex_38]

Pourquoi pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A1:F2").Formula = Range("A1").Formula

ou bien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A1").AutoFill Destination:=Range("A1:F2"), Type:=xlFillDefault

ou bien même :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Range("A1").Copy
Range("A1:F2").PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False