Drôle de texte dans le VBA

[sev]

Bonjour, un ami m'a passé un fichier qui à l'ouverture de Visual Basic à un affichage bizarre :

Private Sub eeeEEeeEEeEEEe_Click()
Dim ddDDdDdDddDdDDdddDddDDddDdDdddDdDDdDdDDdDDddDDdDDdDDdDDdddddDDDDddDdDddDDDDddDdDddddDd$, wWWwwwwwwwwwwWwwWWWWwWWwWWwwwwWwwwWwWwwWWWWwwWwWwwWWWWwWw&, eeeEeEEEEeeeeEEeEeeeEEeEEeeEEeeeeEEeeEEeEEeeEEeEeEeeEEEeEEeEeeeeeeeeeEEeeeEEeEeeeEeEeeEeeEeeeEeeeeeeeEEEE As Boolean
wWWwwwwwwwwwwWwwWWWWwWWwWWwwwwWwwwWwWwwWWWWwwWwWwwWWWWwWw = Val(VVvVVVvVvv.Caption)
With LllLLLLLLLLLL
eeeEeEEEEeeeeEEeEeeeEEeEEeeEEeeeeEEeeEEeEEeeEEeEeEeeEEEeEEeEeeeeeeeeeEEeeeEEeEeeeEeEeeEeeEeeeEeeeeeeeEEEE = .Cells(wWWwwwwwwwwwwWwwWWWWwWWwWWwwwwWwwwWwWwwWWWWwwWwWwwWWWWwWw, 1).Value <> Application.Proper(ttttTTtTttTTTTt.Text)
.Cells(wWWwwwwwwwwwwWwwWWWWwWWwWWwwwwWwwwWwWwwWWWWwwWwWwwWWWWwWw, 1).Value = Application.Proper(ttttTTtTttTTTTt.Text)
.Cells(wWWwwwwwwwwwwWwwWWWWwWWwWWwwwwWwwwWwWwwWWWWwwWwWwwWWWWwWw, 2).Value = Application.Proper(eEEeeEeEeEeEEeeeEeEeEEeeEee.Text)
.Cells(wWWwwwwwwwwwwWwwWWWWwWWwWWwwwwWwwwWwWwwWWWWwwWwWwwWWWWwWw, 3).Value = Application.Proper(mmmmmMmMmM.Text)
.Cells(wWWwwwwwwwwwwWwwWWWWwWWwWWwwwwWwwwWwWwwWWWWwwWwWwwWWWWwWw, 4).Value = Application.Proper(VvvvVvVVvvVVvvvVvvVvvvVv.Text)
.Cells(wWWwwwwwwwwwwWwwWWWWwWWwWWwwwwWwwwWwWwwWWWWwwWwWwwWWWWwWw, 5).Value = Application.Proper(ttTttTTtTTtTTtTtTtTTTttTTtTtT.Text)
ddDDdDdDddDdDDdddDddDDddDdDdddDdDDdDdDDdDDddDDdDDdDDdDDdddddDDDDddDdDddDDDDddDdDddddDd = Application.Substitute(VVvVvVVVvvvvvvVvvvVVVvvVVv.Text, oOOooooOOOoOOoooOoOOoOoooooOOoOooo("2C"), oOOooooOOOoOOoooOoOOoOoooooOOoOooo("2C20"))
ddDDdDdDddDdDDdddDddDDddDdDdddDdDDdDdDDdDDddDDdDDdDDdDDdddddDDDDddDdDddDDDDddDdDddddDd = Application.Substitute(ddDDdDdDddDdDDdddDddDDddDdDdddDdDDdDdDDdDDddDDdDDdDDdDDdddddDDDDddDdDddDDDDddDdDddddDd, oOOooooOOOoOOoooOoOOoOoooooOOoOooo("2020"), oOOooooOOOoOOoooOoOOoOoooooOOoOooo("20"))
.Cells(wWWwwwwwwwwwwWwwWWWWwWWwWWwwwwWwwwWwWwwWWWWwwWwWwwWWWWwWw, 6).Value = Application.Proper(ddDDdDdDddDdDDdddDddDDddDdDdddDdDDdDdDDdDDddDDdDDdDDdDDdddddDDDDddDdDddDDDDddDdDddddDd)
.Cells(wWWwwwwwwwwwwWwwWWWWwWWwWWwwwwWwwwWwWwwWWWWwwWwWwwWWWWwWw, 7).Value = Application.Proper(eEEEEeeeE.Text)
If eeeEeEEEEeeeeEEeEeeeEEeEEeeEEeeeeEEeeEEeEEeeEEeEeEeeEEEeEEeEeeeeeeeeeEEeeeEEeEeeeEeEeeEeeEeeeEeeeeeeeEEEE Then
.Cells.Sort Key1:=.Range(oOOooooOOOoOOoooOoOOoOoooooOOoOooo("4132")), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
With LLLlllllll
.vvvvvvVvvVVvVVVVvvvvvvVVVVvVvVVvVvVvVVvVVVVvvVvVvVvVV
.eeEEEeEEEeeEeeEeeeeeeEeEEeEeeeeeeeeEEEEeeEeeeEEeeeeEEeeEeeEEeEEeeeeeeeEEEEEEeEEEEeEEEEEEeEeeeEeeeeeEEEe
.eEEeeEeEeEeEEeeeEeEeEEeeEee.Value = ""
.mmmmmMmMmM.Value = ""
.VvvvVvVVvvVVvvvVvvVvvvVv.Value = ""
.VVvVvVVVvvvvvvVvvvVVVvvVVv.Value = ""
End With
End If
End With
If Not eeeEeEEEEeeeeEEeEeeeEEeEEeeEEeeeeEEeeEEeEEeeEEeEeEeeEEEeEEeEeeeeeeeeeEEeeeEEeEeeeEeEeeEeeEeeeEeeeeeeeEEEE Then
With LLLlllllll.IiiiIIiiIiiiIIIiIII
.List(wWWwwwwwwwwwwWwwWWWWwWWwWWwwwwWwwwWwWwwWWWWwwWwWwwWWWWwWw - 2, 0) = Application.Proper(ttttTTtTttTTTTt.Text)
.List(wWWwwwwwwwwwwWwwWWWWwWWwWWwwwwWwwwWwWwwWWWWwwWwWwwWWWWwWw - 2, 1) = Application.Proper(eEEeeEeEeEeEEeeeEeEeEEeeEee.Text)
.List(wWWwwwwwwwwwwWwwWWWWwWWwWWwwwwWwwwWwWwwWWWWwwWwWwwWWWWwWw - 2, 2) = Application.Proper(mmmmmMmMmM.Text)
.List(wWWwwwwwwwwwwWwwWWWWwWWwWWwwwwWwwwWwWwwWWWWwwWwWwwWWWWwWw - 2, 3) = Application.Proper(VvvvVvVVvvVVvvvVvvVvvvVv.Text)
.List(wWWwwwwwwwwwwWwwWWWWwWWwWWwwwwWwwwWwWwwWWWWwwWwWwwWWWWwWw - 2, 4) = Application.Proper(ttTttTTtTTtTTtTtTtTTTttTTtTtT.Text)
.List(wWWwwwwwwwwwwWwwWWWWwWWwWWwwwwWwwwWwWwwWWWWwwWwWwwWWWWwWw - 2, 5) = Application.Proper(ddDDdDdDddDdDDdddDddDDddDdDdddDdDDdDdDDdDDddDDdDDdDDdDDdddddDDDDddDdDddDDDDddDdDddddDd)
.List(wWWwwwwwwwwwwWwwWWWWwWWwWWwwwwWwwwWwWwwWWWWwwWwWwwWWWWwWw - 2, 6) = eEEEEeeeE.Text
End With
End If
Unload Me
End Sub

