Créer macro pour annuler une autre

[bylka213]

Bonjour j'ai un classeur dans lequel j'ai une macro qui me permet de mettre en commentaire deux colonnes de chaque feuilles. Cette macro je la lance à partir d'un bouton je voudrais créer un autre bouton permettant de faire l'effet inverse pour revenir à l'état précedent.


J'ai joins un fichier pour que cela soit plus explicite


Merci

 

[Pierrot93]

Re : Créer macro pour annuler une autre

Bonjour Bylka,

regarde le code ci dessous, adaptation pour la feuille active :

Sub test()
Dim plage As Range, c As Range, cm As Comment
Dim derLigne As Long
    With ActiveSheet
        derLigne = .Range("A" & .Rows.Count).End(xlUp).Row
        Set plage = .Range("E1:F" & derLigne)
    End With
    For Each c In plage.Cells
        Set cm = c.Comment
        If Not cm Is Nothing Then
            With c
            .Value = cm.Text
            .Borders.LineStyle = xlNone
            .Comment.Delete
            End With
        End If
    Next c
End Sub

bonne soirée
@+

 

[mromain]

Re : Créer macro pour annuler une autre

bonsoir tout le monde

une autre solution :

Dim V_Sheet As Worksheet
Dim curComment As Comment
Dim curCell As Range
For Each Wkb In Application.Workbooks
    For Each V_Sheet In Wkb.Worksheets
        For Each curComment In V_Sheet.Comments
            Set curCell = curComment.Parent
            curCell.Value = curComment.Text
            curCell.ClearComments
        Next curComment
    Next V_Sheet
Next Wkb

a+

 

[bylka213]

Re : Créer macro pour annuler une autre

Merci beaucoup Romain,

Encore une fois tu m'es d'une grande aide ça marche impeccable.

J'ai une petite question qui n'a rien à voir mais je demande quand même au cas où

j'ai un classeur dasn lequel j'ai un onglet contrôle j'y ai mis un bouton de mise à jour car les données présentes dans les feuilles de plusieurs classeurs sont issues d'une source externe ODBC Oracle pour etre plus précis.

Parcontre j'ai un soucis parce quand je lance ma macro qui doit mettre à jour tous les classeurs ouverts, il faut que j'entre le mot de passe pour me connecter à la source de données à chaque fois et desfois ca bloque donc je dois taper le mot de passe 3 voir 5 fois... et desfois même ça ne marche pas on diré qu'il bloque sur un classeur.

ma macro est la suivante:

private sub bouton()

For Each Wkb In Application.Workbooks

Wkb.RefreshAll

Next Wkb

End Sub

je peux pas entrer dasn ma macro en dur le mot de passe de connection et comment puis je régler mon soucis de blocage sur un classeur "je me demande si le problème n'est pas dû au fait que dans un classeur une feuille n'est pas connectée à la source cc'est à dire que les données ne sont pas actualisables?