VBA

Résolu/Fermé
Usgpa - 12 févr. 2010 à 13:33
Gord21 Messages postés 918 Date d'inscription samedi 21 novembre 2009 Statut Membre Dernière intervention 20 mars 2013 - 13 févr. 2010 à 14:21
Bonjour,
Je souhaiterais savoir si vous trouvez l'erreur dans cette procédure :
Private Sub UserForm_Initialize()

TextBox1 = UserForm5.ComboBox1.Value

Dim q As Integer
Dim cherche As Long
cherche = TextBox1.Value
q = Sheets("Archive Cessions").Cells.Find(what:=cherche, LookIn:=xlValues, Lookat:=xlWhole, searchorder:=xlNext).Row
TextBox2 = Sheets("Archive Cessions").Range("D", q)
TextBox3 = Sheets("Archive Cessions").Range("B", q)
TextBox4 = Sheets("Archive Cessions").Range("H", q)
TextBox5 = Sheets("Archive Cessions").Range("F", q)

L'userform en question refuse de s'afficher pour une erreur .

Merci d'avance..

3 réponses

Gord21 Messages postés 918 Date d'inscription samedi 21 novembre 2009 Statut Membre Dernière intervention 20 mars 2013 289
12 févr. 2010 à 13:39
Bonjour,

Oui : Range("D" & q)
Pour les différentes lignes
0
Merci beaucoup
0
youness0225 Messages postés 53 Date d'inscription vendredi 19 juin 2009 Statut Membre Dernière intervention 13 février 2010 3
13 févr. 2010 à 00:22
bonjour j'ai installé vba mais quand j essai d'ouvrir VB un message me di(MSVBM60.dll n'a pas pu etres enregistrer sur le systemes) que dois je faire. merci de votre aide.
0
Gord21 Messages postés 918 Date d'inscription samedi 21 novembre 2009 Statut Membre Dernière intervention 20 mars 2013 289
13 févr. 2010 à 14:21
Bonjour youness0225,
Je ne pense pas que cette question fasse suite au problème posé par Usgpa.
Merci d'ouvrir une nouvelle discussion.
0