probleme de programmation

[nkea.sat]

Bonjour tout le monde,

je suis embeté en ce moment j'ai fait une petite programmation sur microsoft visual basic pour un defilement de texte en boucle, voila mon promgramme :

Option Explicit
Dim NextTemps
Dim texte As String
Dim longueur As Integer
Dim i As Integer
Sub StartCopie()
texte = " made in NKEA.S@turn1 de CIMGABON "
texte = texte + " Mbolo! Vous êtes dans le grand repertoire"
texte = texte + ", si vous avez des améliorations à apporter à ce tableau Excel "
texte = texte + "n'hésitez surtout pas, M. Nkéa Saturnin vous remercie "
ajouter:
If Len(texte) / 5 <> Int(Len(texte) / 5) Then
texte = texte + " "
GoTo ajouter
End If
longueur = Len(texte)
i = 1
Range("a1") = " "
UpdateCopie
End Sub
Sub StopCopie()
On Error Resume Next
Application.OnTime NextTemps, "UpdateCopie", , False
Range("a1") = ""
End Sub
Sub UpdateCopie()
Range("a1") = Right(Range("a1"), Len(Range("a1")) - 5) & Mid(texte, i, 5)
i = i + 5
If i > longueur Then i = 1
NextTemps = Now + TimeValue("00:00:01")
Application.OnTime NextTemps, "UpdateCopie"
End Sub

seulement voila quand j'ouvre mon tableau excel une fenetre apparait ( voir piece jointe: erreur1) et quand je click sur enable macro tout marche mais lorsque j'ouvre un autre tableau excel j'ai une erreur ( voir piece jointe: erreur2) et ca marque en jaune sur mon programme la ligne suivante :

Range("a1") = Right(Range("a1"), Len(Range("a1")) - 5) & Mid(texte, i, 5)

comment faire pour reglé ce probleme?
Aidez moi svp, merci.

 

[Minick]

Re : probleme de programmation

Salut,

Pour la 1ere erreur il faut baisser le niveau de securite.
Menu outils/Macro/Securite

Pour le second c'est normal, i n'est pas initialise c'est donc un variant vide.
Il faut l'initialiser a 1.

 

[nkea.sat]

Re : probleme de programmation

merci minick, ca marche à merveil.