Discussion :

[mirmae]

Bonjour à tous
*
J’ai quelques notion de VBA mais je me trouve un peu bloqué pour réaliser ceci*:
*
J’aimerai que lorsque je modifie une cellule*; qu’elle soit mise en gras puis que dans la dernière colonne d’Excel sur la même ligne soit indiqué la date de la modification.
*
Un grand merci d’avance*!!!

[jfontaine]

Bonjour,

Une proposition

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Count = 1 And Target.Value <> "" Then
    Application.EnableEvents = False
    Target.Font.Bold = True
    Cells(Target.Row, Rows(Target.Row).End(xlToRight).Column + 1).Value = Date
    Application.EnableEvents = True
End If
 
End Sub

[mirmae]

Ouah*!!! Un grand merci pour cette votre rapidité*!
*
Vous m’avez déjà débloqué le premier gros problème qui était que la macro se répétait non-stop… (elle se redéclenchais à chaque fois vu que la date apportait une modification dans une autre cellule).
*
Par contre c’est de ma faute mais j’ai oublié de préciser une information. Il faudrait que la date apparaisse sur la même ligne (donc là c’est fait) mais dans la colonne «*BV*». Le problème est que la modification de la cellule peut arriver n’importe où dans le tableau et résultat il n’est pas possible d’utiliser un «*off-set*». Y aurait-il une autre méthode*?
*
Celle que j’avais en tête consistait à calculer la différence entre de cellule entre «*BV*» et la cellule modifié pour ensuite mettre ce résultat dans une variable (appelée ici «*x*»)*qui arriverait dans cette ligne*:
“Cells(Target.Row, Rows(Target.Row).End(xlToRight).Column + x).Value = Date”
***
Merci d’avance!

[jfontaine]

Si la date doit toujours se situer en BV

Code :

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

Range("BV" & Target.Row).Value = Date