A quoi celà est due ?

 

[Denis]

Re : Drôle de texte dans le VBA

Bonjour sev et le Forum
ton texte de sub a été codé manuellement.
Bon courage et à +

 

[Eric 45]

Re : Drôle de texte dans le VBA

Bonjour à tous
Bonjour sev, Denis

Es tu certain que c'est un ami ???????? 😉

( Si tu as besoin d'un coup de main, dis le )

Eric

 

[JCGL]

Re : Drôle de texte dans le VBA

Bonjour à tous,
Salut Fred et Ric 🙂,

Cela ne te rappelle pas les codages de Ti pour Acyd arf et niark
Essaie de reproduire un tel code...

A++ 🙂
A+ à tous

 

[sev]

Re : Drôle de texte dans le VBA

Alors ce serait un codage ?
Comment pourrait-on l'éclaircir ?

 

[Denis]

Re : Drôle de texte dans le VBA

re bonjjour le fil et le forum
il faudrait que tu envois le fichiercomplet, que l'on puisse déterminer ou sont les txtbox etc
à +
Denis

 

[Eric 45]

Re : Drôle de texte dans le VBA

Re à tous

Tout à fait mon ami JCGL

Eric

 

[myDearFriend!]

Re : Drôle de texte dans le VBA

Bonjour sev, Denis, Eric 45, JCGL, le Forum,

Bonjour, un ami m'a passé un fichier qui à l'ouverture de Visual Basic à un affichage bizarre :

Private Sub eeeEEeeEEeEEEe_Click()
Dim ddDDdDdDddDdDDdddDddDDddDdDdddDdDDdDdDDdDDddDDdDDdDDdDDdddddDDDDddDdDddDDDDddDdDddddDd$, wWWwwwwwwwwwwWwwWWWWwWWwWWwwwwWwwwWwWwwWWWWwwWwWwwWWWWwWw&, eeeEeE...

A quoi celà est due ?

Cela est peut-être dû au fait que l'auteur n'avait pas envie de mettre ce code à disposition ? Non ? 😕

Peut-être qu'il partage suffisamment de choses sans aucun retour et qu'il en a décidé autrement pour ce fichier là ?

J'imagine d'ailleurs, que le projet VBA original devait être verrouillé par un mot de passe que ton "ami" s'est fait un plaisir de supprimer, sans consentement de l'auteur en question bien sûr.

Cordialement,