Discussion :

[backx3]

Bonjour,

J'aimerais tout simplement insérer une formule (pour la date d'aujourd'hui) quand une valeur de la colonne M change, inscrire la date d'aujourd'hui en colonne N et sur la même ligne.

Je sais faire quand la valeur de n'importe quelle cellule change, mais pas une colonne spécifique..

Quelqu'un aurait une idée s'iouplaît ?

[Thautheme]

Bonjour Backx3, bonjour le forum,

La macro événementielle Change ci-dessous devrait convenir :

Code :

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

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 13 Then Exit Sub 'limite l'action à la colonne 13 (=M)
If Target.Value = "" Then Target.Offset(0, 1).Value = "": Exit Sub 'si la cellule en colonne 13 (=M) est effacée, efface la cellule en colonne N, sort de la procédure
Target.Offset(0, 1).Value = Date 'place la date dans la cellule décalé d'une colonne à droite de la cellule modifiée
End Sub

[Menhir]

Je sais faire quand la valeur de n'importe quelle cellule change, mais pas une colonne spécifique..

Si ce que tu sais faire concerne un Worksheet_Change, se limiter à une colonne est simple : il suffit de placer un test en début de macro qui éjecte du code si la cible n'est pas dans la bonne colonne.

Code :

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

If Application.Intersect(Target, Columns("M")) Is Nothing Then Exit Sub

[backx3]

Merci Thautheme, le feu ça fonctionne parfaitement !

Merci Menhir, j'y avais pensé mais je n'ai pas trouvé cette ligne de code sur internet, j'avais essayé quelques petits trucs mais sans réusltats :/

Merci à vous deux !