VBA Excel Erreur 13 Résolu/Fermé

Question

Bonjour, 

 j aimrai bien que vous m aider avec cette erreur que je renontre
mon code est le suivant :
Private Sub Worksheet_Activate()
Dim i As Double
i = 0
For i = 7 To 1000
    With Range("T" & i)
        For Each celulle In Range("T" & i)
            With Range("T" & i)

If IsEmpty(Range("T" & i).Value) <> "" Then
                         If .Comment Is Nothing Then Range("T" & i).AddComment
                         .Comment.Shape.TextFrame.AutoSize = True
                         .Comment.Text Text:="" & Range("AA" & i).Value & ""
                     End If

End With

End Sub
merci pour tous


Configuration: Windows 7 / Chrome 31.0.1650.63 
 
gros bravo

f894009 · Answer

Bonjour,


code simplifie:
Private Sub Worksheet_Activate()    Dim i As Double    For i = 7 To 1000        With Range("T" & i)            If .Value <> "" Then                If .Comment Is Nothing Then .AddComment                .Comment.Shape.TextFrame.AutoSize = True                .Comment.Text Text:="" & Range("AA" & i).Value & ""            End If        End With    Next iEnd Sub

zaibel · Answer

merci  mais j ai besoin d ajouter le commentaire juste si les celulles contenne du text  pas avec des commentaire vide 

encore mille merci

f894009 · Answer

Re,


merci mais j ai besoin d ajouter le commentaire juste si les celulles contenne du text pas avec des commentaire vide  Explication svp

le code que je vous ai ecrit correspond a votre code corrige.

zaibel · Answer

un tres grand merci c est correct ca marche tres bien

VBA Excel Erreur 13

4 réponses

Discussions similaires