Macro pour plusieurs cellules

[Aimedjie]

Bonjour,

J'ai une macro qui, normalement, devrait copier une formule et la coller dans toutes les colonnes où il y a une cellule sélectionnée. Mon problème est que si je sélectionne plus d'une cellule, la macro ne s'effectue que pour la première plutôt que toutes les colonnes.

Voici ma macro :

Private Sub Bog()

'==========================================================================
'Coller les formules vierges dans la totalité des colonnes des cellules
'brunes sélectionnées.
'--------------------------------------------------------------------------
'ColonnePourcentageReinitialise : Cellules brunes sélectionnées pour coller les formules
' vierges.
'==========================================================================

Dim colonnePourcentageReinitialise As Range

For Each colonnePourcentageReinitialise In selection.Areas

Range(Cells(Range("HautMassesSimulation").Row, _
colonnePourcentageReinitialise.Column), _
Cells(Range("BasMassesSimulation").Row, _
colonnePourcentageReinitialise.Column)).FormulaR1C1 = _
Range(Cells(Range("HautMassesSimulation").Row, _
Range("DroiteSimulationTP").Column + 1), _
Cells(Range("BasMassesSimulation").Row, _
Range("DroiteSimulationTP").Column + 1)).FormulaR1C1

Next colonnePourcentageReinitialise

frmPourcentageReinitialise.hide

End Sub

Pouvez-vous m'aider?

 

[job75]

Re : Macro pour plusieurs cellules

Bonjour,

Fatiguante à comprendre votre macro.

Si ça peut vous aider, pour entrer la formule de la cellule A1 dans toutes les cellules de la plage C1:E10, il suffit d'écrire :

Range("C1:E10").FormulaR1C1 = Range("A1").FormulaR1C1

A+

 

[Aimedjie]

Re : Macro pour plusieurs cellules

Merci Job75,

Vous n'êtes pas loin de la solution. La seule chose, c'est que je ne veux pas que toute les formule de Range("C1:E10") égalent la formule Range("A1").FormulaR1C1. Je veux que C1=A1, D1=A1, E10=A10, I175=A175. Je veux que la ligne soit la même que la ou les cellules sélectionnées, mais je veux toujours la colonne A. Si je faisait une formule est serait ainsi :

C1=$A1.