mini userform : la fenêtre ne s'ouvre pas...

[tofoo]

Bonjour,

Je fais une petite interface de recherche pour faciliter la lecture d'un fichier.

Celui ci ne s'ouvre plus et je ne comprends pas le message.😕

LE fichier est très gros donc je le met sur un site spécial:

http://cjoint.com/?ibqipAkOJK


Merci 🙂

 

[excalibur]

Re : mini userform : la fenêtre ne s'ouvre pas...

bonjour tofoo le forum
Sub Lance()
UserForm1.Show
End Sub
code user..

Option Explicit
Dim I As Integer, J As Byte
Private Sub UserForm_Initialize()
With Sheets(1)
For I = 2 To 2675
If Cells(I, 1) <> "" Then ComboBox1.AddItem Cells(I, 1)
Next I
End With
End Sub
attention a la variable j peut etre le meme pb..

 

[tofoo]

Re : mini userform : la fenêtre ne s'ouvre pas...

Effectivement ça marche...

Merci Excalibur.

Je n'ai jamais compris la différence entre les byte et les integer perso....😕

 

[jeanpierre]

Re : mini userform : la fenêtre ne s'ouvre pas...

Bonsoir toffo, excalibur (jean-pierre)

F1 peut t'aider... byte va de x à y sur une plage peu large... 0 à 255, Integer à une plage beaucoup plus large... etc... etc.. F1 de donne toutes les solutions.

Jean-Pierre

 

[tototiti2008]

Re : mini userform : la fenêtre ne s'ouvre pas...

Bonjour à tous,

Byte : de 0 à 255
Integer : de -32 768 à 32 767
Long : de -2 147 483 648 à 2 147 483 647

 

[tofoo]

Re : mini userform : la fenêtre ne s'ouvre pas...

Thanks all 😀

maintenant c'est plus clair pour moi

Merci a tous 😛