Bonjour à tous,
J'ai un classeur de douze onglet, et par onglet je travaille sur 172 colonnes, et 150 lignes.
Il faut absolument que j'insère des commentaires dans environ 150 à 200 cellules différentes avec commentaires différents.
Cette macro me va bien, sauf que .....
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Target.Comment Is Nothing Then
SendKeys "%Ia"
SendKeys CStr(Now) & Chr(10)
Cancel = True
End If
End Sub
...... qand je double clic pour insérer le commentaire, j'ai bien le nom, la date et l'heure
et il me désactive le pavé numérique, et ensuite quand j'enclenche le pavé numérique
il a remplacé la virgule par le point, et cela me génére des erreurs.
Est ce que des personnes ont déjà rencontré ce problème, si oui,
vous avez la solution.
Ci joint un fichier modèle,
Cordialement
Toune21
J'ai un classeur de douze onglet, et par onglet je travaille sur 172 colonnes, et 150 lignes.
Il faut absolument que j'insère des commentaires dans environ 150 à 200 cellules différentes avec commentaires différents.
Cette macro me va bien, sauf que .....
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Target.Comment Is Nothing Then
SendKeys "%Ia"
SendKeys CStr(Now) & Chr(10)
Cancel = True
End If
End Sub
...... qand je double clic pour insérer le commentaire, j'ai bien le nom, la date et l'heure
et il me désactive le pavé numérique, et ensuite quand j'enclenche le pavé numérique
il a remplacé la virgule par le point, et cela me génére des erreurs.
Est ce que des personnes ont déjà rencontré ce problème, si oui,
vous avez la solution.
Ci joint un fichier modèle,
Cordialement
Toune21