Excel macro plusiseur colonnes

Résolu/Fermé
bylka213 Messages postés 34 Date d'inscription vendredi 14 mars 2008 Statut Membre Dernière intervention 31 août 2010 - 19 juin 2008 à 11:24
bylka213 Messages postés 34 Date d'inscription vendredi 14 mars 2008 Statut Membre Dernière intervention 31 août 2010 - 19 juin 2008 à 13:33
Bonjour,

J'ai une macro sous Excel qui me permets de mettre en commentaire toutes les données présente dans mes cellules de la colonne "J"
Voici le code:

Sub MettreCommentaire()
    Dim plage As Range
    Dim c As Range
    Dim derLigne As Long
    With ActiveSheet
        derLigne = .Range("J" & .Rows.Count).End(xlUp).Row
        Set plage = .Range("J1:J" & derLigne)
    End With
    For Each c In plage.Cells
        If c.Row > 1 Then
            With c
                .ClearComments
                .AddComment Text:=.Text
                .Comment.Shape.Height = 188
                .Comment.Shape.Width = 255
                .ClearContents
            End With
        End If
    Next c
End Sub


Mon problème c'est que j'aimerais appliquer cette Macro aux colonnes "J" et "K" en même temps il faut changer quelque chose au niveau des lettre en GRAS mais je ne sias pas quoi faire.

Si quelqu'un pouvait m'aider ce serait gentil.

Merci

1 réponse

Ivan-hoe Messages postés 433 Date d'inscription dimanche 17 février 2008 Statut Membre Dernière intervention 17 octobre 2008 309
19 juin 2008 à 13:24
Salut,
il faut simplement que ta plage contiennent J et K
Set plage = .Range("J1:K" & derLigne)

I.
1
bylka213 Messages postés 34 Date d'inscription vendredi 14 mars 2008 Statut Membre Dernière intervention 31 août 2010
19 juin 2008 à 13:33
Merci
0