VBA Excel Erreur 13

Résolu/Fermé

zaibel Messages postés 19 Date d'inscription vendredi 25 avril 2008 Statut Membre Dernière intervention 16 janvier 2014 - Modifié par pijaku le 12/12/2013 à 16:04
zaibel Messages postés 19 Date d'inscription vendredi 25 avril 2008 Statut Membre Dernière intervention 16 janvier 2014 - 13 déc. 2013 à 15:11

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:

VBA Excel Erreur 13
Erreur 0x80070643 - Guide
Liste déroulante excel - Guide
Formule excel - Guide
Si et excel - Guide
Aller à la ligne excel - Guide

4 réponses

Réponse 1 / 4

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
12 déc. 2013 à 17:12

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

Réponse 2 / 4

zaibel Messages postés 19 Date d'inscription vendredi 25 avril 2008 Statut Membre Dernière intervention 16 janvier 2014
13 déc. 2013 à 02:30

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

encore mille merci

Réponse 3 / 4

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
13 déc. 2013 à 07:14

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.

Réponse 4 / 4

zaibel Messages postés 19 Date d'inscription vendredi 25 avril 2008 Statut Membre Dernière intervention 16 janvier 2014
13 déc. 2013 à 15:11

un tres grand merci c est correct ca marche tres bien

Discussions similaires

VBA erreur 1004

Instagram "Désolé, une erreur s'est produite"

Erreur vidéo inconnue sur le Freebox Player

Free erreur 38 : impossible d'envoyer des SMS

Discussions similaires

Newsletters