Copie Valeur dans Commentaire

[Esox]

Bonjour le forum,

Je souhaiterai faire un bouton avec une macro derriere qui lors de son activation, me copie le contenu de la cellule active, remplace le contenu de la cellule active par le mot "absence", et ensuite m'insère un commentaire toujours sur la cellule active, avec le contenu copié précédement collé dans le commentaire ?

Pourriez vous m'y aider ?

Merci à vous...

 

[VDAVID]

Re : Copie Valeur dans Commentaire

Bonjour Esox,

Teste avec ce code dans ton bouton:

    With ActiveCell
    
        .AddComment (.Value)
        .Value = "Absence"
    
    End With

Edit:
Pour éviter les erreurs

    With ActiveCell
        
        If .Value <> "Absence" And .Value <> "" Then
        
            .ClearComments
            .AddComment (.Value)
            .Value = "Absence"
            
        End If
       
    End With

Bonne journée !

 

[Esox]

Re : Copie Valeur dans Commentaire

Bonjour VDAVID,

Alors là chapeau.... j'étais parti dans des macros "usine à gaz" alors que ces 4 lignes suffisaient... Merci à toi pour ta rapidité...

Ca marche à la perfection...

Bonne journée...