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

  • Initiateur de la discussion Initiateur de la discussion toune21
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

toune21

XLDnaute Impliqué
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
 

Pièces jointes

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 :
Code:
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
@+
 
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+
 
Re : Format commentaires, problème avec le point du pavé numérique

Re,

essaye ceci :
Code:
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")
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour