Excel
• •Planning 5 à 7 - V 1.0
• •Clé dynamométrique - V 1.0
• •Tour de Hanoï - V 1.0
• •WebRadio - V 1.1
• •ZipTi - V 2.3

PPS
• •PPS 24
• •PPS 23
• •PPS 22
• •PPS 21
• •PPS 20

OOo
• •Didactitiel OOo - V 2.0

'************************************
'partie à coller dans un module
'************************************
Option Explicit

Sub commentaire()
' Ti
    Dim i As Integer

    For i = 1 To Range("E65535").End(xlUp).Row
        If Range("E" & i).Value <> "" Then
            With Range("D" & i)
                .ClearComments
                .AddComment
                .Comment.Visible = True
                .Comment.Text Text:=Range("E" & i).Value
                With .Comment.Shape
                    .TextFrame.AutoSize = True
                    .Fill.ForeColor.RGB = RGB(255, 0, 0)
                    .Fill.Transparency = 0#
                    .IncrementLeft -100
                    With .OLEFormat.Object
                        With .Font
                            .Name = "Arial"
                            .Size = 12
                            .ColorIndex = 6
                            .Bold = True
                        End With
                    End With
                End With
            End With
        Else
            Range("D" & i).ClearComments
        End If
    Next i
End Sub

Date de création : 24/05/2005 - 19:19
Dernière modification : 25/05/2005 - 21:12
Catégorie : Commentaires
Page lue 3132 fois

 Prévisualiser la page      Imprimer la page

Aujourd'hui :
Nativité

Un p'tit don ?

C'était aussi un 08 Septembre
1994

Les Soviétiques et les Alliés quittent Berlin après 49 ans d'occupation.

Né(e) un 08 Septembre 1910
Jean-Louis Barrault

  Membres: 1660

[ Mot de passe perdu ? ]

[ Devenir membre ]

  Membre en ligne: 0

  Anonymes en ligne: 41

1384444