Format commentaires, problème avec le point du pavé numérique

[toune21]

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

 

[Pierrot93]

Re : Format commentaires, problème avec le point du pavé numérique

Bonjour,

pas ouvert ton fichier, pas 2007 sous le coude, mais regarde peut être ceci :

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
With Target
    If .Comment Is Nothing Then
        .AddComment "" & Now & ""
        .Comment.Visible = False
    End If
End With
End Sub

bon après midi
@+

 

[toune21]

Re : Format commentaires, problème avec le point du pavé numérique

Bonsoir Pierrot, et vous qui passer par la

Ok ça marche, mais je souhaiterais avoir le nom utilisateur qui apparaît dans Option Excel, Standard, personaliser votre copie Microsoft Office. Comme dans mon exemple.

Merci encore,
A+

 

[Pierrot93]

Re : Format commentaires, problème avec le point du pavé numérique

Re,

essaye ceci :

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
With Target
    If .Comment Is Nothing Then
        .AddComment Application.UserName & vbLf & Now
        .Comment.Visible = False
    End If
End With
End Sub

pour l'utilisateur windows Environ("UserName")

 

[toune21]

Re : Format commentaires, problème avec le point du pavé numérique

Re bonsoir Pierrot,

Je vais aller plus vite,
Je te remercie beaucoup.
Salutations