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
A voir également:

4 réponses

Réponse 1 / 4
f894009 Messages postés 17413 Statut Membre 1 715
 
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
Réponse 2 / 4
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
Réponse 3 / 4
f894009 Messages postés 17413 Statut Membre 1 715
 
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
Réponse 4 / 4
zaibel Messages postés 20 Statut Membre
 
un tres grand merci c est correct ca marche tres bien
0

Discussions similaires

Voxbone ? qui est-ce ?
fanfan54 -
ntrece13 -

159 réponses