Créer une formule avec une macro

[bloomby]

Bonjour à tous,

Voici ma question,

Est-ce possible de créer une formule dans une colonne seulement lorsqu'il y a quelque chose d'inscrit dans la colonne.

La raison est que sinon le ficher devient beaucoup trop lourd:

Par exemple si dans la Sheet1 colonne A1 il y a des valeurs d'inscrit jusqu'à A10,

Alors dans la Sheet2 il faudrait que la cellule A1= =Sheet1!A1/Sheet1!A2
dans la cellule A2= =Sheet1!A2/Sheet1!A3 .....
et ce jusqu'à (A10) car cette fois-ci il y à 10 valeurs dans la colonne A de la Sheet1

Guiv avait créer ce code, mais celui-ci m'indique une erreur

Private Sub Worksheet_Change(ByVal Target As Range)

Ligne = Target.Row
Colonne = Target.Column

If Not Intersect(Target, Range("A2:CC65536")) Is Nothing _
And Target.Count = 1 _
And Target.Value <> 0 Then

Sheets("Sheet2").Cells(Ligne - 1, Colonne).FormulaR1C1 = "=Sheet1!RC/Sheet1!R[1]C"

End If
End Sub

 

[James007]

Re : Créer une formule avec une macro

Bonjour,

Pourquoi ne pas tout simplement utiliser une formule Si() ...

 

[vbacrumble]

Re : Créer une formule avec une macro

Bon,jour


Ou lire les réponse des tes précédents posts bloomby

https://www.excel-downloads.com/threads/macro-avec-code-conditionelle.114382/


A+

 

[bloomby]

Re : Créer une formule avec une macro

Bonjour VBACrumble,

je viens tous juste de voir ta réponse sur l'autre fil
merci;

Pour les interessés:

https://www.excel-downloads.com/threads/macro-avec-code-conditionelle.114382/