Modifier un code

[DIGGERJACK]

Bonjour le forum

Dans le dossier joint de thierry j'aurais voulu modifier le texte déroulant à la fin de la démo mais je ne sais pas où il est stocké

Si quelqu'un peut m'aider à retrouver le texte "Pour loïc et le forum ......"

Merci de votre aide et bonne journée

 

[Pierrot93]

Re : Modifier un code

Bonjour Diggerjack

regarde dans le module de l'USF, c'est une constante en 2ème ligne. ALT F11 pour ouvrir l'éditeur vba => click droit dans l'USF => code.

bon après midi
@+

Edition aarf me suis planté moi....

 

[Catrice]

Re : Modifier un code

Bonjour,

voici la boucle qui fait apparaitre le texte défilant :

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Dim i As Long, ii As Integer, iii As Long
Dim MyString As String
For ii = 1 To Len(X)
MyString = MyString & Mid(X, ii, 1)
For i = 1 To 1000000
iii = iii + 1
Next i
Sheet1.Range("C8") = MyString
Next ii
End Sub


X est un label masqué (reduit à zero) dans l'UserForm qui contient le texte : "Pour Loic et le Forum, Just for the fun , @+Thierry 19/04/2004"

Voir fichier joint, j'ai modifié le texte

 

[BERRACHED said]

Re : Modifier un code

Salut,DIGGERJACK

si tu parle du texte qui est sur la feuille tu peux le changer directement et ecrire a la place un autre.

si tu parle du texte sur L'userform c'est une image que tu peux aussi la changé en chargant par une autre.

Cordialement

 

[DIGGERJACK]

Re : Modifier un code

Re le forum

Merci à tous pour les réponses et particulièrement à Catrice pour les explications

J'avais repérer la boucle mais je n'arrivais pas à trouver le texte en question
Je le pensais caché dans une cellule et après avoir parcouru plusieurs fois les cellules je me suis décidé à poser la question
Merci beaucoup et bonnes fêtes à tous