VBA Excel Erreur 13

Résolu
zaibel Messages postés 20 Statut Membre -  
zaibel Messages postés 20 Statut Membre -
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

          Next

        End With
        
Next

End Sub

merci pour tous



gros bravo

4 réponses

  1.
    f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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 i
    End Sub
    1
  2. zaibel Messages postés 20 Statut Membre
     
    merci mais j ai besoin d ajouter le commentaire juste si les celulles contenne du text pas avec des commentaire vide

    encore mille merci
    0
  3. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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.
    0
  4. zaibel Messages postés 20 Statut Membre
     
    un tres grand merci c est correct ca marche tres bien
    0