Probleme avec commentaires de cellules

[zergo]

Bonjour le forum

Voici mon probleme, j'ai fais une macro pour créer automatiquement des commentaires avec une mise en forme, mais celle ci affiche une erreur.


Je me permets de vous transmettre un fichier exemple.


Cordialement.

 

[natorp]

Re : Probleme avec commentaires de cellules

Bjr zergo

est-ce que l'AUTOSIZE qui plante veut dire "ajuster" ?
si oui à remplacer par : .ShrinkToFit = True

cordialement, Gérard

 

[Efgé]

Re : Probleme avec commentaires de cellules

Bonjour zergo, natorp, le fil, le forum
en remplaçant par

.Comment.Shape.TextFrame.AutoSize = True

Une remarque : le code plantera si un commenraire existe déja...
Une version qui évitera ça pour la cellule B17:

[COLOR=blue]Sub[/COLOR] Macro1_2()
[COLOR=blue]With[/COLOR] Range("B17")
    [COLOR=blue]If[/COLOR] .Comment [COLOR=blue]Is Nothing Then[/COLOR]
        .AddComment
        [COLOR=blue]With[/COLOR] .Comment
            .Visible = [COLOR=blue]False[/COLOR]
            .Text Text:= _
                "bloc 1" & Chr(10) & "-Longueur de cable vidéo =" & Chr(10) & "-Diamètre de cable vidéo ="
            .Shape.TextFrame.AutoSize = [COLOR=blue]True[/COLOR]
        [COLOR=blue]End With[/COLOR]
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlCenter
        .ReadingOrder = xlContext
        .Orientation = xlHorizontal
    [COLOR=blue]End If[/COLOR]
[COLOR=blue]End With[/COLOR]
[COLOR=blue]End Sub[/COLOR]

a répéter pour la cellule D17
Cordialement

 

[zergo]

Re : Probleme avec commentaires de cellules

Bonjour Gérard et merci de ton intervention.

Oui s'est bien .AutoSize = True qui me posais un problème dans la macro.

Mais je souhaitais mètre le commentaire en gras avec un alignement du texte horizontal « gauche » et verticale « centré ».ainsi que la taille automatique comme le montre l’exemple du fichier joint.

 

[Efgé]

Re : Probleme avec commentaires de cellules

Re
Je pense que tu n'as pas vu mon précédent post.
Pour la nouvelle explication, je propose toujours pour B17 à refaire pour D17:

[COLOR=blue]Sub[/COLOR] Macro1_3()
[COLOR=blue]With[/COLOR] Range("B17")
    [COLOR=blue]If[/COLOR] .Comment [COLOR=blue]Is Nothing Then[/COLOR]
        .AddComment
        [COLOR=blue]With[/COLOR] .Comment
            .Visible = [COLOR=blue]False[/COLOR]
            .Text Text:= _
                "bloc 1" & Chr(10) & "-Longueur de cable vidéo =" & Chr(10) & "-Diamètre de cable vidéo ="
           Txt = Len(.Text)
            [COLOR=blue]With[/COLOR] .Shape.TextFrame
                .AutoSize = [COLOR=blue]True[/COLOR]
                .Characters(1, Txt).Font.Bold = [COLOR=blue]True[/COLOR]
                .HorizontalAlignment = xlLeft
                .VerticalAlignment = xlCenter
            [COLOR=blue]End With[/COLOR]
        [COLOR=blue]End With[/COLOR]
    [COLOR=blue]End If[/COLOR]
[COLOR=blue]End With[/COLOR]
[COLOR=blue]End Sub[/COLOR]

Cordialement

 

[zergo]

Re : Probleme avec commentaires de cellules

Bonjour Efgé


Mes commentaires sont déjà présents en tant que bloc 1, bloc 2 ainsi de suite il faut que je rajoute en faite les 2 lignes

-Longueur de câble vidéo =
-Diamètre du câble vidéo =

Cordialement

 

[Efgé]

Re : Probleme avec commentaires de cellules

Re
Essai ceci après avoir supprimé le commentaire existant en B17:

[COLOR=blue]Sub[/COLOR] Macro1_4()
[COLOR=blue]With[/COLOR] Range("B17")
    [COLOR=blue]If[/COLOR] .Comment [COLOR=blue]Is Nothing Then[/COLOR]
        .AddComment
        .Comment.Text Text:="Bloc 1"
    [COLOR=blue]End If[/COLOR]
        [COLOR=blue]With[/COLOR] .Comment
            .Visible = [COLOR=blue]False[/COLOR]
            .Text Text:=.Text & _
                Chr(10) & "-Longueur de cable vidéo =" & Chr(10) & "-Diamètre de cable vidéo ="
           Txt = Len(.Text)
            [COLOR=blue]With[/COLOR] .Shape.TextFrame
                .AutoSize = [COLOR=blue]True[/COLOR]
                .Characters(1, Txt).Font.Bold = [COLOR=blue]True[/COLOR]
                .HorizontalAlignment = xlLeft
                .VerticalAlignment = xlCenter
            [COLOR=blue]End With[/COLOR]
        [COLOR=blue]End With[/COLOR]
[COLOR=blue]End With[/COLOR]
[COLOR=blue]End Sub[/COLOR]

A chaque click les lignes seront ajoutées à la suite.
Dis nous si ça va
Cordialement

 

[zergo]

Re : Probleme avec commentaires de cellules

Rebonjour Efgé

Je vais supprimer mes anciens commentaires et les remplacer par la petite macro.

Je te rermerci pour ton aide.

 

[Efgé]

Re : Probleme avec commentaires de cellules

Re
Si tu as beaucoups de commentaires à supprimer, ceci devrait t'aider :

[COLOR=BLUE]Sub[/COLOR] Efface()
  [COLOR=BLUE]On Error Resume Next[/COLOR]
  Cells.ClearComments
[COLOR=BLUE]End Sub[/COLOR]

Cordialement

 

[zergo]

Re : Probleme avec commentaires de cellules

Bonjour Efgé


Merci pour ton aide et bonne journée a toi


Cordialement