Complément ERREUR 438 sur AddComment

[lili13]

Comme prévu je joint les lignes VBA concerné par l'intermédiare de ce fichier ZIP.

Merci à tous.

 

[Lili13]

lili13 écrit:

Comme prévu je joint les lignes VBA concerné par l'intermédiare de ce fichier ZIP.

Merci à tous.

[file name=FichierJointAddCommetnErreur.zip size=809]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/FichierJointAddCommetnErreur.zip[/file]

 

[porcinet82]

Salut Lili13,

Tout d'abord je tenais a te dire qu'il ne sert a rien d'ouvrir plusieurs fil pour la meme chose comme tu l'as fait, il te suffisait simplement te continuer sur ton premier post, mais je mets ca sur le faite que tu connais pas encore bien les regles du forum.

Sinon je viens de jeter un oeil a ton code, et je ne comprends pas tres bien cette ligne de code :

Worksheets('DELEGATION').Unprotect ('TaTa')

A quoi correspond le ('TaTa'), c'est ta feuille? ou une plage de cellule nommées? Et DELEGATION correspond au nom de ton classeur?

Tiens nous au courant,

@+

 

[_Thierry]

Bonjour Lili, Porcinet, le Forum

Humm Humm, Porcinet, la syntas de Lili signifie simplement que 'TaTa' est le mot de passe de sa feuille 'DELEGATION'...

J'ai un peu épurer le code, ce donnerait ceci, mais en fait Lili n'a pas précisé depuis quelle Feuille son CommandButton1 est activé ?

Enfin voilà un code qui fonctionnera sur le AddComment qu'il y ait déjà un commentaire dans la cellule ou non...

Option Explicit

Private Const PSW As String = 'TaTa'


Private Sub CommandButton1_Click()
Dim Commentaire As String

With Worksheets('DELEGATION')
.Unprotect PSW

    If ActiveCell.Locked = True Then
        MsgBox 'Vous devez choisir une cellule dans la zone de sélection uniquement ! ', _
                vbInformation + vbOKOnly, 'DELEGATION GEL'
       
        ' Semble inutile et source de plantage selon feuille où l'on se trouve...
        '.Range('C11:E15').Select
        '.Protect PSW
        Exit Sub
    Else
   
    Commentaire = InputBox('Entrez votre commentaire ici !', _
                            'DELEGATION COMMENTAIRE', 'Votre commentaire')

         
            If Commentaire = '' Then
                  MsgBox 'Aucun commentaire n'a été ajouté à la cellule ! ', _
                          vbInformation + vbOKOnly, 'DELEGATION '
                .Protect PSW
                  Exit Sub
            Else

                .Activate
                .Unprotect PSW
                    With ActiveCell
                        If Not .Comment Is Nothing Then .ClearComments
                            .AddComment Commentaire
                        End With
              .Protect PSW
                MsgBox 'Commentaire : ' & Commentaire & vbCrLf & vbCr _
                        & ' ajouté avec succés ! ', _
                        vbInformation + vbOKOnly, 'DELEGATION COMMENTAIRE'
            End If

    End If
End With

End Sub

PS on notera que je passe le PassWord en Constante et que la syntax habituelle (ce qui a probablement 'roulé' porcinet) se fait sans parenthèse en passage de String de Mot de Passe...


Bon Dimanche
[ol]@+Thierry[/ol]

 

[Lili13]

Merci beaucoup Thierry & Porcinet82 aussi.


Comme tu l'as fais remarqué 'TaTa' est un mot de passe.

Ta procédure fonctionne bien !

Bonne soirée !

 

[porcinet82]

Bonsoir Lili13, _Thierry,

Effectivement, je n'y etait pas du tout sur ce coup la, mais bon j'ai apris quelques chose comme ca. A vrai dire, je ne m'etais jamais servit de mot de passe, et je ne connaissais donc pas la syntaxe , mais maintenant grace a vous deux, et bien c'est fait

Bonne nuit,

@+