Modification d'une cellule en VBA

Version imprimable

Bonjour tout le monde!

Donc, voilà mon problème. J'ai 2 colonnes, la C et la D. Je voudrais que lorsque je change l'une de mes cellules dans la colonne C, ma cellule adjacente en D se modifie automatiquement selon une formule. Même chose qui se produirait lorsque je modifierais une cellule dans ma colonne D, c'est-à-dire que ma cellule adjacente en C se modifie automatiquement suivant une autre formule. Par contre, je voudrais bien entendu que ma formule s'écrase et m'inscrive uniquement le résultat en numérique. De cette façon j'irais chercher le maximum de flexibilité dans mon programme et ça empêcherait que mes utilisateurs de bousiller les formules.

Voici mon code jusqu'à maintenant, mais on dirait qu'il ne fonctionne pas. Je ne comprends pas pourquoi.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub Worksheet_Change(ByVal Target As Range) 'Modification automatique de la cellule If Application.Intersect(Target, Me.Range("C4:C443")) Is Nothing Then Exit Sub Target.Offset(0, 1).Value = "=IF(RC[-1]="""","""",IF(RC[-1]=""OFF"",""OFF"",IF(ISERR((RC[-1]*24+RC[2])/24),""OFF"",IF(RC[-1]>=R3C38,((RC[-1]*24-(24-RC[2]))/24),(RC[-1]*24+RC[2])/24))))" End Sub

Bon ok, je m'excuse... je venais de réinstaller Office et j'avais oublié d'activer le système de macros...

Mais pour les intéressés, voici à quoi ressemble mon code.

Enjoy!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Worksheet_Change(ByVal Target As Range)
'Modification automatique de la formule
 
 
 
If Application.Intersect(Target, Me.Range("C4:C443")) Is Nothing Then Exit Sub
 
 
Target.Offset(0, 1).Value = "=IF(RC[-1]="""","""",IF(RC[-1]=""OFF"",""OFF"",IF(ISERR((RC[-1]*24+RC[2])/24),""OFF"",IF(RC[-1]>=R3C38,((RC[-1]*24-(24-RC[2]))/24),(RC[-1]*24+RC[2])/24))))"
 
    Target.Offset(0, 1).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
 
 
End Sub

Bonsoir,
Je pense que tu peux raccourcir :

Code:

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
'Modification automatique de la formule
If Application.Intersect(Target, Me.Range("C4:C443")) Is Nothing Then Exit Sub
Target.Offset(0, 1).Formula = "=IF(RC[-1]="""","""",IF(RC[-1]=""OFF"",""OFF"",IF(ISERR((RC[-1]*24+RC[2])/24),""OFF"",IF(RC[-1]>=R3C38,((RC[-1]*24-(24-RC[2]))/24),(RC[-1]*24+RC[2])/24))))"
Target.Offset(0, 1).Value = Target.Offset(0, 1).Value
End Sub