Excel Erreur d'execution 1004 [Résolu/Fermé]

Signaler
-
Messages postés
16214
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
24 septembre 2020
-
Bonjour,

J'ai un problème d'execution sur une macro VBA.

Quand j'execute pas à pas tout fonctionne normalement mais si je fais une execution normale, l'erreur apparait.

Voici une partie de mon code :


For q = 0 To DureeAO - 1
While Sheets("Planing").Cells(19, j + p + q) <> ""
p = p + 1
Wend

Set comm = Sheets("Planing").Cells(n, j + q + p)

comm.AddComment
comm.Comment.Visible = False
comm.Comment.Text Text:=ville
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 10066431
End With

Next



Le problème provient de l'ajout du commentaire. j'ai essayer de le passer en Range mais ça ne marche pas non plus/.


Pourriez-vous m'éclaire svp.

Merci d'avance

3 réponses

Messages postés
16214
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
24 septembre 2020
3 036
Bonjour

lorsque tu as une erreur indique la ligne fautive : cela simplifie le boulot


comm.AddComment 
comm.Comment.Visible = False 
comm.Comment.Text Text:=ville 
With comm.Interior 
     .Pattern = xlSolid 
     .PatternColorIndex = xlAutomatic 
     .Color = 10066431 
End With

et tu as intér^t (pour faciliter la maintenance) d'écrire avant comm.addcomment
comm.clearcomments et de grouper les propriétés et/ou mméthodes dans un "bloc " (With... End with)

code optimisé
With comm 
     .ClearComments 
     .AddComment 
     .Comment.Visible = False 
     .Comment.Text Text:=ville 
      .Interior.Color = 10066431 
 End With


Michel
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 60769 internautes nous ont dit merci ce mois-ci

Messages postés
15352
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
28 septembre 2020
1 362
Bonjour michel_m

merci pour lui
Messages postés
16214
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
24 septembre 2020
3 036
bonjour F89...

pat'kwa :o)

mais j'ai l'impression qu'il se fout pas de ce que je lui ai proposé
merci bcp michel_m

je passe en résolu
Messages postés
15352
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
28 septembre 2020
1 362
Bonjour,
Set comm = Sheets("Planing").Cells(n, j + q + p)


n est defini ou? parce que si n=0 alors erreur 1004

Bonne suite
Bonjour,

Merci de t'interesser à mon pb.

n est toujours superieur à 0.

voilà mon code en entier

Sub test()
Range("B7:XFD10").Select
Range("B7:XFD10").Clear
Range("C5").Select
i = 5

While Sheets("Travail").Cells(i, 2) <> ""
DateIni = Sheets("Travail").Cells(i, 3)
DureeAO = Sheets("Travail").Cells(i, 5) * 2
ville = Sheets("Travail").Cells(i, 2)

For j = 2 To 16000
DatePlaning = Sheets("Planing").Cells(3, j)

If DatePlaning = DateIni Then
l = 0
For k = j To DureeAO + j
If Sheets("Planing").Cells(19, k + l) <> "" Then
l = l + 1
k = k - 1
End If
Next

'Dim TabDate() As Tabs

'ReDim TabDate(DureeCom + l)
n = 7
For m = j To DureeAO + j + l
If Sheets("Planing").Cells(n, m) <> "" Then
n = n + 1
End If
Next
p = 0
For q = 0 To DureeAO - 1
While Sheets("Planing").Cells(19, j + p + q) <> ""
p = p + 1
Wend

Set comm = Sheets("Planing").Cells(n, j + q + p)
comm.AddComment
comm.Comment.Visible = False
comm.Comment.Text Text:=ville

With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 10066431
End With

Next

Exit For
End If

Next
i = i + 1
Wend



End Sub

Je ne comprend vraiment pas pourquoi il ne marche pas.
Messages postés
15352
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
28 septembre 2020
1 362
Re,
Precedemnet ,J'ai teste la partie ajout commentaire, c'est Ok. Je regarde le code en entier.

A+
Messages postés
15352
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
28 septembre 2020
1 362
Re,
Vous enlevez les commentaires avant de relancer votre macro? Parce que la aussi erreur 1004

A+
oui au tout début j'utilise la fonction clear. Ce qui est bizard c'est que pas à pas tout fonctionne mais si je compile tout ça m'envoie le message d'erreur
Merci beaucoup à vous tous. Ca marche parfaitement.

Par contre comment je peux vérifier si il y a un commentaire?

Je vous remercie grandement, vous m'enlevez une belle épine du pied
Messages postés
16214
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
24 septembre 2020
3 036
Par contre comment je peux vérifier si il y a un commentaire?

Peut ^tre en daignant lire le code que je t'ai proposé....