Discussion :

[athos7776]

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 :

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

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

[athos7776]

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 :

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

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

[casefayere]

Bonsoir,
Je pense que tu peux raccourcir :

Code :

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

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