Ajouter une formule avec 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

Bon, le fichier joins devrais aider

 

[Guiv]

Re : Ajouter une formule avec Macro

Bonjour,

Code à copier dans ta feuille Sheet1 (clic droit sur l'onglet/Visualiser le code):

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

Cordialement,
Guiv

 

[bloomby]

Re : Ajouter une formule avec Macro

Salut Guiv,

Ce code me signal un message d'erreur j'ai essayer de le modifier mais sans
succès :S